diff --git a/.github/workflows/ci-windows.yml b/.github/workflows/ci-windows.yml new file mode 100644 index 000000000..019f44909 --- /dev/null +++ b/.github/workflows/ci-windows.yml @@ -0,0 +1,40 @@ +name: Windows CI +on: + push: + branches: + - '*' + tags: + - '*' + pull_request: + branches: + - master +env: + MSYS2_PATH_TYPE: inherit + +jobs: + build: + runs-on: windows-latest + steps: + - name: Checkout + uses: actions/checkout@v2 + - name: Install MSYS2 + uses: eine/setup-msys2@v0 + with: + update: true + install: make mingw-w64-x86_64-clang tar + - name: Get Chez Scheme + run: | + git clone --depth 1 https://github.com/cisco/ChezScheme + - name: Configure and Build Chez Scheme + run: msys2do cd ChezScheme; ./configure --threads; make; cd .. + shell: cmd + - name: Set Path + run: | + $chez="$(pwd)\ChezScheme\ta6nt\bin\ta6nt" + echo "::add-path::$chez" + echo "::set-env name=SCHEME::scheme" + - name: Test Scheme + run: scheme.exe --version + - name: Bootstrap + run: msys2do make bootstrap + shell: cmd \ No newline at end of file diff --git a/CHANGELOG.md b/CHANGELOG.md index abcfc3b81..323761cb1 100644 --- a/CHANGELOG.md +++ b/CHANGELOG.md @@ -3,7 +3,34 @@ Changes since Idris 2 v0.1.0 The implementation is now self-hosted. To initialise the build, either use the [bootstrapping version of Idris2](https://github.com/edwinb/Idris2-boot) -or build fromt the generated Scheme, using `make bootstrap`. +or build from the generated Scheme, using `make bootstrap`. + +Language changes: + +* `total`, `covering` and `partial` flags on functions now have an effect. +* Fields of records can be accessed (and updated) using the dot syntax, + such as `r.field1.field2` or `record { field1.field2 = 42 }`. + For details, see https://idris2.readthedocs.io/en/latest/reference/records.html +* New function flag `%tcinline` which means that the function should be + inlined for the purposes of totality checking (but otherwise not inlined). + This can be used as a hint for totality checking, to make the checker look + inside functions that it otherwise might not. +* %transform directive, for declaring transformation rules on runtime + expressions. Transformation rules are automatically added for top level + implementations of interfaces. +* A %spec flag on functions which allows arguments to be marked for partial + evaluation, following the rules from "Scrapping Your Inefficient Engine" + (ICFP 2010, Brady & Hammond) +* To improve error messages, one can use `with NS.name ` + or `with [NS.name1, NS.name2, ...] ` to disable disambiguation + for the given names in ``. Example: `with MyNS.(>>=) do ...`. + +Library additions: + +* Additional file management operations in `base` +* New module in `base` for time (`System.Clock`) +* New modules in `contrib` for JSON (`Language.JSON.*`); random numbers + (`System.Random`) Compiler updates: @@ -17,37 +44,15 @@ Compiler updates: * 0-multiplicity constructor arguments are now properly erased, not just given a placeholder null value. -Language extensions: - -* %transform directive, for declaring transformation rules on runtime - expressions. Transformation rules are automatically added for top level - implementations of interfaces. -* A %spec flag on functions which allows arguments to be marked for partial - evaluation, following the rules from "Scrapping Your Inefficient Engine" - (ICFP 2010, Brady & Hammond) - -Library additions: - -* Additional file management operations in `base` -* New modules in `contrib` for time (`System.Clock`); JSON (`Language.JSON.*`); - random numbers (`System.Random`) - Other improvements: * Various performance improvements in the typechecker: + Noting which metavariables are blocking unification constraints, so that they only get retried if those metavariables make progress. + Evaluating `fromInteger` at compile time. - + In the run-time, reuse the old heap after garbage collection if it - hasn't been resized, to avoid unnecessary system calls. - * Extend Idris2's literate mode to support reading Markdown and OrgMode files. For more details see: https://idris2.readthedocs.io/en/latest/reference/literate.html -* Fields of records can be accessed (and updated) using the dot syntax, - such as `r.field1.field2` or `record { field1.field2 = 42 }`. - For details, see https://idris2.readthedocs.io/en/latest/reference/records.html - Changes since Idris 1 --------------------- diff --git a/Makefile b/Makefile index 30d276b81..57922014f 100644 --- a/Makefile +++ b/Makefile @@ -12,6 +12,7 @@ MAJOR=0 MINOR=2 PATCH=0 + GIT_SHA1= ifeq ($(shell git status >/dev/null 2>&1; echo $$?), 0) # inside a git repo @@ -31,14 +32,24 @@ else IDRIS2_IPKG := idris2rkt.ipkg endif -export IDRIS2_BOOT_PATH = ${CURDIR}/libs/prelude/build/ttc:${CURDIR}/libs/base/build/ttc:${CURDIR}/libs/network/build/ttc +ifeq ($(OS), windows) + IDRIS2_PREFIX := $(shell cygpath -m ${PREFIX}) + IDRIS2_CURDIR := $(shell cygpath -m ${CURDIR}) + export IDRIS2_BOOT_PATH = "${IDRIS2_CURDIR}/libs/prelude/build/ttc;${IDRIS2_CURDIR}/libs/base/build/ttc;${IDRIS2_CURDIR}/libs/network/build/ttc" +else + IDRIS2_PREFIX := ${PREFIX} + IDRIS2_CURDIR := ${CURDIR} + export IDRIS2_BOOT_PATH = ${IDRIS2_CURDIR}/libs/prelude/build/ttc:${IDRIS2_CURDIR}/libs/base/build/ttc:${IDRIS2_CURDIR}/libs/network/build/ttc +endif + + export SCHEME -.PHONY: all idris2-exec ${TARGET} support support-clean clean distclean +.PHONY: all idris2-exec ${TARGET} testbin support support-clean clean distclean -all: support ${TARGET} libs +all: support ${TARGET} testbin libs idris2-exec: ${TARGET} @@ -48,7 +59,7 @@ ${TARGET}: src/IdrisPaths.idr src/IdrisPaths.idr: echo 'module IdrisPaths' > src/IdrisPaths.idr echo 'export idrisVersion : ((Nat,Nat,Nat), String); idrisVersion = ((${MAJOR},${MINOR},${PATCH}), "${GIT_SHA1}")' >> src/IdrisPaths.idr - echo 'export yprefix : String; yprefix="${PREFIX}"' >> src/IdrisPaths.idr + echo 'export yprefix : String; yprefix="${IDRIS2_PREFIX}"' >> src/IdrisPaths.idr prelude: ${MAKE} -C libs/prelude IDRIS2=../../${TARGET} IDRIS2_PATH=${IDRIS2_BOOT_PATH} @@ -64,6 +75,9 @@ contrib: prelude libs : prelude base network contrib +testbin: + @${MAKE} -C tests testbin + test: @${MAKE} -C tests only=$(only) IDRIS2=../../../${TARGET} @@ -93,12 +107,13 @@ install-api: install-idris2: mkdir -p ${PREFIX}/bin/ install ${TARGET} ${PREFIX}/bin +ifeq ($(OS), windows) + -install ${TARGET}.cmd ${PREFIX}/bin +endif mkdir -p ${PREFIX}/lib/ install support/c/${IDRIS2_SUPPORT} ${PREFIX}/lib -ifneq ($(CG),racket) mkdir -p ${PREFIX}/bin/${NAME}_app install ${TARGETDIR}/${NAME}_app/* ${PREFIX}/bin/${NAME}_app -endif install-support: support mkdir -p ${PREFIX}/idris2-${IDRIS2_VERSION}/support/chez @@ -112,7 +127,7 @@ install-support: support install-libs: libs ${MAKE} -C libs/prelude install IDRIS2=../../${TARGET} IDRIS2_PATH=${IDRIS2_BOOT_PATH} ${MAKE} -C libs/base install IDRIS2=../../${TARGET} IDRIS2_PATH=${IDRIS2_BOOT_PATH} - ${MAKE} -C libs/network install IDRIS2=../../${TARGET} IDRIS2_PATH=${IDRIS2_BOOT_PATH} IDRIS2_VERSION=${IDRIS2_VERSION} + ${MAKE} -C libs/network install IDRIS2=../../${TARGET} IDRIS2_PATH=${IDRIS2_BOOT_PATH} ${MAKE} -C libs/contrib install IDRIS2=../../${TARGET} IDRIS2_PATH=${IDRIS2_BOOT_PATH} @@ -122,19 +137,19 @@ bootstrap: support cp support/c/${IDRIS2_SUPPORT} bootstrap/idris2_app sed s/libidris2_support.so/${IDRIS2_SUPPORT}/g bootstrap/idris2_app/idris2.ss > bootstrap/idris2_app/idris2-boot.ss ifeq ($(OS), darwin) - sed -i '' 's|__PREFIX__|${CURDIR}/bootstrap|g' bootstrap/idris2_app/idris2-boot.ss + sed -i '' 's|__PREFIX__|${IDRIS2_CURDIR}/bootstrap|g' bootstrap/idris2_app/idris2-boot.ss else - sed -i 's|__PREFIX__|${CURDIR}/bootstrap|g' bootstrap/idris2_app/idris2-boot.ss + sed -i 's|__PREFIX__|${IDRIS2_CURDIR}/bootstrap|g' bootstrap/idris2_app/idris2-boot.ss endif sh ./bootstrap.sh bootstrap-racket: support cp support/c/${IDRIS2_SUPPORT} bootstrap/idris2_app - cp bootstrap/idris2.rkt bootstrap/idris2boot.rkt + cp bootstrap/idris2_app/idris2.rkt bootstrap/idris2_app/idris2-boot.rkt ifeq ($(OS), darwin) - sed -i '' 's|__PREFIX__|${CURDIR}/bootstrap|g' bootstrap/idris2boot.rkt + sed -i '' 's|__PREFIX__|${IDRIS2_CURDIR}/bootstrap|g' bootstrap/idris2_app/idris2-boot.rkt else - sed -i 's|__PREFIX__|${CURDIR}/bootstrap|g' bootstrap/idris2boot.rkt + sed -i 's|__PREFIX__|${IDRIS2_CURDIR}/bootstrap|g' bootstrap/idris2_app/idris2-boot.rkt endif sh ./bootstrap-rkt.sh diff --git a/README.md b/README.md index 855c6db8a..43a664b99 100644 --- a/README.md +++ b/README.md @@ -3,7 +3,7 @@ Idris 2 [![Build Status](https://travis-ci.org/idris-lang/Idris2.svg?branch=master)](https://travis-ci.org/idris-lang/Idris2) [![Documentation Status](https://readthedocs.org/projects/idris2/badge/?version=latest)](https://idris2.readthedocs.io/en/latest/?badge=latest) - +![](https://github.com/idris-lang/Idris2/workflows/Windows%20CI/badge.svg) [Idris 2](https://idris-lang.org/) is a purely functional programming language with first class types. @@ -16,8 +16,8 @@ you have Chez Scheme installed, with the executable name `chez`, type: You may need to change `chez` to be the local name of your Chez Scheme. This is often one of `scheme`, `chezscheme` or `chezscheme9.5` (depending on the -version). On a modern desktop machine, this process should take no more than -2 or 3 minutes. +version). On a modern desktop machine, this process (including tests) +should take less than 5 minutes. Idris 2 is mostly backwards compatible with Idris 1, with some minor exceptions. The most notable user visible differences, which might cause Idris diff --git a/bootstrap-rkt.sh b/bootstrap-rkt.sh index a9678d2d6..0d6b968e3 100644 --- a/bootstrap-rkt.sh +++ b/bootstrap-rkt.sh @@ -4,11 +4,13 @@ cd bootstrap echo "Building idris2boot from idris2boot.rkt" -raco exe idris2boot.rkt +raco exe idris2_app/idris2-boot.rkt # Put the result in the usual place where the target goes mkdir -p ../build/exec -install idris2boot ../build/exec/idris2 +mkdir -p ../build/exec/idris2_app +install idris2-rktboot ../build/exec/idris2 +install idris2_app/* ../build/exec/idris2_app cd .. diff --git a/bootstrap.sh b/bootstrap.sh index c1bcf6125..6392efee1 100644 --- a/bootstrap.sh +++ b/bootstrap.sh @@ -22,13 +22,28 @@ cd .. DIR="`realpath $0`" PREFIX="`dirname $DIR`"/bootstrap +if [ ${OS} = "windows" ]; then + IDRIS_PREFIX=$(cygpath -m $PREFIX) + IDRIS2_BOOT_PATH="${IDRIS_PREFIX}/idris2-0.2.0/prelude;${IDRIS_PREFIX}/idris2-0.2.0/base;${IDRIS_PREFIX}/idris2-0.2.0/contrib;${IDRIS_PREFIX}/idris2-0.2.0/network" + NEW_PREFIX=$(cygpath -m $(dirname "$DIR")) + IDRIS2_NEW_PATH="${NEW_PREFIX}/libs/prelude/build/ttc;${NEW_PREFIX}/libs/base/build/ttc;${NEW_PREFIX}/libs/network/build/ttc" + IDRIS2_TEST_LIBS="${IDRIS_PREFIX}/idris2-0.2.0/lib" + IDRIS2_TEST_DATA=${IDRIS_PREFIX}/idris2-0.2.0/support +else + IDRIS2_BOOT_PATH="${PREFIX}/idris2-0.2.0/prelude:${PREFIX}/idris2-0.2.0/base:${PREFIX}/idris2-0.2.0/contrib:${PREFIX}/idris2-0.2.0/network" + NEWPREFIX="`dirname $DIR`" + IDRIS2_NEW_PATH="${NEWPREFIX}/libs/prelude/build/ttc:${NEWPREFIX}/libs/base/build/ttc:${NEWPREFIX}/libs/network/build/ttc" + IDRIS2_TEST_LIBS="${PREFIX}/idris2-0.2.0/lib" IDRIS2_TEST_DATA=${PREFIX}/idris2-0.2.0/support +fi + # Now rebuild everything properly echo ${PREFIX} -IDRIS2_BOOT_PATH="${PREFIX}/idris2-0.2.0/prelude:${PREFIX}/idris2-0.2.0/base:${PREFIX}/idris2-0.2.0/contrib:${PREFIX}/idris2-0.2.0/network" make libs SCHEME=${SCHEME} PREFIX=${PREFIX} make install SCHEME=${SCHEME} PREFIX=${PREFIX} make clean IDRIS2_BOOT=${PREFIX}/bin/idris2 make all IDRIS2_BOOT=${PREFIX}/bin/idris2 SCHEME=${SCHEME} IDRIS2_PATH=${IDRIS2_BOOT_PATH} -make test INTERACTIVE='' IDRIS2_BOOT=${PREFIX}/bin/idris2 SCHEME=${SCHEME} IDRIS2_PATH=${IDRIS2_BOOT_PATH} IDRIS2_LIBS=${PREFIX}/idris2-0.2.0/lib IDRIS2_DATA=${PREFIX}/idris2-0.2.0/support + +echo "Testing using libraries in ${IDRIS2_NEW_PATH}" +make test INTERACTIVE='' IDRIS2_PATH=${IDRIS2_NEW_PATH} SCHEME=${SCHEME} IDRIS2_LIBS=${IDRIS2_TEST_LIBS} IDRIS2_DATA=${IDRIS2_TEST_DATA} diff --git a/bootstrap/idris2-boot b/bootstrap/idris2-boot index b2140b2c0..89b907b10 100755 --- a/bootstrap/idris2-boot +++ b/bootstrap/idris2-boot @@ -1,5 +1,5 @@ #!/bin/sh - DIR="`realpath $0`" export LD_LIBRARY_PATH="$LD_LIBRARY_PATH:`dirname "$DIR"`/"idris2_app"" +export PATH="`dirname "$DIR"`/"idris2_app":$PATH" ${SCHEME} --script "`dirname $DIR`"/"idris2_app/idris2-boot.so" "$@" diff --git a/bootstrap/idris2-rktboot b/bootstrap/idris2-rktboot new file mode 100755 index 000000000..9f4e28eda --- /dev/null +++ b/bootstrap/idris2-rktboot @@ -0,0 +1,5 @@ +#!/bin/sh +DIR="`realpath $0`" +export LD_LIBRARY_PATH="$LD_LIBRARY_PATH:`dirname "$DIR"`/"idris2_app"" +export PATH="`dirname "$DIR"`/"idris2_app":$PATH" +"`dirname $DIR`"/"idris2_app/idris2-boot" "$@" diff --git a/bootstrap/idris2.rkt b/bootstrap/idris2_app/idris2.rkt similarity index 85% rename from bootstrap/idris2.rkt rename to bootstrap/idris2_app/idris2.rkt index edef821f4..471184372 100755 --- a/bootstrap/idris2.rkt +++ b/bootstrap/idris2_app/idris2.rkt @@ -36,6 +36,16 @@ (define-libidris2_support idris2_changeDir (_fun _string/utf-8 -> _int)) (define-libc strlen (_fun _string/utf-8 -> _int)) (define-libc fprintf (_fun _pointer _string/utf-8 _int -> _void)) +(define-libc fdopen (_fun _int _string/utf-8 -> _pointer)) +(define-libidris2_support idrnet_errno (_fun -> _int)) +(define-libidris2_support listen (_fun _int _int -> _int)) +(define-libidris2_support idrnet_socket (_fun _int _int _int -> _int)) +(define-libidris2_support idrnet_sockaddr_ipv4 (_fun _pointer -> _string/utf-8)) +(define-libidris2_support idrnet_sockaddr_family (_fun _pointer -> _int)) +(define-libidris2_support idrnet_free (_fun _pointer -> _void)) +(define-libidris2_support idrnet_create_sockaddr (_fun -> _pointer)) +(define-libidris2_support idrnet_bind (_fun _int _int _int _string/utf-8 _int -> _int)) +(define-libidris2_support idrnet_accept (_fun _int _pointer -> _int)) (let () (define (blodwen-os) (cond @@ -305,6 +315,16 @@ (define Buffer-Data-prim__copyData (lambda (farg-0 farg-1 farg-2 farg-3 farg-4 farg-5) (blodwen-buffer-copydata farg-0 farg-1 farg-2 farg-3 farg-4))) (define Buffer-Data-prim__bufferSize (lambda (farg-0) (blodwen-buffer-size farg-0))) (define Commands-IDEMode-Idris-prim__printfHex (lambda (farg-0 farg-1 farg-2 farg-3) (fprintf farg-0 farg-1 farg-2) (vector 0 ))) +(define REPL-IDEMode-Idris-prim__fdopen (lambda (farg-0 farg-1 farg-2) (fdopen farg-0 farg-1))) +(define Data-Socket-Network-idrnet_errno (lambda (farg-0) (idrnet_errno ))) +(define FFI-Network-socket_listen (lambda (farg-0 farg-1 farg-2) (listen farg-0 farg-1))) +(define FFI-Network-idrnet_socket (lambda (farg-0 farg-1 farg-2 farg-3) (idrnet_socket farg-0 farg-1 farg-2))) +(define FFI-Network-idrnet_sockaddr_ipv4 (lambda (farg-0 farg-1) (idrnet_sockaddr_ipv4 farg-0))) +(define FFI-Network-idrnet_sockaddr_family (lambda (farg-0 farg-1) (idrnet_sockaddr_family farg-0))) +(define FFI-Network-idrnet_free (lambda (farg-0 farg-1) (idrnet_free farg-0) (vector 0 ))) +(define FFI-Network-idrnet_create_sockaddr (lambda (farg-0) (idrnet_create_sockaddr ))) +(define FFI-Network-idrnet_bind (lambda (farg-0 farg-1 farg-2 farg-3 farg-4 farg-5) (idrnet_bind farg-0 farg-1 farg-2 farg-3 farg-4))) +(define FFI-Network-idrnet_accept (lambda (farg-0 farg-1 farg-2) (idrnet_accept 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))) @@ -363,6 +383,7 @@ (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))) @@ -390,31 +411,33 @@ (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) (integer->char arg-0))) -(define Main-case--32153-9771 (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--32143-9759 (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--31094-9528 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 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--31314-9398 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 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--31392-9150 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 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 (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Not implemeted yet") eta-0))))))) -(define Main-case--31314-9094 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 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--31392-9150 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 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--31094-9041 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25) (let ((sc0 arg-25)) (cond ((equal? sc0 0) (let ((doRepl 0)) (Main-case--31314-9094 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 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--31314-9398 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 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--31094-8941 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 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--31002-8855 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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--31094-8941 arg-0 arg-1 arg-2 arg-3 arg-4 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--31314-9094 arg-0 arg-1 arg-2 arg-3 arg-4 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--31314-9398 arg-0 arg-1 arg-2 arg-3 arg-4 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--30877-8778 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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--31094-8941 arg-0 arg-1 arg-2 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--31314-9094 arg-0 arg-1 arg-2 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--31314-9398 arg-0 arg-1 arg-2 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--30877-8708 (lambda (arg-0 arg-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--30868-8659 (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-updatePaths 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--31094-8941 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--31314-9094 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--31314-9398 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--30862-8651 (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-updatePaths 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--31094-8941 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--31314-9094 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--31314-9398 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--30715-8535 (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--30698-8512 (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--30379-8485 (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--30379-8450 (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--30379-8407 (lambda (arg-0 arg-1 arg-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--30379-8356 (lambda (arg-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--30379-8289 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-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) (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-case--32972-9974 (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--32962-9962 (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--31653-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) (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--31873-9601 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 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--32176-9334 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 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--32032-9267 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 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--31951-9147 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26) (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--32032-9267 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 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--31873-9091 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 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--31951-9147 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 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--31653-9038 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25) (let ((sc0 arg-25)) (cond ((equal? sc0 0) (let ((doRepl 0)) (Main-case--31873-9091 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 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--31873-9601 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 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--31653-8938 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 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--31561-8852 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (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--31653-8938 arg-0 arg-1 arg-2 arg-3 arg-4 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--31873-9091 arg-0 arg-1 arg-2 arg-3 arg-4 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--31873-9601 arg-0 arg-1 arg-2 arg-3 arg-4 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--31436-8775 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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--31653-8938 arg-0 arg-1 arg-2 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--31873-9091 arg-0 arg-1 arg-2 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--31873-9601 arg-0 arg-1 arg-2 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--31436-8705 (lambda (arg-0 arg-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--31427-8656 (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-updatePaths 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--31653-8938 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--31873-9091 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--31873-9601 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--31421-8648 (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-updatePaths 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--31653-8938 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--31873-9091 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--31873-9601 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--31274-8532 (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--31257-8509 (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--30938-8482 (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--30938-8447 (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--30938-8404 (lambda (arg-0 arg-1 arg-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--30938-8353 (lambda (arg-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--30938-8286 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-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) (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-updatePaths (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 ((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 ((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 ((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 ((act-23 (let ((act-23 (IORef-Data-readIORef 'erased arg-0 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 (SetOptions-Idris-addPkgDir arg-0 "prelude" 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 (SetOptions-Idris-addPkgDir arg-0 "base" 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 (Context-Core-addDataDir arg-0 (Strings-Prelude-C-43C-43 (let ((sc11 (let ((sc12 (let ((sc13 e-13)) (let ((e-4 (vector-ref sc13 5))) e-4)))) (let ((e-0 (vector-ref sc12 1))) e-0)))) (let ((e-4 (vector-ref sc11 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 ((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 (Context-Core-addLibDir arg-0 (Strings-Prelude-C-43C-43 (let ((sc12 (let ((sc13 (let ((sc14 e-13)) (let ((e-4 (vector-ref sc14 5))) e-4)))) (let ((e-0 (vector-ref sc13 1))) e-0)))) (let ((e-4 (vector-ref sc12 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 ((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 (let ((act-28 (Directory-System-currentDir ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-28) 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 ((sc14 e-18)) (case (vector-ref sc14 0) ((1) (let ((e-1 (vector-ref sc14 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-updatePaths 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--31094-8941 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--31314-9094 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--31314-9398 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-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-updatePaths 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--31653-8938 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--31873-9091 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--31873-9601 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))))))))) @@ -422,25 +445,25 @@ (define Main-checkVerbose (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) 1) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((10) 0)(else (Main-checkVerbose e-3))))))))))) (define Main-banner (lambda () (Strings-Prelude-C-43C-43 " ____ __ _ ___ \u000a" (Strings-Prelude-C-43C-43 " / _/___/ /____(_)____ |__ \\ \u000a" (Strings-Prelude-C-43C-43 " / // __ / ___/ / ___/ __/ / Version " (Strings-Prelude-C-43C-43 (Version-Idris-showVersion 0 (Version-Idris-version)) (Strings-Prelude-C-43C-43 "\u000a" (Strings-Prelude-C-43C-43 " _/ // /_/ / / / (__ ) / __/ https://www.idris-lang.org \u000a" (Strings-Prelude-C-43C-43 " /___/\\__,_/_/ /_/____/ /____/ Type :? for help \u000a" (Strings-Prelude-C-43C-43 "\u000a" "Welcome to Idris 2. Enjoy yourself!")))))))))) (define IdrisPaths-yprefix (lambda () "__PREFIX__")) -(define IdrisPaths-idrisVersion (lambda () (vector 0 (vector 0 0 (vector 0 (+ 1 (+ 1 0)) 0)) "f09baeb46"))) -(define Prelude-case--7922-8680 (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--8147-8609 (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--8082-8546 (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--8147-8609 '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--7920-8485 (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--8082-8546 '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--7954-8418 (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--7919-8367 (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--7954-8418 '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--7705-8154 (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--7685-8127 (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--7705-8154 arg-0 arg-1 (Prelude-C-62_Ord__Nat arg-1 arg-0))))))) -(define Prelude-case--7547-7976 (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--7495-7925 (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--6693-7150 (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--6546-7128 (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--6693-7150 arg-0 (Prelude-C-62_Ord__Char arg-0 (integer->char 127)))))))) -(define Prelude-case--6521-6963 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) "\\&") (else ""))))) -(define Prelude-case--6265-6776 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) arg-1) (else arg-0))))) -(define Prelude-case--6266-6762 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) arg-1) (else arg-0))))) -(define Prelude-case--6099-6586 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (integer->char (Prelude-C-43_Num__Int (char->integer arg-0) 32))) (else arg-0))))) -(define Prelude-case--6084-6572 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (integer->char (Prelude-C-45_Neg__Int (char->integer arg-0) 32))) (else arg-0))))) -(define Prelude-case--5954-6461 (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--5952-6451-unpackC-39 arg-0 (Prelude-C-43_Num__Int arg-3 1) arg-2 arg-1))))))) +(define IdrisPaths-idrisVersion (lambda () (vector 0 (vector 0 0 (vector 0 (+ 1 (+ 1 0)) 0)) "561123d49"))) +(define Prelude-case--7924-8682 (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--8149-8611 (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--8084-8548 (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--8149-8611 '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--7922-8487 (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--8084-8548 '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--7956-8420 (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--7921-8369 (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--7956-8420 '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--7707-8156 (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--7687-8129 (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--7707-8156 arg-0 arg-1 (Prelude-C-62_Ord__Nat arg-1 arg-0))))))) +(define Prelude-case--7549-7978 (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--7497-7927 (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--6695-7152 (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--6548-7130 (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--6695-7152 arg-0 (Prelude-C-62_Ord__Char arg-0 (integer->char 127)))))))) +(define Prelude-case--6523-6965 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) "\\&") (else ""))))) +(define Prelude-case--6267-6778 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) arg-1) (else arg-0))))) +(define Prelude-case--6268-6764 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) arg-1) (else arg-0))))) +(define Prelude-case--6101-6588 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (integer->char (Prelude-C-43_Num__Int (char->integer arg-0) 32))) (else arg-0))))) +(define Prelude-case--6086-6574 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (integer->char (Prelude-C-45_Neg__Int (char->integer arg-0) 32))) (else arg-0))))) +(define Prelude-case--5955-6462 (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-6452-unpackC-39 arg-0 (Prelude-C-43_Num__Int arg-3 1) arg-2 arg-1))))))) (define Prelude-case--5893-6406 (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-6280 (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-5669 (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))))) @@ -470,11 +493,11 @@ (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--5952-6451-unpackC-39 (lambda (arg-0 arg-1 arg-2 arg-3) (Prelude-case--5954-6461 arg-0 arg-3 arg-2 arg-1 (Prelude-C-62C-61_Ord__Int arg-1 arg-2)))) -(define Prelude-n--6951-7393-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--6951-7393-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--6114-6598-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--6546-7008-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--6546-7008-getAt arg-0 e-1 e-7)))(else (let ((sc0 arg-2)) (vector 0 ))))))))))) -(define Prelude-n--6546-7007-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-n--5953-6452-unpackC-39 (lambda (arg-0 arg-1 arg-2 arg-3) (Prelude-case--5955-6462 arg-0 arg-3 arg-2 arg-1 (Prelude-C-62C-61_Ord__Int arg-1 arg-2)))) +(define Prelude-n--6953-7395-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--6953-7395-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--6116-6600-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--6548-7010-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--6548-7010-getAt arg-0 e-1 e-7)))(else (let ((sc0 arg-2)) (vector 0 ))))))))))) +(define Prelude-n--6548-7009-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))) @@ -485,7 +508,7 @@ (define Prelude-show_Show__Bool (lambda (arg-0) (let ((sc0 arg-0)) (cond ((equal? sc0 0) "True") (else "False"))))) (define Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (let ((sc1 (Builtin-fst 'erased 'erased arg-2))) (let ((e-1 (vector-ref sc1 1))) (e-1 e-2))) (Strings-Prelude-C-43C-43 ", " (Strings-Prelude-C-43C-43 (let ((sc1 (Builtin-snd 'erased 'erased arg-2))) (let ((e-1 (vector-ref sc1 1))) (e-1 e-3))) ")"))))))))) (define Prelude-show_Show__C-40MaybeC-32C-36aC-41 (lambda (arg-0 arg-1 arg-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased arg-1 (vector 0 ) arg-2))) -(define Prelude-show_Show__C-40ListC-32C-36aC-41 (lambda (arg-0 arg-1 arg-2) (Strings-Prelude-C-43C-43 "[" (Strings-Prelude-C-43C-43 (Prelude-n--6951-7393-showC-39 'erased arg-1 arg-2 "" arg-2) "]")))) +(define Prelude-show_Show__C-40ListC-32C-36aC-41 (lambda (arg-0 arg-1 arg-2) (Strings-Prelude-C-43C-43 "[" (Strings-Prelude-C-43C-43 (Prelude-n--6953-7395-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))) @@ -499,10 +522,10 @@ (define Prelude-showPrec_Show__C-40C-40EitherC-32C-36aC-41C-32C-36bC-41 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-showCon arg-3 "Left" (Prelude-showArg 'erased (Builtin-fst 'erased 'erased arg-2) e-2)))) (else (let ((e-5 (vector-ref sc0 1))) (Prelude-showCon arg-3 "Right" (Prelude-showArg 'erased (Builtin-snd 'erased 'erased arg-2) e-5)))))))) (define Prelude-rangeFrom_Range__Nat (lambda (arg-0) (Prelude-countFrom 'erased arg-0 (lambda (eta-0) (+ 1 eta-0))))) (define Prelude-rangeFrom_Range__C-36a (lambda (arg-0 arg-1 arg-2) (Prelude-countFrom 'erased arg-2 (lambda (arg-3) (let ((sc0 (let ((sc1 (Builtin-fst 'erased 'erased arg-1))) (let ((e-1 (vector-ref sc1 1))) e-1)))) (let ((e-1 (vector-ref sc0 1))) ((e-1 (let ((sc1 (let ((sc2 (Builtin-fst 'erased 'erased arg-1))) (let ((e-6 (vector-ref sc2 1))) e-6)))) (let ((e-4 (vector-ref sc1 3))) (e-4 1)))) arg-3))))))) -(define Prelude-rangeFromTo_Range__Nat (lambda (arg-0 arg-1) (Prelude-case--7685-8127 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--7919-8367 '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--7922-8680 '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--7920-8485 'erased arg-1 arg-2 arg-3 arg-4 (let ((sc0 (Builtin-fst 'erased 'erased (Builtin-snd 'erased 'erased arg-1)))) (let ((e-4 (vector-ref sc0 4))) ((e-4 (let ((sc1 (Builtin-snd 'erased 'erased (Builtin-snd 'erased 'erased arg-1)))) (let ((e-9 (vector-ref sc1 3))) ((e-9 arg-4) arg-2)))) (let ((sc1 (Builtin-snd 'erased 'erased (Builtin-snd 'erased 'erased arg-1)))) (let ((e-9 (vector-ref sc1 3))) ((e-9 arg-4) arg-3))))))))) +(define Prelude-rangeFromTo_Range__Nat (lambda (arg-0 arg-1) (Prelude-case--7687-8129 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--7921-8369 '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--7924-8682 '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--7922-8487 '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)) @@ -515,14 +538,14 @@ (define Prelude-mod_Integral__Integer (lambda (arg-0 arg-1) (Prelude-case--2512-2660 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-2764 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--6266-6762 arg-1 arg-0 (Prelude-C-60_Ord__Prec arg-0 arg-1)))) +(define Prelude-min_Ord__Prec (lambda (arg-0 arg-1) (Prelude-case--6268-6764 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-4003 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-5532 '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--6265-6776 arg-1 arg-0 (Prelude-C-62_Ord__Prec arg-0 arg-1)))) +(define Prelude-max_Ord__Prec (lambda (arg-0 arg-1) (Prelude-case--6267-6778 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-4017 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)))) @@ -583,7 +606,7 @@ (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-8012) (lambda (arg-8013) (Prelude-rangeFromTo_Range__C-36a 'erased arg-1 arg-8012 arg-8013))) (lambda (arg-8014) (lambda (arg-8015) (lambda (arg-8016) (Prelude-rangeFromThenTo_Range__C-36a 'erased arg-1 arg-8014 arg-8015 arg-8016)))) (lambda (arg-8017) (Prelude-rangeFrom_Range__C-36a 'erased arg-1 arg-8017)) (lambda (arg-8018) (lambda (arg-8019) (Prelude-rangeFromThen_Range__C-36a 'erased arg-1 arg-8018 arg-8019)))))) +(define Prelude-__Impl_Range_C-36a (lambda (arg-0 arg-1) (vector 0 (lambda (arg-8014) (lambda (arg-8015) (Prelude-rangeFromTo_Range__C-36a 'erased arg-1 arg-8014 arg-8015))) (lambda (arg-8016) (lambda (arg-8017) (lambda (arg-8018) (Prelude-rangeFromThenTo_Range__C-36a 'erased arg-1 arg-8016 arg-8017 arg-8018)))) (lambda (arg-8019) (Prelude-rangeFrom_Range__C-36a 'erased arg-1 arg-8019)) (lambda (arg-8020) (lambda (arg-8021) (Prelude-rangeFromThen_Range__C-36a 'erased arg-1 arg-8020 arg-8021)))))) (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)))))) @@ -708,15 +731,15 @@ (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--5952-6451-unpackC-39 arg-0 0 (Prelude-length arg-0) arg-0))) +(define Prelude-unpack (lambda (arg-0) (Prelude-n--5953-6452-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--6084-6572 arg-0 (Prelude-isLower arg-0)))) -(define Prelude-toLower (lambda (arg-0) (Prelude-case--6099-6586 arg-0 (Prelude-isUpper arg-0)))) +(define Prelude-toUpper (lambda (arg-0) (Prelude-case--6086-6574 arg-0 (Prelude-isLower arg-0)))) +(define Prelude-toLower (lambda (arg-0) (Prelude-case--6101-6588 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--7495-7925 '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--7547-7976 'erased e-1 e-2 arg-1 (arg-1 e-1))))))) +(define Prelude-takeUntil (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (Prelude-case--7497-7927 '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--7549-7978 '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-6406 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))) @@ -725,7 +748,7 @@ (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--6546-7128 arg-0 (Prelude-n--6546-7008-getAt arg-0 (Prelude-fromInteger_Num__Nat (char->integer arg-0)) (Prelude-n--6546-7007-asciiTab arg-0)))))))) +(define Prelude-showLitChar (lambda (arg-0) (let ((sc0 arg-0)) (cond ((equal? sc0 (integer->char 7)) (lambda (arg-1) (Strings-Prelude-C-43C-43 "\\a" arg-1))) ((equal? sc0 (integer->char 8)) (lambda (arg-1) (Strings-Prelude-C-43C-43 "\\b" arg-1))) ((equal? sc0 (integer->char 12)) (lambda (arg-1) (Strings-Prelude-C-43C-43 "\\f" arg-1))) ((equal? sc0 (integer->char 10)) (lambda (arg-1) (Strings-Prelude-C-43C-43 "\\n" arg-1))) ((equal? sc0 (integer->char 13)) (lambda (arg-1) (Strings-Prelude-C-43C-43 "\\r" arg-1))) ((equal? sc0 (integer->char 9)) (lambda (arg-1) (Strings-Prelude-C-43C-43 "\\t" arg-1))) ((equal? sc0 (integer->char 11)) (lambda (arg-1) (Strings-Prelude-C-43C-43 "\\v" arg-1))) ((equal? sc0 (integer->char 14)) (lambda (eta-0) (Prelude-protectEsc (lambda (arg-1) (Prelude-C-61C-61_Eq__Char arg-1 #\H)) "\\SO" eta-0))) ((equal? sc0 (integer->char 127)) (lambda (arg-1) (Strings-Prelude-C-43C-43 "\\DEL" arg-1))) ((equal? sc0 #\\) (lambda (arg-1) (Strings-Prelude-C-43C-43 "\\\\" arg-1)))(else (Prelude-case--6548-7130 arg-0 (Prelude-n--6548-7010-getAt arg-0 (Prelude-fromInteger_Num__Nat (char->integer arg-0)) (Prelude-n--6548-7009-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)))))) @@ -734,12 +757,13 @@ (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--6521-6963 arg-2 arg-1 arg-0 (Prelude-firstCharIs arg-0 arg-2)) arg-2)))) +(define Prelude-protectEsc (lambda (arg-0 arg-1 arg-2) (Strings-Prelude-C-43C-43 arg-1 (Strings-Prelude-C-43C-43 (Prelude-case--6523-6965 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)))))) @@ -757,7 +781,7 @@ (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--6114-6598-hexChars arg-0)))) +(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--6116-6600-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))))) @@ -826,93 +850,102 @@ (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--23837-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-1237) (lambda (arg-1239) (Binary-Utils-toBuf_TTC__C-40C-124UnitC-44MkUnitC-124C-41 arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124UnitC-44MkUnitC-124C-41 arg-1240 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-4481) (lambda (arg-4482) (lambda (eta-1) (Main-Yaffle-full_HasNames__C-40C-124UnitC-44MkUnitC-124C-41 arg-4481 arg-4482 eta-1)))) (lambda (arg-4483) (lambda (arg-4484) (lambda (eta-1) (Main-Yaffle-resolved_HasNames__C-40C-124UnitC-44MkUnitC-124C-41 arg-4483 arg-4484 eta-1))))) (vector 0 (lambda (arg-1237) (lambda (arg-1239) (Binary-Utils-toBuf_TTC__C-40C-124UnitC-44MkUnitC-124C-41 arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124UnitC-44MkUnitC-124C-41 arg-1240 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-4481) (lambda (arg-4482) (lambda (eta-1) (Main-Yaffle-full_HasNames__C-40C-124UnitC-44MkUnitC-124C-41 arg-4481 arg-4482 eta-1)))) (lambda (arg-4483) (lambda (arg-4484) (lambda (eta-1) (Main-Yaffle-resolved_HasNames__C-40C-124UnitC-44MkUnitC-124C-41 arg-4483 arg-4484 eta-1))))) (vector 0 (lambda (arg-1237) (lambda (arg-1239) (Binary-Utils-toBuf_TTC__C-40C-124UnitC-44MkUnitC-124C-41 arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124UnitC-44MkUnitC-124C-41 arg-1240 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-case--24223-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-4524) (lambda (arg-4525) (lambda (eta-1) (Main-Yaffle-full_HasNames__C-40C-124UnitC-44MkUnitC-124C-41 arg-4524 arg-4525 eta-1)))) (lambda (arg-4526) (lambda (arg-4527) (lambda (eta-1) (Main-Yaffle-resolved_HasNames__C-40C-124UnitC-44MkUnitC-124C-41 arg-4526 arg-4527 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-4524) (lambda (arg-4525) (lambda (eta-1) (Main-Yaffle-full_HasNames__C-40C-124UnitC-44MkUnitC-124C-41 arg-4524 arg-4525 eta-1)))) (lambda (arg-4526) (lambda (arg-4527) (lambda (eta-1) (Main-Yaffle-resolved_HasNames__C-40C-124UnitC-44MkUnitC-124C-41 arg-4526 arg-4527 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-4481) (lambda (arg-4482) (lambda (eta-0) (Main-Yaffle-full_HasNames__C-40C-124UnitC-44MkUnitC-124C-41 arg-4481 arg-4482 eta-0)))) (lambda (arg-4483) (lambda (arg-4484) (lambda (eta-0) (Main-Yaffle-resolved_HasNames__C-40C-124UnitC-44MkUnitC-124C-41 arg-4483 arg-4484 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--23837-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-__Impl_HasNames_C-40C-124UnitC-44MkUnitC-124C-41 (lambda () (vector 0 (lambda (arg-4524) (lambda (arg-4525) (lambda (eta-0) (Main-Yaffle-full_HasNames__C-40C-124UnitC-44MkUnitC-124C-41 arg-4524 arg-4525 eta-0)))) (lambda (arg-4526) (lambda (arg-4527) (lambda (eta-0) (Main-Yaffle-resolved_HasNames__C-40C-124UnitC-44MkUnitC-124C-41 arg-4526 arg-4527 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--24223-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 [--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--1989-1613 (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-case--2049-1631 (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--1989-1613 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-getEnv (lambda (arg-0 ext-0) (let ((act-15 (System-prim_getEnv arg-0 ext-0))) ((System-case--2049-1631 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-case--2071-660 (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--2029-615 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (Strings-Data-n--2027-605-ltrimChars arg-0 arg-2)) (else (vector 1 arg-1 arg-2)))))) -(define Strings-Data-case--1960-553 (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--1952-539 (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--1892-480 (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--1887-467 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (vector 0 ))(else (Strings-Data-case--1892-480 arg-0 arg-1 (List-Data-break 'erased (lambda (eta-0) (Prelude-isSpace eta-0)) arg-1))))))) -(define Strings-Data-n--1874-451-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--1874-451-toFArgs arg-0 e-3))))))))) -(define Strings-Data-n--2027-605-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--2029-615 arg-0 e-2 e-3 (Prelude-isSpace e-2))))))))) -(define Strings-Data-n--1927-502-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--1887-467 arg-0 (List-Data-dropWhile 'erased (lambda (eta-0) (Prelude-isSpace eta-0)) arg-0)))) +(define Strings-Data-with--2277-818 (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)) (case (vector-ref sc1 0) ((1) (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--2279-848 '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 (Builtin-idris_crash 'erased "Unhandled input for Data.Strings.with block in 2277 at Data/Strings.idr:222:5--239:1"))))))))(else (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((1) (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--2279-848 '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 (Builtin-idris_crash 'erased "Unhandled input for Data.Strings.with block in 2277 at Data/Strings.idr:222:5--239:1"))))))))) +(define Strings-Data-case--2279-848 (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)))))) ((equal? sc0 1) (vector 0 ))(else (Builtin-idris_crash 'erased "Unhandled input for Data.Strings.case block in 2279(848) at Data/Strings.idr:222:5--239:1")))))) +(define Strings-Data-case--2220-783 (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--2133-678 (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--2091-633 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (Strings-Data-n--2089-623-ltrimChars arg-0 arg-2)) (else (vector 1 arg-1 arg-2)))))) +(define Strings-Data-case--2022-571 (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--2014-557 (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--1953-497 (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--1948-484 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (vector 0 ))(else (Strings-Data-case--1953-497 arg-0 arg-1 (List-Data-break 'erased (lambda (eta-0) (Prelude-isSpace eta-0)) arg-1))))))) +(define Strings-Data-n--1935-468-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--1935-468-toFArgs arg-0 e-3))))))))) +(define Strings-Data-n--2270-816-parsePosTrimmed (lambda (arg-0 arg-1 arg-2 arg-3) (Strings-Data-with--2277-818 'erased arg-1 arg-3 arg-3 (Strings-Data-strM arg-3)))) +(define Strings-Data-n--2089-623-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--2091-633 arg-0 e-2 e-3 (Prelude-isSpace e-2))))))))) +(define Strings-Data-n--1988-519-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--1948-484 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--1927-502-addSpace arg-0 eta-0 eta-1))) arg-0)))))) +(define Strings-Data-unwordsC-39 (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (vector 0 ))(else (Strings-Data-foldr1 'erased (lambda (eta-0) (lambda (eta-1) (Strings-Data-n--1988-519-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--2071-660 arg-1 arg-0 (List-Data-span 'erased arg-0 (Prelude-unpack arg-1))))) -(define Strings-Data-ltrim (lambda (arg-0) (Prelude-pack (Strings-Data-n--2027-605-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--1952-539 arg-0 (List-Data-break 'erased (lambda (eta-0) (Prelude-isNL eta-0)) arg-0))))))) +(define Strings-Data-span (lambda (arg-0 arg-1) (Strings-Data-case--2133-678 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--2270-816-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--2220-783 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--2089-623-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--2014-557 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)) (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)))))))))) -(define Strings-Data-fastAppend (lambda (arg-0) (PrimIO-unsafePerformIO 'erased (lambda (eta-0) (apply string-append (blodwen-read-args (Strings-Data-n--1874-451-toFArgs arg-0 arg-0))))))) -(define List-Data-with--4077-2938 (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--4077-2880 (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--4003-2857 (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--4077-2880 '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--4077-2938 '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--3463-2271 (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--3354-2204 (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--3250-2057 (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--3120-1928 (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--2308-1160 (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--2225-1086 (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--2199-1066 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (List-Data-case--2225-1086 '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--2091-947 (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--2026-864 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (List-Data-n--2022-846-nubByC-39 'erased arg-4 arg-3 arg-2)) (else (vector 1 arg-1 (List-Data-n--2022-846-nubByC-39 'erased (vector 1 arg-1 arg-4) arg-3 arg-2))))))) -(define List-Data-case--1956-801 (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--1850-700 (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--1819-676 (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--1850-700 'erased 'erased arg-4 arg-5 arg-2 e-2 e-3 x ((arg-5 arg-2) e-2)))))))) -(define List-Data-case--1763-609 (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--1708-555 (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--3590-2380-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--3590-2380-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--3590-2380-spreadHeads 'erased arg-1 arg-2 e-3 e-7)))))))))))))) -(define List-Data-n--3354-2154-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--3354-2154-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--3354-2155-split (lambda (arg-0 arg-1 arg-2 arg-3) (List-Data-n--3354-2154-splitRec 'erased arg-1 arg-2 'erased arg-3 arg-3 (lambda (eta-0) eta-0)))) -(define List-Data-n--2022-846-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--2026-864 '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--4003-2857 'erased arg-1 e-2 e-10 ((arg-1 e-2) e-10) e-3 e-11))))))))))))) +(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--1935-468-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--4428-3246 (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--4428-3188 (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--4354-3165 (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--4428-3188 '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--4428-3246 '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--3814-2579 (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--3705-2512 (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--3601-2365 (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--3342-2100 (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--3941-2688-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--3941-2688-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--3941-2688-spreadHeads 'erased arg-1 arg-2 e-3 e-7)))))))))))))) +(define List-Data-n--3705-2462-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--3705-2462-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--3705-2463-split (lambda (arg-0 arg-1 arg-2 arg-3) (List-Data-n--3705-2462-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--4354-3165 '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--3590-2380-spreadHeads 'erased e-2 e-3 e-2 (List-Data-transpose 'erased e-3))))))))) +(define List-Data-transpose (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (List-Data-n--3941-2688-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--2308-1160 '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--2199-1066 '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--3354-2204 'erased arg-2 arg-1 (List-Data-n--3354-2155-split 'erased arg-2 arg-1 arg-2))))))))(else (List-Data-case--3354-2204 'erased arg-2 arg-1 (List-Data-n--3354-2155-split 'erased arg-2 arg-1 arg-2))))))) +(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--3705-2512 'erased arg-2 arg-1 (List-Data-n--3705-2463-split 'erased arg-2 arg-1 arg-2))))))))(else (List-Data-case--3705-2512 'erased arg-2 arg-1 (List-Data-n--3705-2463-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--2022-846-nubByC-39 'erased (vector 0 ) ext-0 ext-1))) +(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--3250-2057 '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--3120-1928 '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--1850-700 'erased 'erased e-3 arg-2 arg-3 e-5 e-4 x ((arg-2 arg-3) e-5))))))))))))) +(define List-Data-mergeBy (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) arg-3)(else (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) arg-2)(else (let ((sc0 arg-2)) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 arg-3)) (let ((e-4 (vector-ref sc1 1))) (let ((e-5 (vector-ref sc1 2))) (List-Data-case--3601-2365 '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--3342-2100 '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 ))))) @@ -921,39 +954,39 @@ (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--3463-2271 'erased e-1 e-2 e-4 e-5 arg-1 ((arg-1 e-1) e-4)))))))))))))))) +(define List-Data-isPrefixOfBy (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) 0)(else (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) 1)(else (let ((sc0 arg-2)) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 arg-3)) (let ((e-4 (vector-ref sc1 1))) (let ((e-5 (vector-ref sc1 2))) (List-Data-case--3814-2579 '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--1763-609 '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--1956-801 '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--1708-555 'erased e-2 e-3 arg-1 (arg-1 e-2))))))))) +(define List-Data-filter (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (List-Data-case--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--2091-947 'erased arg-2 e-2 e-3 arg-1 ((arg-1 arg-2) e-2))))))))) +(define List-Data-deleteBy (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (List-Data-case--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--1925-1846 (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--1925-1768 (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--1889-1739 (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--1925-1768 '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--1925-1846 '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--2661-2481 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (vector 0 (Equality-Decidable-n--2661-2445-primitiveEq arg-0 arg-1 'erased 'erased 'erased))) (else (vector 1 (lambda (eta-0) (Equality-Decidable-n--2661-2446-primitiveNotEq arg-0 arg-1 'erased 'erased 'erased eta-0)))))))) -(define Equality-Decidable-case--2594-2418 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (vector 0 (Equality-Decidable-n--2594-2382-primitiveEq arg-0 arg-1 'erased 'erased 'erased))) (else (vector 1 (lambda (eta-0) (Equality-Decidable-n--2594-2383-primitiveNotEq arg-0 arg-1 'erased 'erased 'erased eta-0)))))))) -(define Equality-Decidable-case--2527-2355 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (vector 0 (Equality-Decidable-n--2527-2319-primitiveEq arg-0 arg-1 'erased 'erased 'erased))) (else (vector 1 (lambda (eta-0) (Equality-Decidable-n--2527-2320-primitiveNotEq arg-0 arg-1 'erased 'erased 'erased eta-0)))))))) -(define Equality-Decidable-case--2460-2292 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (vector 0 (Equality-Decidable-n--2460-2256-primitiveEq arg-0 arg-1 'erased 'erased 'erased))) (else (vector 1 (lambda (eta-0) (Equality-Decidable-n--2460-2257-primitiveNotEq arg-0 arg-1 'erased 'erased 'erased eta-0)))))))) -(define Equality-Decidable-n--2661-2446-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--2594-2383-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--2527-2320-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--2460-2257-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--2661-2445-primitiveEq (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (Builtin-believe_me 'erased 'erased (vector 0 )))) -(define Equality-Decidable-n--2594-2382-primitiveEq (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (Builtin-believe_me 'erased 'erased (vector 0 )))) -(define Equality-Decidable-n--2527-2319-primitiveEq (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (Builtin-believe_me 'erased 'erased (vector 0 )))) -(define Equality-Decidable-n--2460-2256-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--2661-2481 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--2594-2418 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--2460-2292 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--2527-2355 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--1889-1739 'erased 'erased arg-2 e-2 e-6 (((Builtin-fst 'erased 'erased arg-2) e-2) e-6) e-3 e-7))))))))) +(define Equality-Decidable-with--1973-2021 (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-1943 (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-1914 (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-1943 '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-2021 '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-2656 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (vector 0 (Equality-Decidable-n--2709-2620-primitiveEq arg-0 arg-1 'erased 'erased 'erased))) (else (vector 1 (lambda (eta-0) (Equality-Decidable-n--2709-2621-primitiveNotEq arg-0 arg-1 'erased 'erased 'erased eta-0)))))))) +(define Equality-Decidable-case--2642-2593 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (vector 0 (Equality-Decidable-n--2642-2557-primitiveEq arg-0 arg-1 'erased 'erased 'erased))) (else (vector 1 (lambda (eta-0) (Equality-Decidable-n--2642-2558-primitiveNotEq arg-0 arg-1 'erased 'erased 'erased eta-0)))))))) +(define Equality-Decidable-case--2575-2530 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (vector 0 (Equality-Decidable-n--2575-2494-primitiveEq arg-0 arg-1 'erased 'erased 'erased))) (else (vector 1 (lambda (eta-0) (Equality-Decidable-n--2575-2495-primitiveNotEq arg-0 arg-1 'erased 'erased 'erased eta-0)))))))) +(define Equality-Decidable-case--2508-2467 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (vector 0 (Equality-Decidable-n--2508-2431-primitiveEq arg-0 arg-1 'erased 'erased 'erased))) (else (vector 1 (lambda (eta-0) (Equality-Decidable-n--2508-2432-primitiveNotEq arg-0 arg-1 'erased 'erased 'erased eta-0)))))))) +(define Equality-Decidable-n--2709-2621-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-2558-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-2495-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-2432-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-2620-primitiveEq (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (Builtin-believe_me 'erased 'erased (vector 0 )))) +(define Equality-Decidable-n--2642-2557-primitiveEq (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (Builtin-believe_me 'erased 'erased (vector 0 )))) +(define Equality-Decidable-n--2575-2494-primitiveEq (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (Builtin-believe_me 'erased 'erased (vector 0 )))) +(define Equality-Decidable-n--2508-2431-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-2656 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-2593 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-2467 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-2530 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-1914 '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))) @@ -962,149 +995,53 @@ (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--1287-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-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--1287-341 e-0 e-1 (Nat-Data-isLTE e-0 e-1)))))))))))) +(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--24250-8150 (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--24229-8102 (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__ParseError x)) (lambda (d) (lambda (x) (Support-Parser-showPrec_Show__ParseError 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--23076-7964 (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--23929-7866 (lambda (arg-0 arg-1 arg-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--23873-7802 (lambda (arg-0 arg-1 arg-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 ":\u000a" (Name-Core-showSep "\u000a" (Prelude-map_Functor__List 'erased 'erased (lambda (arg-10) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) arg-10)) e-0)))) eta-0))) (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--23076-7751 (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--23873-7802 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--23642-7593 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-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--23590-7540 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (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--23076-7493 (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--23076-7357 (lambda (arg-0 arg-1 arg-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-4481) (lambda (arg-4482) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4481 arg-4482))) (lambda (arg-4483) (lambda (arg-4484) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4483 arg-4484)))) 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--23076-7227 (lambda (arg-0 arg-1 arg-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-4481) (lambda (arg-4482) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4481 arg-4482))) (lambda (arg-4483) (lambda (arg-4484) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4483 arg-4484)))) 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--23076-7160 (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--23076-7019 (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--23076-7071-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-case--24633-8147 (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--24612-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__ParseError x)) (lambda (d) (lambda (x) (Support-Parser-showPrec_Show__ParseError 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--23459-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--24312-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--24256-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 ":\u000a" (Name-Core-showSep "\u000a" (Prelude-map_Functor__List 'erased 'erased (lambda (arg-10) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) arg-10)) e-0)))) eta-0))) (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--23459-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--24256-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--24025-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--23973-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--23459-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--23459-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-4524) (lambda (arg-4525) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4526 arg-4527)))) 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--23459-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-4524) (lambda (arg-4525) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4526 arg-4527)))) 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--23459-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--23459-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--23459-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 " ==>\u000a" (Strings-Prelude-C-43C-43 "\u0009" (Strings-Prelude-C-43C-43 (Context-Core-show_Show__Def (let ((sc2 e-7)) (let ((e-17 (vector-ref sc2 18))) e-17))) (Strings-Prelude-C-43C-43 "\u000a" (Strings-Prelude-C-43C-43 "\u0009" (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Context-Core-show_Show__SCCall x)) (lambda (d) (lambda (x) (Context-Core-showPrec_Show__SCCall d x)))) (let ((sc2 e-7)) (let ((e-20 (vector-ref sc2 21))) e-20))) "\u000a"))))))) eta-0))) (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--24229-8102 arg-2 arg-1 arg-0 e-5 e-6 (Support-Parser-runParser 'erased 0 (vector 0 ) e-6 (Parser-TTImp-command))) ext-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--24612-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--23076-7071-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-4481) (lambda (arg-4482) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4481 arg-4482))) (lambda (arg-4483) (lambda (arg-4484) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4483 arg-4484)))) 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-4481) (lambda (arg-4482) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4481 arg-4482))) (lambda (arg-4483) (lambda (arg-4484) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4483 arg-4484)))) 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--23873-7802 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 Support-Parser-case--7647-5328 (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 (Support-Parser-blockEntry 'erased (vector 1 arg-5) arg-3))) (lambda (hidt) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Support-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 Support-Parser-case--7560-5173 (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 (Support-Parser-blockEntries 'erased (vector 1 arg-3) arg-1)))))) -(define Support-Parser-case--7239-4844 (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 Support-Parser-case--7239-4811 (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 Support-Parser-case--7239-4782 (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 Support-Parser-case--7197-4746 (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 Support-Parser-case--7138-4711 (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 Support-Parser-case--7053-4622 (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 Support-Parser-case--7053-4598 (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 Support-Parser-case--6938-4523 (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 Support-Parser-case--6800-4379 (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 Support-Parser-case--6800-4360 (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 Support-Parser-case--6747-4297 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((e-0 (vector-ref sc0 1))) (vector 1 e-0)))(else (vector 0 )))))) -(define Support-Parser-case--6727-4280 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (vector 1 e-0)))(else (vector 0 )))))) -(define Support-Parser-case--6703-4258 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((sc1 e-0)) (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) (vector 1 e-2))(else (vector 0 )))))))(else (vector 0 ))))))(else (vector 0 )))))) -(define Support-Parser-case--6672-4233 (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 Support-Parser-case--6666-4224 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((6) (let ((e-0 (vector-ref sc0 1))) (Support-Parser-case--6672-4233 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 (Lexer-Parser-reservedSymbols)))))(else (vector 0 )))))) -(define Support-Parser-case--6624-4193 (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 Support-Parser-case--6616-4181 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((13) (let ((e-0 (vector-ref sc0 1))) (Support-Parser-case--6624-4193 arg-0 arg-1 e-0 (Prelude-C-61C-61_Eq__String e-0 arg-0))))(else (vector 0 )))))) -(define Support-Parser-case--6569-4148 (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 Support-Parser-case--6561-4131 (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 ((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) (Support-Parser-case--6569-4148 arg-0 arg-1 e-2 (Prelude-C-61C-61_Eq__String e-2 arg-0)))(else (vector 0 )))))))(else (vector 0 ))))))(else (vector 0 )))))) -(define Support-Parser-case--6519-4098 (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 Support-Parser-case--6510-4086 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((7) (let ((e-0 (vector-ref sc0 1))) (Support-Parser-case--6519-4098 arg-0 arg-1 e-0 (Prelude-C-61C-61_Eq__String e-0 arg-0))))(else (vector 0 )))))) -(define Support-Parser-case--6468-4052 (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 Support-Parser-case--6459-4040 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((6) (let ((e-0 (vector-ref sc0 1))) (Support-Parser-case--6468-4052 arg-0 arg-1 e-0 (Prelude-C-61C-61_Eq__String e-0 arg-0))))(else (vector 0 )))))) -(define Support-Parser-case--6440-4020 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((12) (let ((e-0 (vector-ref sc0 1))) (vector 1 (vector 5 e-0))))(else (vector 0 )))))) -(define Support-Parser-case--6421-4003 (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 Support-Parser-case--6402-3986 (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 Support-Parser-case--6281-3903 (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 Support-Parser-case--6281-3880 (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 Support-Parser-case--6275-3868 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((2) (let ((e-0 (vector-ref sc0 1))) (vector 1 (vector 1 e-0)))) ((3) (let ((e-1 (vector-ref sc0 1))) (Support-Parser-case--6281-3880 arg-0 e-1 (Support-Parser-escape e-1)))) ((4) (let ((e-2 (vector-ref sc0 1))) (Support-Parser-case--6281-3903 arg-0 e-2 (Support-Parser-getCharLit e-2)))) ((5) (let ((e-3 (vector-ref sc0 1))) (vector 1 (vector 4 e-3)))) ((0) (let ((e-4 (vector-ref sc0 1))) (let ((sc1 e-4)) (case (vector-ref sc1 0) ((1) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-6)) (cond ((equal? sc2 "Int") (let ((sc3 e-7)) (case (vector-ref sc3 0) ((0) (vector 1 (vector 6 )))(else (vector 0 ))))) ((equal? sc2 "Integer") (let ((sc3 e-7)) (case (vector-ref sc3 0) ((0) (vector 1 (vector 7 )))(else (vector 0 ))))) ((equal? sc2 "String") (let ((sc3 e-7)) (case (vector-ref sc3 0) ((0) (vector 1 (vector 8 )))(else (vector 0 ))))) ((equal? sc2 "Char") (let ((sc3 e-7)) (case (vector-ref sc3 0) ((0) (vector 1 (vector 9 )))(else (vector 0 ))))) ((equal? sc2 "Double") (let ((sc3 e-7)) (case (vector-ref sc3 0) ((0) (vector 1 (vector 10 )))(else (vector 0 )))))(else (vector 0 )))))))(else (vector 0 ))))))(else (vector 0 )))))) -(define Support-Parser-case--6236-3848 (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--6221-3826 (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--6236-3848 arg-0 arg-1 (Prelude-C-61C-61_Eq__Nat (Prelude-length arg-1) (Prelude-fromInteger_Num__Nat 0)))))))) -(define Support-Parser-case--5975-3731 (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--6011-3664 (lambda (arg-0 arg-1 arg-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--5975-3615 (lambda (arg-0 arg-1 arg-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--6011-3664 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--5588-3583 (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--5975-3615 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--5975-3731 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--5588-3531 (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--5588-3488-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--5588-3438 (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--5588-3395-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-case--5281-2890 (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-3 (vector-ref sc0 2))) (Core-Parser-Text-pure 'erased 'erased e-3))))) -(define Support-Parser-case--5210-2831 (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 (Support-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 Support-Parser-case--5028-2697 (lambda (arg-0 arg-1 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 ((sc1 e-2)) (let ((e-7 (vector-ref sc1 1))) (let ((e-8 (vector-ref sc1 2))) (let ((sc2 e-8)) (case (vector-ref sc2 0) ((0) (vector 0 (vector 0 e-7 (vector 0 ) (vector 0 )))) (else (let ((e-11 (vector-ref sc2 1))) (let ((e-12 (vector-ref sc2 2))) (vector 0 (vector 0 e-7 (vector 1 (vector 0 (let ((sc3 e-11)) (let ((e-1 (vector-ref sc3 1))) e-1)) (let ((sc3 e-11)) (let ((e-4 (vector-ref sc3 2))) e-4)))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (let ((sc3 eta-0)) (let ((e-3 (vector-ref sc3 3))) e-3))) (vector 1 e-11 e-12)))))))))))))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (let ((e-15 (vector-ref sc1 1))) (vector 1 e-15))))))))) -(define Support-Parser-case--4980-2648 (lambda (arg-0 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 1 e-2)))) (else (let ((e-5 (vector-ref sc0 1))) (Support-Parser-case--5028-2697 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 (Core-Parser-Text-parse 'erased 'erased arg-1 arg-2 e-5)))))))) -(define Support-Parser-case--4965-2604 (lambda (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 3 e-2)))) (else (let ((e-5 (vector-ref sc0 1))) (Support-Parser-case--4980-2648 'erased arg-1 arg-2 arg-3 arg-4 arg-5 e-5 (Lexer-Parser-lexTo arg-4 e-5)))))))) -(define Support-Parser-n--5588-3488-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--5588-3488-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--5588-3395-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--5588-3395-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-n--7647-5209-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) (Support-Parser-blockEntries 'erased e-6 arg-2)) (lambda (ps) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Support-Parser-symbol "}")) (lambda () (lambda (_-5232) (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) (Support-Parser-blockEntries 'erased (vector 0 ) arg-2)) (lambda (ps) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Support-Parser-symbol "}")) (lambda () (lambda (_-5263) (Core-Parser-Text-pure 'erased 'erased (vector 0 (vector 0 ) ps)))))))))))) -(define Support-Parser-n--6798-4339-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 (Support-Parser-reservedNames)))) -(define Support-Parser-n--6798-4341-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 (Support-Parser-symbol "(") (Core-Parser-Text-C-60C-124C-62 'erased 'erased 0 0 (Support-Parser-operator) (lambda () (Support-Parser-recField)))) (Support-Parser-symbol ")")))) -(define Support-Parser-n--6798-4342-opNS (lambda (arg-0) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Support-Parser-symbol ".(")) (lambda () (lambda (_-4424) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Core-Parser-Text-C-60C-124C-62 'erased 'erased 0 0 (Support-Parser-operator) (lambda () (Support-Parser-recField)))) (lambda () (lambda (n) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Support-Parser-symbol ")")) (lambda () (lambda (_-4439) (Core-Parser-Text-pure 'erased 'erased (vector 0 arg-0 n))))))))))))) -(define Support-Parser-n--6798-4340-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) (Support-Parser-case--6800-4360 e-2 (Support-Parser-n--6798-4339-reserved e-2)))(else (Support-Parser-case--6800-4379 e-2 e-3 (Support-Parser-n--6798-4339-reserved e-2)))))))))))) -(define Support-Parser-n--4945-2564-isEOI (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((14) 0)(else 1))))) -(define Support-Parser-n--7235-4765-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 Support-Parser-n--7235-4766-afterDedent (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (Support-Parser-case--7239-4782 arg-0 arg-1 arg-3 (Prelude-C-60C-61_Ord__Int arg-3 arg-0))) ((2) (let ((e-0 (vector-ref sc0 1))) (Support-Parser-case--7239-4811 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))) (Support-Parser-case--7239-4844 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 Support-Parser-show_Show__ParseError (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 3))) (Strings-Prelude-C-43C-43 "Parse error: " (Strings-Prelude-C-43C-43 e-0 (Strings-Prelude-C-43C-43 " (next tokens: " (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Lexer-Parser-show_Show__Token x)) (lambda (d) (lambda (x) (Lexer-Parser-showPrec_Show__Token d x)))) (List-Data-take 'erased (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) e-2)) ")"))))))) ((1) (let ((e-3 (vector-ref sc0 1))) (let ((sc1 e-3)) (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))) (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-8 e-12)) (Strings-Prelude-C-43C-43 " input: " e-13))))))))))) ((2) (let ((e-4 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "File error: " (File-System-show_Show__FileError e-4)))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (let ((e-14 (vector-ref sc1 1))) (let ((e-15 (vector-ref sc1 2))) (let ((e-16 (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-15 e-14)) (Strings-Prelude-C-43C-43 " input: " e-16))))))))))))) -(define Support-Parser-showPrec_Show__ParseError (lambda (arg-0 arg-1) (Support-Parser-show_Show__ParseError arg-1))) -(define Support-Parser-__Impl_Show_ParseError (lambda () (vector 0 (lambda (x) (Support-Parser-show_Show__ParseError x)) (lambda (d) (lambda (x) (Support-Parser-showPrec_Show__ParseError d x)))))) -(define Support-Parser-unqualifiedName (lambda () (Support-Parser-identPart))) -(define Support-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) (Support-Parser-eoi)) (lambda (_-4922) (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) (Support-Parser-symbol ";")) (lambda () (lambda (_-4910) (Core-Parser-Text-pure 'erased 'erased (Support-Parser-n--7235-4765-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) (Support-Parser-column)) (lambda (col) (Support-Parser-n--7235-4766-afterDedent arg-1 arg-0 arg-0 col))) (lambda () (Core-Parser-Text-pure 'erased 'erased (vector 3 )))))))))) -(define Support-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) (Support-Parser-case--6459-4040 arg-0 x (let ((sc0 x)) (let ((e-3 (vector-ref sc0 3))) e-3))))))) -(define Support-Parser-strLit (lambda () (Core-Parser-Text-terminal 'erased 'erased "Expected string literal" (lambda (x) (Support-Parser-case--6421-4003 x (let ((sc0 x)) (let ((e-3 (vector-ref sc0 3))) e-3))))))) -(define Support-Parser-runParserTo (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (Support-Parser-case--4965-2604 'erased arg-1 arg-5 arg-4 arg-3 arg-2 (Unlit-Parser-unlit arg-2 arg-4)))) -(define Support-Parser-runParser (lambda (arg-0 arg-1 arg-2 ext-0 ext-1) (Support-Parser-runParserTo 'erased arg-1 arg-2 (lambda (eta-0) 1) ext-0 ext-1))) -(define Support-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 Support-Parser-recField (lambda () (Core-Parser-Text-terminal 'erased 'erased "Expected record field" (lambda (x) (Support-Parser-case--6440-4020 x (let ((sc0 x)) (let ((e-3 (vector-ref sc0 3))) e-3))))))) -(define Support-Parser-pragma (lambda (arg-0) (Core-Parser-Text-terminal 'erased 'erased (Strings-Prelude-C-43C-43 "Expected pragma " arg-0) (lambda (x) (Support-Parser-case--6616-4181 arg-0 x (let ((sc0 x)) (let ((e-3 (vector-ref sc0 3))) e-3))))))) -(define Support-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 (Support-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 Support-Parser-operator (lambda () (Core-Parser-Text-terminal 'erased 'erased "Expected operator" (lambda (x) (Support-Parser-case--6666-4224 x (let ((sc0 x)) (let ((e-3 (vector-ref sc0 3))) e-3))))))) -(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-nsIdent (lambda () (Core-Parser-Text-terminal 'erased 'erased "Expected namespaced name" (lambda (x) (Support-Parser-case--6727-4280 x (let ((sc0 x)) (let ((e-3 (vector-ref sc0 3))) e-3))))))) -(define Support-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) (Support-Parser-symbol "{")) (lambda () (lambda (_-5459) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Core-Parser-Text-commit 'erased)) (lambda (_-5467) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Support-Parser-blockEntry 'erased (vector 0 ) arg-1)) (lambda () (lambda (res) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Support-Parser-blockEntries 'erased (Builtin-snd 'erased 'erased res) arg-1)) (lambda (ps) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Support-Parser-symbol "}")) (lambda () (lambda (_-5493) (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) (Support-Parser-column)) (lambda (col) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Support-Parser-blockEntry 'erased (vector 1 col) arg-1)) (lambda () (lambda (res) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Support-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 Support-Parser-name (lambda () (Core-Parser-Text-C-60C-124C-62 'erased 'erased 0 0 (Support-Parser-n--6798-4341-opNonNS) (lambda () (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Support-Parser-nsIdent)) (lambda () (lambda (ns) (Core-Parser-Text-C-60C-124C-62 'erased 'erased 0 1 (Support-Parser-n--6798-4342-opNS ns) (lambda () (Support-Parser-n--6798-4340-nameNS ns)))))))))) -(define Support-Parser-mustContinue (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (Support-Parser-continueF (Core-Parser-Text-fatalError 'erased 'erased 'erased "Unexpected end of expression") arg-0)) (else (let ((e-2 (vector-ref sc0 1))) (Support-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 Support-Parser-location (lambda () (((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 Support-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) (Support-Parser-case--6510-4086 arg-0 x (let ((sc0 x)) (let ((e-3 (vector-ref sc0 3))) e-3))))))) -(define Support-Parser-isTerminator (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((6) (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))))) ((7) (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))))) ((14) 0)(else 1))))) -(define Support-Parser-intLit (lambda () (Core-Parser-Text-terminal 'erased 'erased "Expected integer literal" (lambda (x) (Support-Parser-case--6402-3986 x (let ((sc0 x)) (let ((e-3 (vector-ref sc0 3))) e-3))))))) -(define Support-Parser-init (lambda () 0)) -(define Support-Parser-identPart (lambda () (Core-Parser-Text-terminal 'erased 'erased "Expected name" (lambda (x) (Support-Parser-case--6703-4258 x (let ((sc0 x)) (let ((e-3 (vector-ref sc0 3))) e-3))))))) -(define Support-Parser-holeName (lambda () (Core-Parser-Text-terminal 'erased 'erased "Expected hole name" (lambda (x) (Support-Parser-case--6747-4297 x (let ((sc0 x)) (let ((e-3 (vector-ref sc0 3))) e-3))))))) -(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--6221-3826 arg-0 e (Prelude-C-61C-61_Eq__Nat (Prelude-length e) (Prelude-fromInteger_Num__Nat 1))))))) -(define Support-Parser-exactIdent (lambda (arg-0) (Core-Parser-Text-terminal 'erased 'erased (Strings-Prelude-C-43C-43 "Expected " arg-0) (lambda (x) (Support-Parser-case--6561-4131 arg-0 x (let ((sc0 x)) (let ((e-3 (vector-ref sc0 3))) e-3))))))) -(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--5588-3438 e-6 (List-Data-span 'erased (lambda (eta-0) (Prelude-isHexDigit eta-0)) e-6))) ((equal? sc3 #\o) (Support-Parser-case--5588-3531 e-6 (List-Data-span 'erased (lambda (eta-0) (Prelude-isOctDigit eta-0)) e-6)))(else (Support-Parser-case--5588-3583 e-3 (List-Data-span 'erased (lambda (eta-0) (Prelude-isDigit eta-0)) e-3))))))))(else (Support-Parser-case--5588-3583 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 Support-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) (Support-Parser-n--4945-2564-isEOI (let ((sc0 eta-0)) (let ((e-3 (vector-ref sc0 3))) e-3)))))) (lambda (_-2582) (Core-Parser-Text-pure 'erased 'erased (vector 0 )))))) -(define Support-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) (Support-Parser-eoi)) (lambda (_-4514) 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) (Support-Parser-keyword "where")) (lambda () (lambda (_-4506) arg-0))) (lambda () (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Support-Parser-column)) (lambda (col) (Support-Parser-case--6938-4523 arg-1 arg-0 col (Prelude-C-60C-61_Ord__Int col arg-1)))))))))) -(define Support-Parser-continue (lambda (ext-0) (Support-Parser-continueF (Core-Parser-Text-fail 'erased 'erased 'erased "Unexpected end of expression") ext-0))) -(define Support-Parser-constant (lambda () (Core-Parser-Text-terminal 'erased 'erased "Expected constant" (lambda (x) (Support-Parser-case--6275-3868 x (let ((sc0 x)) (let ((e-3 (vector-ref sc0 3))) e-3))))))) -(define Support-Parser-column (lambda () (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Support-Parser-location)) (lambda (_-0) (let ((sc0 _-0)) (let ((e-3 (vector-ref sc0 2))) (Core-Parser-Text-pure 'erased 'erased e-3))))))) -(define Support-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))) (Support-Parser-case--7053-4598 e-0 arg-1 (Prelude-C-61C-61_Eq__Int arg-1 e-0)))) ((2) (let ((e-1 (vector-ref sc0 1))) (Support-Parser-case--7053-4622 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 Support-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) (Support-Parser-symbol "{")) (lambda () (lambda (_-5297) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Core-Parser-Text-commit 'erased)) (lambda (_-5305) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Parser-Text-optional 'erased 'erased 0 (Support-Parser-blockEntry 'erased (vector 0 ) arg-3))) (lambda (hidt) (Support-Parser-n--7647-5209-restOfBlock 'erased 'erased arg-4 arg-3 arg-2 hidt)))))))) (lambda () (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Support-Parser-column)) (lambda (col) (Support-Parser-case--7647-5328 'erased 'erased arg-4 arg-3 arg-2 col (Prelude-C-60C-61_Ord__Int col arg-2)))))))) -(define Support-Parser-blockEntry (lambda (arg-0 arg-1 arg-2) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Support-Parser-column)) (lambda (col) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Support-Parser-checkValid arg-1 col)) (lambda (_-4946) (((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) (Support-Parser-terminator arg-1 col)) (lambda (validC-39) (Core-Parser-Text-pure 'erased 'erased (vector 0 p validC-39))))))))))))) -(define Support-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) (Support-Parser-eoi)) (lambda (_-5028) (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) (Support-Parser-blockEntry 'erased arg-1 arg-2)) (lambda () (lambda (res) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Support-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 Support-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) (Support-Parser-symbol "{")) (lambda () (lambda (_-5131) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Core-Parser-Text-commit 'erased)) (lambda (_-5139) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Support-Parser-blockEntries 'erased (vector 0 ) arg-2)) (lambda (ps) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Support-Parser-symbol "}")) (lambda () (lambda (_-5155) (Core-Parser-Text-pure 'erased 'erased ps))))))))))) (lambda () (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Support-Parser-column)) (lambda (col) (Support-Parser-case--7560-5173 'erased arg-2 arg-1 col (Prelude-C-60C-61_Ord__Int col arg-1)))))))) -(define Support-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) (Support-Parser-symbol "{")) (lambda () (lambda (_-5069) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Core-Parser-Text-commit 'erased)) (lambda (_-5077) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Support-Parser-blockEntries 'erased (vector 0 ) arg-1)) (lambda (ps) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Support-Parser-symbol "}")) (lambda () (lambda (_-5093) (Core-Parser-Text-pure 'erased 'erased ps))))))))))) (lambda () (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Support-Parser-column)) (lambda (col) (Support-Parser-blockEntries 'erased (vector 1 col) arg-1))))))) -(define Support-Parser-atEndIndent (lambda (arg-0) (Core-Parser-Text-C-60C-124C-62 'erased 'erased 1 1 (Support-Parser-eoi) (lambda () (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Support-Parser-column)) (lambda (col) (Support-Parser-case--7197-4746 arg-0 col (Prelude-C-60C-61_Ord__Int col arg-0)))))))) -(define Support-Parser-atEnd (lambda (arg-0) (Core-Parser-Text-C-60C-124C-62 'erased 'erased 1 (Prelude-C-38C-38 1 (lambda () 1)) (Support-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) (Support-Parser-isTerminator (let ((sc0 eta-0)) (let ((e-3 (vector-ref sc0 3))) e-3)))))) (lambda (_-4698) (Core-Parser-Text-pure 'erased 'erased (vector 0 )))) (lambda () (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Support-Parser-column)) (lambda (col) (Support-Parser-case--7138-4711 arg-0 col (Prelude-C-60C-61_Ord__Int col arg-0)))))))))) -(define Support-Parser-Rule (lambda (arg-0) (vector "Text.Parser.Core.Grammar" (vector "Text.Lexer.Core.TokenData" (vector "Parser.Lexer.Token" )) 0 arg-0))) -(define Support-Parser-IndentInfo (lambda () (vector "Int" ))) -(define File-System-case--2908-2459 (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--2728-2299 (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--2716-2281 (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--2641-2219 (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--2553-2200 (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--2553-2122-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--2565-2163 (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--2553-2122-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--2555-2133 (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--2553-2122-read arg-0 (vector 1 e-2 arg-2) arg-1 eta-0))) (else (File-System-returnError 'erased eta-0))))))))))) -(define File-System-case--2472-2059 (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--2408-1999 (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--2301-1900 (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--2258-1865 (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-1 eta-0))))))) -(define File-System-case--2186-1791 (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--2125-1733 (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--1998-1612 (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--2553-2122-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--2553-2122-read arg-0 (vector 1 e-2 arg-1) arg-2 ext-0))) (else (File-System-returnError 'erased 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--23459-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-4524) (lambda (arg-4525) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4526 arg-4527)))) 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-4524) (lambda (arg-4525) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4526 arg-4527)))) 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--24256-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--5301-356 (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-mapParseError 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--2968-2477 (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--2788-2317 (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--2776-2299 (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--2701-2237 (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--2613-2218 (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--2613-2140-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--2625-2181 (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--2613-2140-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--2615-2151 (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--2613-2140-read arg-0 (vector 1 e-2 arg-2) arg-1 eta-0))) (else (File-System-returnError 'erased eta-0))))))))))) +(define File-System-case--2532-2077 (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--2468-2017 (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--2361-1918 (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--2318-1883 (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-1 eta-0))))))) +(define File-System-case--2246-1809 (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--2185-1751 (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--2058-1630 (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--2613-2140-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--2613-2140-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)))))) @@ -1112,73 +1049,279 @@ (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-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--2553-2122-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--2125-1733 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-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--2613-2140-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--2185-1751 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-removeFile (lambda (arg-0 ext-0) (let ((act-15 (File-System-prim__removeFile arg-0 ext-0))) ((File-System-case--2472-2059 arg-0 act-15 (Prelude-C-61C-61_Eq__Int act-15 (Prelude-fromInteger_Num__Int 0))) ext-0)))) -(define File-System-fileModifiedTime (lambda (arg-0 ext-0) (let ((act-15 (File-System-prim__fileModifiedTime arg-0 ext-0))) ((File-System-case--2408-1999 arg-0 act-15 (Prelude-C-62_Ord__Int act-15 (Prelude-fromInteger_Num__Int 0))) 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--2532-2077 arg-0 act-15 (Prelude-C-61C-61_Eq__Int act-15 (Prelude-fromInteger_Num__Int 0))) ext-0)))) +(define File-System-fileModifiedTime (lambda (arg-0 ext-0) (let ((act-15 (File-System-prim__fileModifiedTime arg-0 ext-0))) ((File-System-case--2468-2017 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--2301-1900 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--2186-1791 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--2258-1865 arg-0 act-15 act-16 (Prelude-C-47C-61_Eq__Int act-16 (Prelude-fromInteger_Num__Int 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--2361-1918 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--2246-1809 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--2318-1883 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--2908-2459 arg-1 arg-0 act-15 (Prelude-C-61C-61_Eq__Int act-15 (Prelude-fromInteger_Num__Int 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--2968-2477 arg-1 arg-0 act-15 (Prelude-C-61C-61_Eq__Int act-15 (Prelude-fromInteger_Num__Int 0))) ext-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--2750-2032 (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--4026-2251 (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--3796-2085 (lambda (arg-0 arg-1 arg-2 arg-3 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--3338-1851 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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--3338-1690 (lambda (arg-0 arg-1 arg-2 arg-3 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--2750-1621 (lambda (arg-0 arg-1 arg-2 arg-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--3338-1690 '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--3338-1851 '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--3338-1851 '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--3138-1476 (lambda (arg-0 arg-1 arg-2 arg-3 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--2750-1450 (lambda (arg-0 arg-1 arg-2 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--3138-1476 '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--2750-1375 (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--2750-1248 (lambda (arg-0 arg-1 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--2750-1176 (lambda (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--4026-2251 '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--2750-1248 '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--2750-1375 '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--2750-1450 '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--2750-1621 '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--2750-2032 '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 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 Lexer-Text-case--2319-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--2295-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--2486-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--2486-589-lexStr e-3))))))))) +(define Lexer-Text-n--2486-590-control (lambda () (Core-Lexer-Text-C-60C-124C-62 'erased 'erased (Lexer-Text-n--2486-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-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-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--2295-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--2486-590-control) (Lexer-Text-any))) (Lexer-Text-isNot q)))) (lambda () (Lexer-Text-is q)))))) +(define Lexer-Text-approx (lambda (arg-0) (Lexer-Text-case--2319-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--2990-2469 (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--2934-2417 (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--2770-2285 (lambda (arg-0 arg-1 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--2556-2252 (lambda (arg-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--2770-2285 '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--2568-2168 (lambda (arg-0 arg-1 arg-2 arg-3 arg-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--2556-2063-countNLs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5))) (vector 0 (Core-Lexer-Text-n--2556-2064-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--2556-2065-getFirstToken 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-9 arg-10)))))) +(define Core-Lexer-Text-case--2567-2087 (lambda (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--2177-1921 (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--2177-1887 (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--2177-1852 (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--2177-1808 (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--2177-1759 (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--2556-2065-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--2568-2168 '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--2556-2064-getCols (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (Core-Lexer-Text-case--2567-2087 '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--2556-2063-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--2556-2252 'erased arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (Core-Lexer-Text-n--2556-2065-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--2177-1759 '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--2177-1808 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--2990-2469 '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--2934-2417 '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-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 Unlit-Parser-case--2584-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--2560-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--2584-426 arg-0 arg-1 arg-2 (Literate-Text-isLiterateLine (Unlit-Parser-styleCMark) arg-0))))))))(else (Unlit-Parser-case--2584-426 arg-0 arg-1 arg-2 (Literate-Text-isLiterateLine (Unlit-Parser-styleCMark) arg-0))))))) +(define Unlit-Parser-case--2556-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--2560-401 arg-0 arg-1 (Literate-Text-isLiterateLine (Unlit-Parser-styleOrg) arg-0))))))))(else (Unlit-Parser-case--2560-401 arg-0 arg-1 (Literate-Text-isLiterateLine (Unlit-Parser-styleOrg) arg-0))))))) +(define Unlit-Parser-case--2526-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--2496-321-isStyle arg-0 (Unlit-Parser-styleCMark))))))) +(define Unlit-Parser-case--2496-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--2526-364 arg-0 (Unlit-Parser-n--2496-321-isStyle arg-0 (Unlit-Parser-styleOrg)))))))) +(define Unlit-Parser-case--2499-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--2496-321-isStyle (lambda (arg-0 arg-1) (Unlit-Parser-case--2499-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--2496-320-hasSuffix arg-0 eta-0))) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 3))) e-2)))))) +(define Unlit-Parser-n--2496-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--2556-380 arg-0 (Literate-Text-isLiterateLine (Unlit-Parser-styleBird) arg-0)))) +(define Unlit-Parser-isLitFile (lambda (arg-0) (Unlit-Parser-case--2496-349 arg-0 (Unlit-Parser-n--2496-321-isStyle arg-0 (Unlit-Parser-styleBird))))) +(define Literate-Text-with--2788-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--2569-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 "\u000a" (Strings-Data-unlines e-2))))))))))(else (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 2))) (Literate-Text-reduce arg-6 (Strings-Prelude-C-43C-43 arg-5 (Strings-Prelude-C-43C-43 "\u000a" (Strings-Data-unlines e-2))))))))))) +(define Literate-Text-with--2480-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--2569-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--2715-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--2495-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-2851) (lambda (arg-2852) (Prelude-C-60C-43C-62_Semigroup__String arg-2851 arg-2852))) (Prelude-neutral_Monoid__String)))) (List-Data-replicate 'erased (List-Data-length 'erased (Strings-Data-lines arg-2)) "\u000a"))) (else ""))))) +(define Literate-Text-case--2430-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--2480-970-blank_content (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (Literate-Text-case--2495-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--2480-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--2480-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--2788-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--2715-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 TT-Core-case--10308-7939 (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--10308-7455-showApp arg-0 arg-1 arg-0 e-2 e-3)))))) -(define TT-Core-case--10078-7311 (lambda (arg-0 arg-1 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--9835-7060 (lambda (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--9328-6614 (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--9263-6567 (lambda (arg-0 arg-1 arg-2 arg-3) (Prelude-pure_Applicative__Maybe 'erased (+ 1 arg-3)))) -(define TT-Core-case--9251-6549 (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--8936-6290 (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--8787-6175 (lambda (arg-0 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--8755-6123 (lambda (arg-0 arg-1 arg-2 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--8787-6175 '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--8641-6066 (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--8454-5857 (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--8288-5806 (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--8288-5732 (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--7787-5450 (lambda (arg-0 arg-1 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--7509-5112 (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--7509-5031 (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--7283-4803 (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--6699-4278 (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--6400-4013 (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--6296-3959 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (+ 1 arg-7))) -(define TT-Core-case--6192-3871 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (+ 1 arg-7))) -(define TT-Core-case--6126-3787 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (+ 1 arg-6))) -(define TT-Core-case--5914-3640 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (+ 1 arg-7))) -(define TT-Core-case--5848-3555 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (+ 1 arg-6))) -(define TT-Core-case--2810-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--2810-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--2810-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--2810-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--6400-4064-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--6400-4065-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--6400-4064-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--6400-4064-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--6400-4064-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--5802-3497-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--10308-7455-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--7119-4648-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--7119-4648-getFA 'erased arg-1 (vector 1 e-3 arg-2) e-2))))(else (vector 0 arg-3 arg-2)))))) -(define TT-Core-n--4983-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--4983-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--4983-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--4983-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--4983-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--10078-7264-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--10078-7264-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--9964-7172-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--9964-7172-addMetaArgs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 (TT-Core-addMetas 'erased arg-6 e-2) e-3)))))))) +(define Source-Rule-Parser-case--6455-1959 (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--6364-1795 (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--6032-1454 (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--6032-1421 (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--6032-1392 (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--5989-1356 (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--5929-1320 (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--5844-1230 (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--5844-1206 (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--5728-1131 (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--5584-980 (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--5584-961 (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--5531-898 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((e-0 (vector-ref sc0 1))) (vector 1 e-0)))(else (vector 0 )))))) +(define Source-Rule-Parser-case--5511-881 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (vector 1 e-0)))(else (vector 0 )))))) +(define Source-Rule-Parser-case--5487-859 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((sc1 e-0)) (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) (vector 1 e-2))(else (vector 0 )))))))(else (vector 0 ))))))(else (vector 0 )))))) +(define Source-Rule-Parser-case--5456-834 (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--5450-825 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((6) (let ((e-0 (vector-ref sc0 1))) (Source-Rule-Parser-case--5456-834 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--5408-794 (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--5400-782 (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--5408-794 arg-0 arg-1 e-0 (Prelude-C-61C-61_Eq__String e-0 arg-0))))(else (vector 0 )))))) +(define Source-Rule-Parser-case--5353-749 (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--5345-732 (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 ((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) (Source-Rule-Parser-case--5353-749 arg-0 arg-1 e-2 (Prelude-C-61C-61_Eq__String e-2 arg-0)))(else (vector 0 )))))))(else (vector 0 ))))))(else (vector 0 )))))) +(define Source-Rule-Parser-case--5303-699 (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--5294-687 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((7) (let ((e-0 (vector-ref sc0 1))) (Source-Rule-Parser-case--5303-699 arg-0 arg-1 e-0 (Prelude-C-61C-61_Eq__String e-0 arg-0))))(else (vector 0 )))))) +(define Source-Rule-Parser-case--5252-653 (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--5243-641 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((6) (let ((e-0 (vector-ref sc0 1))) (Source-Rule-Parser-case--5252-653 arg-0 arg-1 e-0 (Prelude-C-61C-61_Eq__String e-0 arg-0))))(else (vector 0 )))))) +(define Source-Rule-Parser-case--5224-621 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((12) (let ((e-0 (vector-ref sc0 1))) (vector 1 (vector 5 e-0))))(else (vector 0 )))))) +(define Source-Rule-Parser-case--5205-604 (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--5186-587 (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--5065-504 (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--5065-481 (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--5059-469 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((2) (let ((e-0 (vector-ref sc0 1))) (vector 1 (vector 1 e-0)))) ((3) (let ((e-1 (vector-ref sc0 1))) (Source-Rule-Parser-case--5065-481 arg-0 e-1 (Support-Parser-escape e-1)))) ((4) (let ((e-2 (vector-ref sc0 1))) (Source-Rule-Parser-case--5065-504 arg-0 e-2 (Support-Parser-getCharLit e-2)))) ((5) (let ((e-3 (vector-ref sc0 1))) (vector 1 (vector 4 e-3)))) ((0) (let ((e-4 (vector-ref sc0 1))) (let ((sc1 e-4)) (case (vector-ref sc1 0) ((1) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-6)) (cond ((equal? sc2 "Int") (let ((sc3 e-7)) (case (vector-ref sc3 0) ((0) (vector 1 (vector 6 )))(else (vector 0 ))))) ((equal? sc2 "Integer") (let ((sc3 e-7)) (case (vector-ref sc3 0) ((0) (vector 1 (vector 7 )))(else (vector 0 ))))) ((equal? sc2 "String") (let ((sc3 e-7)) (case (vector-ref sc3 0) ((0) (vector 1 (vector 8 )))(else (vector 0 ))))) ((equal? sc2 "Char") (let ((sc3 e-7)) (case (vector-ref sc3 0) ((0) (vector 1 (vector 9 )))(else (vector 0 ))))) ((equal? sc2 "Double") (let ((sc3 e-7)) (case (vector-ref sc3 0) ((0) (vector 1 (vector 10 )))(else (vector 0 )))))(else (vector 0 )))))))(else (vector 0 ))))))(else (vector 0 )))))) +(define Source-Rule-Parser-n--6455-1834-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 (_-1857) (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 (_-1890) (Core-Parser-Text-pure 'erased 'erased (vector 0 (vector 0 ) ps)))))))))))) +(define Source-Rule-Parser-n--5582-940-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--5582-942-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--5582-943-opNS (lambda (arg-0) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-symbol ".(")) (lambda () (lambda (_-1025) (((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 (_-1055) (Core-Parser-Text-pure 'erased 'erased (vector 0 arg-0 n))))))))))))) +(define Source-Rule-Parser-n--5582-941-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--5584-961 e-2 (Source-Rule-Parser-n--5582-940-reserved e-2)))(else (Source-Rule-Parser-case--5584-980 e-2 e-3 (Source-Rule-Parser-n--5582-940-reserved e-2)))))))))))) +(define Source-Rule-Parser-n--5039-438-isEOI (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((14) 0)(else 1))))) +(define Source-Rule-Parser-n--6028-1375-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--6028-1376-afterDedent (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (Source-Rule-Parser-case--6032-1392 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--6032-1421 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--6032-1454 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 (_-1532) (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 (_-1521) (Core-Parser-Text-pure 'erased 'erased (Source-Rule-Parser-n--6028-1375-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.SourceToken" ))) (lambda (col) (Source-Rule-Parser-n--6028-1376-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--5243-641 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--5205-604 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--5224-621 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--5400-782 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--5450-825 x (let ((sc0 x)) (let ((e-3 (vector-ref sc0 3))) e-3))))))) +(define Source-Rule-Parser-nsIdent (lambda () (Core-Parser-Text-terminal 'erased 'erased "Expected namespaced name" (lambda (x) (Source-Rule-Parser-case--5511-881 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 (_-2077) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Core-Parser-Text-commit 'erased)) (lambda (_-2086) (((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 (_-2113) (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.SourceToken" ))) (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-name (lambda () (Core-Parser-Text-C-60C-124C-62 'erased 'erased 0 0 (Source-Rule-Parser-n--5582-942-opNonNS) (lambda () (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Source-Rule-Parser-nsIdent)) (lambda () (lambda (ns) (Core-Parser-Text-C-60C-124C-62 'erased 'erased 0 1 (Source-Rule-Parser-n--5582-943-opNS ns) (lambda () (Source-Rule-Parser-n--5582-941-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--5294-687 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) ((6) (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))))) ((7) (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))))) ((14) 0)(else 1))))) +(define Source-Rule-Parser-intLit (lambda () (Core-Parser-Text-terminal 'erased 'erased "Expected integer literal" (lambda (x) (Source-Rule-Parser-case--5186-587 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--5487-859 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--5531-898 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--5345-732 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--5039-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 (_-1122) 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 (_-1114) arg-0))) (lambda () (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Common-Rule-Parser-column (vector "Parser.Lexer.Source.SourceToken" ))) (lambda (col) (Source-Rule-Parser-case--5728-1131 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--5059-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--5844-1206 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--5844-1230 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 (_-1927) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Core-Parser-Text-commit 'erased)) (lambda (_-1936) (((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--6455-1834-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.SourceToken" ))) (lambda (col) (Source-Rule-Parser-case--6455-1959 '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.SourceToken" ))) (lambda (col) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Source-Rule-Parser-checkValid arg-1 col)) (lambda (_-1560) (((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 (_-1630) (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 (_-1753) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Core-Parser-Text-commit 'erased)) (lambda (_-1762) (((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 (_-1778) (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.SourceToken" ))) (lambda (col) (Source-Rule-Parser-case--6364-1795 '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 (_-1687) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Core-Parser-Text-commit 'erased)) (lambda (_-1696) (((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 (_-1712) (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.SourceToken" ))) (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.SourceToken" ))) (lambda (col) (Source-Rule-Parser-case--5989-1356 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 (_-1307) (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.SourceToken" ))) (lambda (col) (Source-Rule-Parser-case--5929-1320 arg-0 col (Prelude-C-60C-61_Ord__Int col arg-0)))))))))) +(define Source-Rule-Parser-SourceRule (lambda (ext-0) (Common-Rule-Parser-Rule (vector "Parser.Lexer.Source.SourceToken" ) ext-0))) +(define Source-Rule-Parser-IndentInfo (lambda () (vector "Int" ))) +(define TT-Core-case--10386-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--10386-7469-showApp arg-0 arg-1 arg-0 e-2 e-3)))))) +(define TT-Core-case--10156-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--9913-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--9406-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--9341-6581 (lambda (arg-0 arg-1 arg-2 arg-3) (Prelude-pure_Applicative__Maybe 'erased (+ 1 arg-3)))) +(define TT-Core-case--9329-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--9014-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--8865-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--8833-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--8865-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--8719-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--8532-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--8366-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--8366-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--7865-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--7587-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--7587-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--7361-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--6777-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--6478-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--6374-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--6270-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--6204-3801 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (+ 1 arg-6))) +(define TT-Core-case--5992-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--5926-3569 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (+ 1 arg-6))) +(define TT-Core-case--2870-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--2870-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--2870-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--2870-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--6478-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--6478-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--6478-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--6478-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--6478-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--5880-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--10386-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--7197-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--7197-4662-getFA 'erased arg-1 (vector 1 e-3 arg-2) e-2))))(else (vector 0 arg-3 arg-2)))))) +(define TT-Core-n--5043-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--5043-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--5043-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--5043-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--5043-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--10156-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--10156-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--10042-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--10042-7186-addMetaArgs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 (TT-Core-addMetas 'erased arg-6 e-2) e-3)))))))) (define TT-Core-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--5802-3497-showTot arg-0 t c))))) +(define TT-Core-show_Show__Totality (lambda (arg-0) (let ((t (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) e-0)))) (let ((c (let ((sc0 arg-0)) (let ((e-1 (vector-ref sc0 2))) e-1)))) (TT-Core-n--5880-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--10308-7939 arg-0 arg-1 (TT-Core-getFnArgs 'erased arg-1)))) +(define TT-Core-show_Show__C-40TermC-32C-36varsC-41 (lambda (arg-0 arg-1) (TT-Core-case--10386-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__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))) @@ -1189,6 +1332,7 @@ (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_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)))))) @@ -1212,29 +1356,29 @@ (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--6126-3787 'erased 'erased arg-3 e-2 e-3 'erased (TT-Core-weakenVar 'erased 'erased e-3 arg-3 'erased))))))))) +(define TT-Core-weakenVar (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) arg-3) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (TT-Core-case--6204-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--5848-3555 'erased 'erased arg-3 e-2 e-3 'erased (TT-Core-weakenNVar 'erased 'erased e-3 arg-3 'erased))))))))) +(define TT-Core-weakenNVar (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) arg-3) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (TT-Core-case--5926-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--8288-5732 '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--8288-5806 'erased 'erased 'erased e-9 'erased e-8 'erased idx 'erased 'erased (TT-Core-varEmbedSub 'erased 'erased 'erased e-8 e-9 'erased))))))))))))) +(define TT-Core-varEmbedSub (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) arg-4) ((1) (let ((e-4 (vector-ref sc0 1))) (TT-Core-case--8366-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--8366-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--6400-4013 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--6400-4065-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 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--6478-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--6478-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--9835-7060 arg-0 e-3 e-2 e-1 arg-2 arg-1 (Name-Core-nameEq arg-1 e-3)))))) ((2) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (let ((e-8 (vector-ref sc0 4))) (vector 2 e-5 e-6 e-7 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (TT-Core-substName arg-0 arg-1 arg-2 eta-0)) e-8))))))) ((3) (let ((e-10 (vector-ref sc0 1))) (let ((e-11 (vector-ref sc0 2))) (let ((e-12 (vector-ref sc0 3))) (let ((e-13 (vector-ref sc0 4))) (vector 3 e-10 e-11 (TT-Core-map_Functor__Binder 'erased 'erased (lambda (eta-0) (TT-Core-substName arg-0 arg-1 arg-2 eta-0)) e-12) (TT-Core-substName (vector 1 e-11 arg-0) arg-1 (TT-Core-weaken_Weaken__Term e-11 arg-0 arg-2) e-13))))))) ((4) (let ((e-15 (vector-ref sc0 1))) (let ((e-16 (vector-ref sc0 2))) (let ((e-17 (vector-ref sc0 3))) (vector 4 e-15 (TT-Core-substName arg-0 arg-1 arg-2 e-16) (TT-Core-substName arg-0 arg-1 arg-2 e-17)))))) ((5) (let ((e-19 (vector-ref sc0 1))) (let ((e-20 (vector-ref sc0 2))) (let ((e-21 (vector-ref sc0 3))) (let ((e-22 (vector-ref sc0 4))) (vector 5 e-19 e-20 e-21 (TT-Core-substName arg-0 arg-1 arg-2 e-22))))))) ((6) (let ((e-24 (vector-ref sc0 1))) (let ((e-25 (vector-ref sc0 2))) (let ((e-26 (vector-ref sc0 3))) (vector 6 e-24 e-25 (TT-Core-substName arg-0 arg-1 arg-2 e-26)))))) ((7) (let ((e-28 (vector-ref sc0 1))) (let ((e-29 (vector-ref sc0 2))) (let ((e-30 (vector-ref sc0 3))) (let ((e-31 (vector-ref sc0 4))) (vector 7 e-28 e-29 (TT-Core-substName arg-0 arg-1 arg-2 e-30) (TT-Core-substName arg-0 arg-1 arg-2 e-31))))))) ((8) (let ((e-33 (vector-ref sc0 1))) (let ((e-34 (vector-ref sc0 2))) (let ((e-35 (vector-ref sc0 3))) (vector 8 e-33 e-34 (TT-Core-substName arg-0 arg-1 arg-2 e-35))))))(else arg-3))))) +(define TT-Core-substName (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (TT-Core-case--9913-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--7787-5450 '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-2894) (Prelude-map_Functor__Maybe 'erased 'erased func arg-2894))))) (lambda (a) (lambda (arg-2961) (Prelude-pure_Applicative__Maybe 'erased arg-2961))) (lambda (b) (lambda (a) (lambda (arg-2962) (lambda (arg-2964) (Prelude-C-60C-42C-62_Applicative__Maybe 'erased 'erased arg-2962 arg-2964)))))) (lambda (x) (TT-Core-shrinkTerm 'erased 'erased x arg-3)) e-14) (lambda (xsC-39) (vector 1 (vector 2 e-11 e-12 e-13 xsC-39))))))))) ((3) (let ((e-16 (vector-ref sc0 1))) (let ((e-17 (vector-ref sc0 2))) (let ((e-18 (vector-ref sc0 3))) (let ((e-19 (vector-ref sc0 4))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (TT-Core-shrinkBinder 'erased 'erased e-18 arg-3) (lambda (bind-0) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (TT-Core-shrinkTerm 'erased 'erased e-19 (vector 2 arg-3)) (lambda (bind-1) (vector 1 (vector 3 e-16 e-17 bind-0 bind-1))))))))))) ((4) (let ((e-21 (vector-ref sc0 1))) (let ((e-22 (vector-ref sc0 2))) (let ((e-23 (vector-ref sc0 3))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (TT-Core-shrinkTerm 'erased 'erased e-22 arg-3) (lambda (bind-0) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (TT-Core-shrinkTerm 'erased 'erased e-23 arg-3) (lambda (bind-1) (vector 1 (vector 4 e-21 bind-0 bind-1)))))))))) ((5) (let ((e-25 (vector-ref sc0 1))) (let ((e-26 (vector-ref sc0 2))) (let ((e-27 (vector-ref sc0 3))) (let ((e-28 (vector-ref sc0 4))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (TT-Core-shrinkTerm 'erased 'erased e-27 arg-3) (lambda (bind-0) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (TT-Core-shrinkTerm 'erased 'erased e-28 arg-3) (lambda (bind-1) (vector 1 (vector 5 e-25 e-26 bind-0 bind-1))))))))))) ((6) (let ((e-30 (vector-ref sc0 1))) (let ((e-31 (vector-ref sc0 2))) (let ((e-32 (vector-ref sc0 3))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (TT-Core-shrinkTerm 'erased 'erased e-32 arg-3) (lambda (bind-0) (vector 1 (vector 6 e-30 e-31 bind-0)))))))) ((7) (let ((e-34 (vector-ref sc0 1))) (let ((e-35 (vector-ref sc0 2))) (let ((e-36 (vector-ref sc0 3))) (let ((e-37 (vector-ref sc0 4))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (TT-Core-shrinkTerm 'erased 'erased e-36 arg-3) (lambda (bind-0) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (TT-Core-shrinkTerm 'erased 'erased e-37 arg-3) (lambda (bind-1) (vector 1 (vector 7 e-34 e-35 bind-0 bind-1))))))))))) ((8) (let ((e-39 (vector-ref sc0 1))) (let ((e-40 (vector-ref sc0 2))) (let ((e-41 (vector-ref sc0 3))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (TT-Core-shrinkTerm 'erased 'erased e-41 arg-3) (lambda (bind-0) (vector 1 (vector 8 e-39 e-40 bind-0)))))))) ((9) (let ((e-43 (vector-ref sc0 1))) (let ((e-44 (vector-ref sc0 2))) (vector 1 (vector 9 e-43 e-44))))) ((10) (let ((e-46 (vector-ref sc0 1))) (let ((e-47 (vector-ref sc0 2))) (vector 1 (vector 10 e-46 e-47))))) (else (let ((e-49 (vector-ref sc0 1))) (vector 1 (vector 11 e-49)))))))) +(define TT-Core-shrinkTerm (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (TT-Core-case--7865-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-2894) (Prelude-map_Functor__Maybe 'erased 'erased func arg-2894))))) (lambda (a) (lambda (arg-2961) (Prelude-pure_Applicative__Maybe 'erased arg-2961))) (lambda (b) (lambda (a) (lambda (arg-2962) (lambda (arg-2964) (Prelude-C-60C-42C-62_Applicative__Maybe 'erased 'erased arg-2962 arg-2964)))))) (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--8755-6123 '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--9328-6614 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--7283-4803 '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-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--8833-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--9406-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--7361-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)))))) @@ -1242,52 +1386,52 @@ (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--8936-6290 '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-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--9014-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--9251-6549 e-2 e-3 arg-0 (Name-Core-nameEq arg-0 e-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--9329-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--6192-3871 '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--6699-4278 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--6296-3959 '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--5914-3640 'erased 'erased e-2 e-3 e-4 'erased 'erased (TT-Core-insertNVar 'erased 'erased 'erased e-3 e-4 'erased))))))))))))) +(define TT-Core-insertVarNames (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (TT-Core-weakenVar 'erased 'erased arg-3 arg-4 'erased)) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-4)) (cond ((equal? sc1 0) 0)(else (let ((e-4 (- arg-4 1))) (TT-Core-case--6270-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--6777-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--6374-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--5992-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--7119-4648-getFA 'erased arg-1 (vector 0 ) arg-1))) +(define TT-Core-getFnArgs (lambda (arg-0 arg-1) (TT-Core-n--7197-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--4983-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--8454-5857 'erased 'erased 'erased e-4 'erased e-3 e-2 arg-2 (TT-Core-varEmbedSub 'erased 'erased 'erased arg-2 e-4 'erased)))))) ((1) (let ((e-7 (vector-ref sc0 1))) (let ((e-8 (vector-ref sc0 2))) (let ((e-9 (vector-ref sc0 3))) (vector 1 e-7 e-8 e-9))))) ((2) (let ((e-11 (vector-ref sc0 1))) (let ((e-12 (vector-ref sc0 2))) (let ((e-13 (vector-ref sc0 3))) (let ((e-14 (vector-ref sc0 4))) (vector 2 e-11 e-12 e-13 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (TT-Core-embedSub 'erased 'erased arg-2 eta-0)) e-14))))))) ((3) (let ((e-16 (vector-ref sc0 1))) (let ((e-17 (vector-ref sc0 2))) (let ((e-18 (vector-ref sc0 3))) (let ((e-19 (vector-ref sc0 4))) (vector 3 e-16 e-17 (TT-Core-map_Functor__Binder 'erased 'erased (lambda (eta-0) (TT-Core-embedSub 'erased 'erased arg-2 eta-0)) e-18) (TT-Core-embedSub 'erased 'erased (vector 2 arg-2) e-19))))))) ((4) (let ((e-21 (vector-ref sc0 1))) (let ((e-22 (vector-ref sc0 2))) (let ((e-23 (vector-ref sc0 3))) (vector 4 e-21 (TT-Core-embedSub 'erased 'erased arg-2 e-22) (TT-Core-embedSub 'erased 'erased arg-2 e-23)))))) ((5) (let ((e-25 (vector-ref sc0 1))) (let ((e-26 (vector-ref sc0 2))) (let ((e-27 (vector-ref sc0 3))) (let ((e-28 (vector-ref sc0 4))) (vector 5 e-25 e-26 (TT-Core-embedSub 'erased 'erased arg-2 e-27) (TT-Core-embedSub 'erased 'erased arg-2 e-28))))))) ((6) (let ((e-30 (vector-ref sc0 1))) (let ((e-31 (vector-ref sc0 2))) (let ((e-32 (vector-ref sc0 3))) (vector 6 e-30 e-31 (TT-Core-embedSub 'erased 'erased arg-2 e-32)))))) ((7) (let ((e-34 (vector-ref sc0 1))) (let ((e-35 (vector-ref sc0 2))) (let ((e-36 (vector-ref sc0 3))) (let ((e-37 (vector-ref sc0 4))) (vector 7 e-34 e-35 (TT-Core-embedSub 'erased 'erased arg-2 e-36) (TT-Core-embedSub 'erased 'erased arg-2 e-37))))))) ((8) (let ((e-39 (vector-ref sc0 1))) (let ((e-40 (vector-ref sc0 2))) (let ((e-41 (vector-ref sc0 3))) (vector 8 e-39 e-40 (TT-Core-embedSub 'erased 'erased arg-2 e-41)))))) ((9) (let ((e-43 (vector-ref sc0 1))) (let ((e-44 (vector-ref sc0 2))) (vector 9 e-43 e-44)))) ((10) (let ((e-46 (vector-ref sc0 1))) (let ((e-47 (vector-ref sc0 2))) (vector 10 e-46 e-47)))) (else (let ((e-49 (vector-ref sc0 1))) (vector 11 e-49))))))) +(define TT-Core-eqTerm (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-4 (vector-ref sc0 3))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((0) (let ((e-54 (vector-ref sc1 3))) (Prelude-C-61C-61_Eq__Nat e-4 e-54)))(else 1))))) ((1) (let ((e-9 (vector-ref sc0 3))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((1) (let ((e-59 (vector-ref sc1 3))) (Name-Core-C-61C-61_Eq__Name e-9 e-59)))(else 1))))) ((2) (let ((e-13 (vector-ref sc0 3))) (let ((e-14 (vector-ref sc0 4))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((2) (let ((e-63 (vector-ref sc1 3))) (let ((e-64 (vector-ref sc1 4))) (Prelude-C-38C-38 (Prelude-C-61C-61_Eq__Int e-13 e-63) (lambda () (Extra-Bool-Data-allTrue (List-Data-zipWith 'erased 'erased 'erased (lambda (eta-0) (lambda (eta-1) (TT-Core-eqTerm 'erased 'erased eta-0 eta-1))) e-14 e-64)))))))(else 1)))))) ((3) (let ((e-16 (vector-ref sc0 1))) (let ((e-17 (vector-ref sc0 2))) (let ((e-18 (vector-ref sc0 3))) (let ((e-19 (vector-ref sc0 4))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((3) (let ((e-66 (vector-ref sc1 1))) (let ((e-67 (vector-ref sc1 2))) (let ((e-68 (vector-ref sc1 3))) (let ((e-69 (vector-ref sc1 4))) (Prelude-C-38C-38 (TT-Core-n--5043-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--8532-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--2810-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--2810-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--2810-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--2810-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-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--2870-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--2870-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--2870-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--2870-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--8641-6066 '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--10078-7264-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--10078-7311 '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--9964-7172-addMetaArgs 'erased e-14 e-13 e-12 e-11 arg-1 (NameMap-Data-insert 'erased e-12 1 arg-1) e-14)))))) ((3) (let ((e-18 (vector-ref sc0 3))) (let ((e-19 (vector-ref sc0 4))) (let ((sc1 e-18)) (case (vector-ref sc1 0) ((1) (let ((e-52 (vector-ref sc1 2))) (let ((e-53 (vector-ref sc1 3))) (TT-Core-addMetas 'erased (TT-Core-addMetas 'erased (TT-Core-addMetas 'erased arg-1 e-52) e-53) e-19))))(else (TT-Core-addMetas 'erased (TT-Core-addMetas 'erased arg-1 (TT-Core-binderType 'erased e-18)) e-19))))))) ((4) (let ((e-22 (vector-ref sc0 2))) (let ((e-23 (vector-ref sc0 3))) (TT-Core-addMetas 'erased (TT-Core-addMetas 'erased arg-1 e-22) e-23)))) ((5) (let ((e-28 (vector-ref sc0 4))) (TT-Core-addMetas 'erased arg-1 e-28))) ((6) (let ((e-32 (vector-ref sc0 3))) (TT-Core-addMetas 'erased arg-1 e-32))) ((7) (let ((e-36 (vector-ref sc0 3))) (let ((e-37 (vector-ref sc0 4))) (TT-Core-addMetas 'erased (TT-Core-addMetas 'erased arg-1 e-36) e-37)))) ((8) (let ((e-41 (vector-ref sc0 3))) (TT-Core-addMetas 'erased arg-1 e-41))) ((9) arg-1) ((10) arg-1) (else arg-1))))) +(define TT-Core-addVars (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (TT-Core-weakenNVar 'erased 'erased arg-3 arg-4 'erased)) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-4)) (cond ((equal? sc1 0) 0)(else (let ((e-4 (- arg-4 1))) (let ((idx (+ 1 e-4))) (TT-Core-case--8719-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--10156-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--10156-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--10042-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--1309-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--1266-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-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--1266-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--1309-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-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--1477-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--1419-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--1284-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--1262-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--1284-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-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)))) @@ -1296,9 +1440,9 @@ (define Semiring-Algebra-isLinear (lambda (arg-0 arg-1 ext-0) (Semiring-Algebra-elimSemi 'erased 'erased arg-1 1 0 (lambda (eta-0) 1) ext-0))) (define Semiring-Algebra-isErased (lambda (arg-0 arg-1 ext-0) (Semiring-Algebra-elimSemi 'erased 'erased arg-1 0 1 (lambda (eta-0) 1) ext-0))) (define Semiring-Algebra-erased (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 2))) e-2)))) -(define Semiring-Algebra-elimSemi (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (Semiring-Algebra-case--1262-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--1419-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--1477-550 'erased 'erased arg-2 arg-5 arg-4 arg-3 (Semiring-Algebra-isLinear 'erased arg-2 arg-5)))) +(define Semiring-Algebra-elimSemi (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (Semiring-Algebra-case--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 ))) @@ -1319,7 +1463,7 @@ (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--2575-3697-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--2575-3697-go 'erased 'erased arg-2 'erased 'erased (vector 1 e-3 arg-5) e-4)))))))) +(define Vect-Data-n--2636-3873-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--2636-3873-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))))))))) @@ -1328,94 +1472,94 @@ (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--2575-3697-go 'erased 'erased arg-2 'erased 'erased (vector 0 ) arg-2))) +(define Vect-Data-reverse (lambda (arg-0 arg-1 arg-2) (Vect-Data-n--2636-3873-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--4696-5454 (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--4696-5417 (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--4608-5332 (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--4308-5143 (lambda (arg-0 arg-1 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--4308-5069 (lambda (arg-0 arg-1 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--4195-5045 (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--4308-5069 '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--4308-5143 '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--4195-4971 (lambda (arg-0 arg-1 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--3454-4947 (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--4195-4971 '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--4195-5045 '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--4082-4893 (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--3940-4851 (lambda (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--3965-4793 (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--3940-4751 (lambda (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--3454-4731 (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--3940-4751 '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--3940-4851 '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--3768-4669 (lambda (arg-0 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--3768-4601 (lambda (arg-0 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--3665-4579 (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--3768-4601 '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--3768-4669 '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--3665-4511 (lambda (arg-0 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--3454-4489 (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--3665-4511 '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--3665-4579 '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--3526-4439 (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--3526-4385 (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--3454-4367 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (NameMap-Data-case--3526-4385 'erased arg-1 arg-2 arg-3 arg-4 (NameMap-Data-treeDelete 'erased 0 arg-4 arg-3))) (else (NameMap-Data-case--3526-4439 'erased arg-1 arg-2 arg-3 arg-4 (NameMap-Data-treeDelete 'erased 0 arg-4 arg-1))))))) -(define NameMap-Data-case--3454-4319 (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--3374-4250 (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--3115-4153 (lambda (arg-0 arg-1 arg-2 arg-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--3115-4042 (lambda (arg-0 arg-1 arg-2 arg-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--2952-4011 (lambda (arg-0 arg-1 arg-2 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--3115-4042 '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--3115-4153 '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--2952-3901 (lambda (arg-0 arg-1 arg-2 arg-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--2597-3870 (lambda (arg-0 arg-1 arg-2 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--2952-3901 '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--2952-4011 '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--2726-3792 (lambda (arg-0 arg-1 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--2726-3703 (lambda (arg-0 arg-1 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--2597-3676 (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--2726-3703 '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--2726-3792 '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--2597-3574 (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--2490-3513 (lambda (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--2367-3466 (lambda (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--2490-3513 '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--2367-3418 (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--2367-3375 (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--4481-5199-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--4481-5199-treeToListC-39 'erased 'erased 'erased (NameMap-Data-n--4481-5199-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--4481-5199-treeToListC-39 'erased 'erased 'erased (NameMap-Data-n--4481-5199-treeToListC-39 'erased 'erased 'erased (NameMap-Data-n--4481-5199-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--4481-5199-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--2367-3375 '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--2367-3418 '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--2367-3466 '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--2597-3574 '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--2597-3676 '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--2597-3870 '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--3374-4250 '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--3454-4319 '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--3454-4367 '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--3454-4489 '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--3454-4731 '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--3454-4947 'erased e-4 e-28 e-27 e-26 e-25 e-24 arg-2 (Name-Core-C-60C-61_Ord__Name arg-2 e-25)))))))))))))))))))) +(define NameMap-Data-case--4756-5762 (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--4756-5725 (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--4668-5640 (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--4368-5451 (lambda (arg-0 arg-1 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--4368-5377 (lambda (arg-0 arg-1 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--4255-5353 (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--4368-5377 '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--4368-5451 '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--4255-5279 (lambda (arg-0 arg-1 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--3514-5255 (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--4255-5279 '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--4255-5353 '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--4142-5201 (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--4000-5159 (lambda (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--4025-5101 (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--4000-5059 (lambda (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--3514-5039 (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--4000-5059 '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--4000-5159 '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--3828-4977 (lambda (arg-0 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--3828-4909 (lambda (arg-0 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--3725-4887 (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--3828-4909 '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--3828-4977 '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--3725-4819 (lambda (arg-0 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--3514-4797 (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--3725-4819 '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--3725-4887 '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--3586-4747 (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--3586-4693 (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--3514-4675 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (NameMap-Data-case--3586-4693 'erased arg-1 arg-2 arg-3 arg-4 (NameMap-Data-treeDelete 'erased 0 arg-4 arg-3))) (else (NameMap-Data-case--3586-4747 'erased arg-1 arg-2 arg-3 arg-4 (NameMap-Data-treeDelete 'erased 0 arg-4 arg-1))))))) +(define NameMap-Data-case--3514-4627 (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--3434-4558 (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--3175-4461 (lambda (arg-0 arg-1 arg-2 arg-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--3175-4350 (lambda (arg-0 arg-1 arg-2 arg-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--3012-4319 (lambda (arg-0 arg-1 arg-2 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--3175-4350 '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--3175-4461 '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--3012-4209 (lambda (arg-0 arg-1 arg-2 arg-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--2657-4178 (lambda (arg-0 arg-1 arg-2 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--3012-4209 '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--3012-4319 '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--2786-4100 (lambda (arg-0 arg-1 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--2786-4011 (lambda (arg-0 arg-1 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--2657-3984 (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--2786-4011 '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--2786-4100 '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--2657-3882 (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--2550-3821 (lambda (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--2427-3774 (lambda (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--2550-3821 '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--2427-3726 (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--2427-3683 (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--4541-5507-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--4541-5507-treeToListC-39 'erased 'erased 'erased (NameMap-Data-n--4541-5507-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--4541-5507-treeToListC-39 'erased 'erased 'erased (NameMap-Data-n--4541-5507-treeToListC-39 'erased 'erased 'erased (NameMap-Data-n--4541-5507-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--4541-5507-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--2427-3683 '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--2427-3726 '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--2427-3774 '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--2657-3882 '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--2657-3984 '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--2657-4178 '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--3434-4558 '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--3514-4627 '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--3514-4675 '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--3514-4797 '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--3514-5039 '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--3514-5255 '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--4608-5332 'erased e-2 arg-2 e-3 arg-1 (NameMap-Data-treeInsert 'erased 'erased arg-1 arg-2 e-3))))))))) +(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--4668-5640 '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--4696-5417 'erased e-3 arg-1 (NameMap-Data-treeDelete 'erased 0 arg-1 e-3)))(else (let ((e-4 (- e-2 1))) (NameMap-Data-case--4696-5454 'erased e-4 e-3 arg-1 (NameMap-Data-treeDelete 'erased (+ 1 e-4) arg-1 e-3))))))))))))) +(define NameMap-Data-delete (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (cond ((equal? sc1 0) (NameMap-Data-case--4756-5725 'erased e-3 arg-1 (NameMap-Data-treeDelete 'erased 0 arg-1 e-3)))(else (let ((e-4 (- e-2 1))) (NameMap-Data-case--4756-5762 '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--2622-1510 (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--3000-1483 (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--2622-1462 (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--3000-1483 arg-4 arg-3 (Equality-Decidable-decEq_DecEq__Int arg-3 arg-4) arg-0)))))))) -(define Name-Core-with--2945-1435 (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--2622-1414 (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--2945-1435 arg-4 arg-3 (Equality-Decidable-decEq_DecEq__Int arg-3 arg-4) arg-0)))))))) -(define Name-Core-with--2894-1394 (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--2622-1370 (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--2894-1394 arg-4 arg-3 (Name-Core-nameEq arg-3 arg-4) arg-0)))))))) -(define Name-Core-with--2622-1336 (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--2813-1310 (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--2622-1299 (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--2813-1310 arg-4 arg-3 (Name-Core-nameEq arg-3 arg-4) arg-0)))) (else (vector 0 )))))) -(define Name-Core-with--2765-1269 (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--2622-1258 (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--2765-1269 arg-4 arg-3 (Equality-Decidable-decEq_DecEq__Int arg-3 arg-4) arg-0)))) (else (vector 0 )))))) -(define Name-Core-with--2714-1229 (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--2622-1214 (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--2714-1229 arg-4 arg-3 (Equality-Decidable-decEq_DecEq__Int arg-3 arg-4) arg-0)))) (else (vector 0 )))))) -(define Name-Core-with--2622-1187 (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--2636-1161 (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--2622-1148 (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--2636-1161 arg-4 arg-3 (Name-Core-nameEq arg-3 arg-4) arg-0)))) (else (vector 0 )))))) -(define Name-Core-case--2220-1083 (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--2220-1043 (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--2220-999 (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--2220-943 (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--2220-903 (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--2220-855 (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--2225-816 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) arg-1) (else arg-0))))) -(define Name-Core-case--2226-802 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) arg-1) (else arg-0))))) +(define Name-Core-with--2682-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--3060-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--2682-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--3060-1499 arg-4 arg-3 (Equality-Decidable-decEq_DecEq__Int arg-3 arg-4) arg-0)))))))) +(define Name-Core-with--3005-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--2682-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--3005-1451 arg-4 arg-3 (Equality-Decidable-decEq_DecEq__Int arg-3 arg-4) arg-0)))))))) +(define Name-Core-with--2954-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--2682-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--2954-1410 arg-4 arg-3 (Name-Core-nameEq arg-3 arg-4) arg-0)))))))) +(define Name-Core-with--2682-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--2873-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--2682-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--2873-1326 arg-4 arg-3 (Name-Core-nameEq arg-3 arg-4) arg-0)))) (else (vector 0 )))))) +(define Name-Core-with--2825-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--2682-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--2825-1285 arg-4 arg-3 (Equality-Decidable-decEq_DecEq__Int arg-3 arg-4) arg-0)))) (else (vector 0 )))))) +(define Name-Core-with--2774-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--2682-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--2774-1245 arg-4 arg-3 (Equality-Decidable-decEq_DecEq__Int arg-3 arg-4) arg-0)))) (else (vector 0 )))))) +(define Name-Core-with--2682-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--2696-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--2682-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--2696-1177 arg-4 arg-3 (Name-Core-nameEq arg-3 arg-4) arg-0)))) (else (vector 0 )))))) +(define Name-Core-case--2280-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--2280-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--2280-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--2280-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--2280-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--2280-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--2285-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--2286-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--2226-802 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--2225-816 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--2220-855 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--2220-903 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--2220-943 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--2220-999 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--2220-1043 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--2220-1083 e-15 e-14 e-32 e-31 (Prelude-compare_Ord__Int e-15 e-32)))))(else (Prelude-compare_Ord__Int (Name-Core-nameTag arg-0) (Name-Core-nameTag arg-1)))))))) ((9) (let ((e-16 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((9) (let ((e-33 (vector-ref sc1 1))) (Prelude-compare_Ord__Int e-16 e-33)))(else (Prelude-compare_Ord__Int (Name-Core-nameTag arg-0) (Name-Core-nameTag arg-1)))))))(else (Prelude-compare_Ord__Int (Name-Core-nameTag arg-0) (Name-Core-nameTag arg-1))))))) +(define Name-Core-min_Ord__Name (lambda (arg-0 arg-1) (Name-Core-case--2286-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--2285-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--2280-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--2280-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--2280-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--2280-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--2280-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--2280-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)))))) @@ -1429,11 +1573,9 @@ (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--2622-1148 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--2622-1187 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--2622-1214 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--2622-1258 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--2622-1299 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--2622-1336 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--2622-1370 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--2622-1414 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--2622-1462 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--2622-1510 e-16 e-33 (Equality-Decidable-decEq_DecEq__Int e-16 e-33))))(else (vector 0 ))))))(else (vector 0 )))))) +(define Name-Core-nameEq (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((0) (let ((e-17 (vector-ref sc1 1))) (let ((e-18 (vector-ref sc1 2))) (Name-Core-with--2682-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--2682-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--2682-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--2682-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--2682-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--2682-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--2682-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--2682-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--2682-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--2682-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 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 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)))))) @@ -1447,255 +1589,151 @@ (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 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--2690-2032 (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--3966-2251 (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--3736-2085 (lambda (arg-0 arg-1 arg-2 arg-3 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--3278-1851 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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--3278-1690 (lambda (arg-0 arg-1 arg-2 arg-3 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--2690-1621 (lambda (arg-0 arg-1 arg-2 arg-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--3278-1690 '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--3278-1851 '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--3278-1851 '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--3078-1476 (lambda (arg-0 arg-1 arg-2 arg-3 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--2690-1450 (lambda (arg-0 arg-1 arg-2 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--3078-1476 '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--2690-1375 (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--2690-1248 (lambda (arg-0 arg-1 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--2690-1176 (lambda (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--3966-2251 '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--2690-1248 '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--2690-1375 '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--2690-1450 '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--2690-1621 '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--2690-2032 '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 Unlit-Parser-case--2524-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--2500-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--2524-426 arg-0 arg-1 arg-2 (Literate-Text-isLiterateLine (Unlit-Parser-styleCMark) arg-0))))))))(else (Unlit-Parser-case--2524-426 arg-0 arg-1 arg-2 (Literate-Text-isLiterateLine (Unlit-Parser-styleCMark) arg-0))))))) -(define Unlit-Parser-case--2496-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--2500-401 arg-0 arg-1 (Literate-Text-isLiterateLine (Unlit-Parser-styleOrg) arg-0))))))))(else (Unlit-Parser-case--2500-401 arg-0 arg-1 (Literate-Text-isLiterateLine (Unlit-Parser-styleOrg) arg-0))))))) -(define Unlit-Parser-case--2466-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--2436-321-isStyle arg-0 (Unlit-Parser-styleCMark))))))) -(define Unlit-Parser-case--2436-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--2466-364 arg-0 (Unlit-Parser-n--2436-321-isStyle arg-0 (Unlit-Parser-styleOrg)))))))) -(define Unlit-Parser-case--2439-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--2436-321-isStyle (lambda (arg-0 arg-1) (Unlit-Parser-case--2439-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--2436-320-hasSuffix arg-0 eta-0))) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 3))) e-2)))))) -(define Unlit-Parser-n--2436-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--2496-380 arg-0 (Literate-Text-isLiterateLine (Unlit-Parser-styleBird) arg-0)))) -(define Unlit-Parser-isLitFile (lambda (arg-0) (Unlit-Parser-case--2436-349 arg-0 (Unlit-Parser-n--2436-321-isStyle arg-0 (Unlit-Parser-styleBird))))) -(define Literate-Text-with--2728-1189 (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--2509-1035 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((0) (Literate-Text-reduce arg-6 arg-5))(else (let ((sc1 arg-1)) (let ((e-2 (vector-ref sc1 2))) (Literate-Text-reduce arg-6 (Strings-Prelude-C-43C-43 arg-5 (Strings-Prelude-C-43C-43 "\u000a" (Strings-Data-unlines e-2))))))))))(else (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 2))) (Literate-Text-reduce arg-6 (Strings-Prelude-C-43C-43 arg-5 (Strings-Prelude-C-43C-43 "\u000a" (Strings-Data-unlines e-2))))))))))) -(define Literate-Text-with--2420-1020 (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--2509-1035 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--2655-1128 (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--2435-960 (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-2851) (lambda (arg-2852) (Prelude-C-60C-43C-62_Semigroup__String arg-2851 arg-2852))) (Prelude-neutral_Monoid__String)))) (List-Data-replicate 'erased (List-Data-length 'erased (Strings-Data-lines arg-2)) "\u000a"))) (else ""))))) -(define Literate-Text-case--2370-927 (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--2420-954-blank_content (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (Literate-Text-case--2435-960 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--2420-954-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--2420-1020 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--2728-1189 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--2655-1128 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 Lexer-Text-case--2259-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--2235-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--2426-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--2426-589-lexStr e-3))))))))) -(define Lexer-Text-n--2426-590-control (lambda () (Core-Lexer-Text-C-60C-124C-62 'erased 'erased (Lexer-Text-n--2426-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-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-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--2235-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--2426-590-control) (Lexer-Text-any))) (Lexer-Text-isNot q)))) (lambda () (Lexer-Text-is q)))))) -(define Lexer-Text-approx (lambda (arg-0) (Lexer-Text-case--2259-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--2930-2451 (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--2874-2399 (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--2710-2267 (lambda (arg-0 arg-1 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--2496-2234 (lambda (arg-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--2710-2267 '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--2508-2150 (lambda (arg-0 arg-1 arg-2 arg-3 arg-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--2496-2045-countNLs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5))) (vector 0 (Core-Lexer-Text-n--2496-2046-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--2496-2047-getFirstToken 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-9 arg-10)))))) -(define Core-Lexer-Text-case--2507-2069 (lambda (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--2117-1903 (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--2117-1869 (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--2117-1834 (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--2117-1790 (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--2117-1741 (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--2496-2047-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--2508-2150 '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--2496-2046-getCols (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (Core-Lexer-Text-case--2507-2069 '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--2496-2045-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--2496-2234 'erased arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (Core-Lexer-Text-n--2496-2047-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--2117-1741 '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--2117-1790 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--2930-2451 '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--2874-2399 '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-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 Lexer-Parser-case--3158-1184 (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) (Lexer-Parser-n--3158-1142-notComment arg-0 arg-1 eta-0)) e-2) (vector 1 (vector 0 e-6 e-10 (vector 14 )) (vector 0 )))))(else (vector 0 e-3)))))))(else (vector 0 e-3)))))))(else (vector 0 e-3))))))))) -(define Lexer-Parser-case--3161-1147 (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 Lexer-Parser-case--2963-953 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (vector 7 arg-0)) (else (vector 0 (vector 1 arg-0 (vector 0 )))))))) -(define Lexer-Parser-case--2923-906 (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 Lexer-Parser-case--2914-890 (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)))) (Lexer-Parser-case--2923-906 arg-0 num (Octal-Utils-fromOct (Prelude-reverse num))))))))) -(define Lexer-Parser-case--2876-862 (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 Lexer-Parser-case--2867-846 (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)))) (Lexer-Parser-case--2876-862 arg-0 num (Hex-Utils-fromHex (Prelude-reverse num))))))))) -(define Lexer-Parser-case--2527-514 (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 (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) (Lexer-Parser-isIdentTrailing arg-1 eta-0))) e-3)))))))))) -(define Lexer-Parser-n--2961-925-parseNSIdent (lambda (ext-0) (vector 0 (List-Data-reverse 'erased (Strings-Data-split (lambda (arg-0) (Prelude-C-61C-61_Eq__Char arg-0 #\.)) ext-0))))) -(define Lexer-Parser-n--2961-926-parseIdent (lambda (arg-0) (Lexer-Parser-case--2963-953 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 (Lexer-Parser-keywords))))) -(define Lexer-Parser-n--3158-1142-notComment (lambda (arg-0 arg-1 arg-2) (Lexer-Parser-case--3161-1147 arg-0 arg-1 arg-2 (let ((sc0 arg-2)) (let ((e-3 (vector-ref sc0 3))) e-3))))) -(define Lexer-Parser-n--2269-316-dotSep (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 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-2851) (lambda (arg-2852) (Prelude-C-60C-43C-62_Semigroup__String arg-2851 arg-2852))) (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 Lexer-Parser-show_Show__Token (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((1) (let ((e-0 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "hole identifier " e-0))) ((2) (let ((e-1 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "literal " (Prelude-show_Show__Integer e-1)))) ((3) (let ((e-2 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "string " (Prelude-show_Show__String e-2)))) ((4) (let ((e-3 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "character " (Prelude-show_Show__String e-3)))) ((5) (let ((e-4 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "double " (Prelude-show_Show__Double e-4)))) ((6) (let ((e-5 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "symbol " e-5))) ((7) (let ((e-6 (vector-ref sc0 1))) e-6)) ((8) (let ((e-7 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "Unrecognised " e-7))) ((9) "comment") ((10) "doc comment") ((11) (let ((e-10 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "CGDirective " e-10))) ((12) (let ((e-11 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "record field " e-11))) ((13) (let ((e-12 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "pragma " e-12))) ((14) "end of input") (else (let ((e-13 (vector-ref sc0 1))) (let ((sc1 e-13)) (case (vector-ref sc1 0) ((1) (let ((e-15 (vector-ref sc1 1))) (let ((e-16 (vector-ref sc1 2))) (let ((sc2 e-16)) (case (vector-ref sc2 0) ((0) (Strings-Prelude-C-43C-43 "identifier " e-15))(else (Strings-Prelude-C-43C-43 "namespaced identifier " (Lexer-Parser-n--2269-316-dotSep e-13 (List-Data-reverse 'erased e-13)))))))))(else (Strings-Prelude-C-43C-43 "namespaced identifier " (Lexer-Parser-n--2269-316-dotSep e-13 (List-Data-reverse 'erased e-13)))))))))))) -(define Lexer-Parser-showPrec_Show__Token (lambda (arg-0 arg-1) (Lexer-Parser-show_Show__Token arg-1))) -(define Lexer-Parser-__Impl_Show_Token (lambda () (vector 0 (lambda (x) (Lexer-Parser-show_Show__Token x)) (lambda (d) (lambda (x) (Lexer-Parser-showPrec_Show__Token d x)))))) -(define Lexer-Parser-validSymbol (lambda () (Lexer-Text-some (Core-Lexer-Text-pred (lambda (eta-0) (Lexer-Parser-isOpChar eta-0)))))) -(define 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 () (Lexer-Parser-toEndComment (+ 1 e-0)))) (Core-Lexer-Text-C-60C-124C-62 'erased 'erased (vector 4 (Lexer-Text-is #\{) (lambda () (Lexer-Parser-singleBrace e-0))) (Core-Lexer-Text-C-60C-124C-62 'erased 'erased (vector 4 (Lexer-Text-is #\-) (lambda () (Lexer-Parser-singleDash e-0))) (vector 4 (Lexer-Text-stringLit) (lambda () (Lexer-Parser-toEndComment (+ 1 e-0))))))))))))) -(define 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 Lexer-Parser-singleDash (lambda (arg-0) (Core-Lexer-Text-C-60C-124C-62 'erased 'erased (vector 4 (Lexer-Text-is #\-) (lambda () (Lexer-Parser-doubleDash arg-0))) (Core-Lexer-Text-C-60C-124C-62 'erased 'erased (vector 4 (Lexer-Text-is #\}) (lambda () (Lexer-Parser-toEndComment arg-0))) (Lexer-Parser-toEndComment (+ 1 arg-0)))))) -(define 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 () (Lexer-Parser-singleDash (+ 1 arg-0)))) (Lexer-Parser-toEndComment (+ 1 arg-0))))) -(define Lexer-Parser-reservedSymbols (lambda () (List-Prelude-C-43C-43 'erased (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 Lexer-Parser-recField (lambda () (vector 4 (Lexer-Text-is #\.) (lambda () (vector 4 (Core-Lexer-Text-pred (lambda (eta-0) (Lexer-Parser-isIdentStart (vector 2 ) eta-0))) (lambda () (Lexer-Text-many (Core-Lexer-Text-pred (lambda (eta-0) (Lexer-Parser-isIdentTrailing (vector 2 ) eta-0)))))))))) -(define Lexer-Parser-rawTokens (lambda () (List-Prelude-C-43C-43 'erased (vector 1 (vector 0 (Lexer-Parser-comment) (lambda (eta-0) (vector 9 eta-0))) (vector 1 (vector 0 (Lexer-Parser-blockComment) (lambda (eta-0) (vector 9 eta-0))) (vector 1 (vector 0 (Lexer-Parser-docComment) (lambda (eta-0) (vector 10 eta-0))) (vector 1 (vector 0 (Lexer-Parser-cgDirective) (lambda (eta-0) (Lexer-Parser-mkDirective eta-0))) (vector 1 (vector 0 (Lexer-Parser-holeIdent) (lambda (x) (vector 1 (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 6 eta-0)))) (Lexer-Parser-symbols)) (vector 1 (vector 0 (Lexer-Parser-doubleLit) (lambda (x) (vector 5 (Prelude-cast_Cast__String_Double x)))) (vector 1 (vector 0 (Lexer-Text-hexLit) (lambda (x) (vector 2 (Lexer-Parser-fromHexLit x)))) (vector 1 (vector 0 (Lexer-Text-octLit) (lambda (x) (vector 2 (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 4 (String-Utils-stripQuotes x)))) (vector 1 (vector 0 (Lexer-Parser-recField) (lambda (x) (vector 12 (Strings-Data-strTail x)))) (vector 1 (vector 0 (Lexer-Parser-nsIdent) (lambda (eta-0) (Lexer-Parser-n--2961-925-parseNSIdent eta-0))) (vector 1 (vector 0 (vector 4 (Core-Lexer-Text-pred (lambda (eta-0) (Lexer-Parser-isIdentStart (vector 2 ) eta-0))) (lambda () (Lexer-Text-many (Core-Lexer-Text-pred (lambda (eta-0) (Lexer-Parser-isIdentTrailing (vector 2 ) eta-0)))))) (lambda (eta-0) (Lexer-Parser-n--2961-926-parseIdent eta-0))) (vector 1 (vector 0 (Lexer-Parser-pragma) (lambda (x) (vector 13 (Strings-Data-strTail x)))) (vector 1 (vector 0 (Lexer-Text-space) (lambda (eta-0) (vector 9 eta-0))) (vector 1 (vector 0 (Lexer-Parser-validSymbol) (lambda (eta-0) (vector 6 eta-0))) (vector 1 (vector 0 (Lexer-Text-symbol) (lambda (eta-0) (vector 8 eta-0))) (vector 0 )))))))))))))))))) -(define Lexer-Parser-pragma (lambda () (vector 4 (Lexer-Text-is #\%) (lambda () (vector 4 (Core-Lexer-Text-pred (lambda (eta-0) (Lexer-Parser-isIdentStart (vector 2 ) eta-0))) (lambda () (Lexer-Text-many (Core-Lexer-Text-pred (lambda (eta-0) (Lexer-Parser-isIdentTrailing (vector 2 ) eta-0)))))))))) -(define Lexer-Parser-nsIdent (lambda () (vector 4 (vector 4 (Core-Lexer-Text-pred (lambda (eta-0) (Lexer-Parser-isIdentStart (vector 0 ) eta-0))) (lambda () (Lexer-Text-many (Core-Lexer-Text-pred (lambda (eta-0) (Lexer-Parser-isIdentTrailing (vector 0 ) eta-0)))))) (lambda () (Lexer-Text-many (vector 4 (Lexer-Text-is #\.) (lambda () (vector 4 (Core-Lexer-Text-pred (lambda (eta-0) (Lexer-Parser-isIdentStart (vector 2 ) eta-0))) (lambda () (Lexer-Text-many (Core-Lexer-Text-pred (lambda (eta-0) (Lexer-Parser-isIdentTrailing (vector 2 ) eta-0))))))))))))) -(define Lexer-Parser-mkDirective (lambda (arg-0) (vector 11 (Strings-Data-trim (Prelude-substr (+ 1 (+ 1 (+ 1 0))) (Prelude-length arg-0) arg-0))))) -(define Lexer-Parser-lexTo (lambda (arg-0 arg-1) (Lexer-Parser-case--3158-1184 arg-1 arg-0 (Core-Lexer-Text-lexTo 'erased arg-0 (Lexer-Parser-rawTokens) arg-1)))) -(define 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 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 Lexer-Parser-isIdentTrailing (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((1) (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 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) ((0) (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 Lexer-Parser-isIdentNormal (lambda (ext-0) (Lexer-Parser-case--2527-514 ext-0 (vector 2 ) (Prelude-unpack ext-0)))) -(define Lexer-Parser-isIdent (lambda (arg-0 arg-1) (Lexer-Parser-case--2527-514 arg-1 arg-0 (Prelude-unpack arg-1)))) -(define Lexer-Parser-identNormal (lambda () (vector 4 (Core-Lexer-Text-pred (lambda (eta-0) (Lexer-Parser-isIdentStart (vector 2 ) eta-0))) (lambda () (Lexer-Text-many (Core-Lexer-Text-pred (lambda (eta-0) (Lexer-Parser-isIdentTrailing (vector 2 ) eta-0)))))))) -(define Lexer-Parser-identAllowDashes (lambda () (vector 4 (Core-Lexer-Text-pred (lambda (eta-0) (Lexer-Parser-isIdentStart (vector 1 ) eta-0))) (lambda () (Lexer-Text-many (Core-Lexer-Text-pred (lambda (eta-0) (Lexer-Parser-isIdentTrailing (vector 1 ) eta-0)))))))) -(define Lexer-Parser-ident (lambda (arg-0) (vector 4 (Core-Lexer-Text-pred (lambda (eta-0) (Lexer-Parser-isIdentStart arg-0 eta-0))) (lambda () (Lexer-Text-many (Core-Lexer-Text-pred (lambda (eta-0) (Lexer-Parser-isIdentTrailing arg-0 eta-0)))))))) -(define Lexer-Parser-holeIdent (lambda () (vector 4 (Lexer-Text-is #\?) (lambda () (vector 4 (Core-Lexer-Text-pred (lambda (eta-0) (Lexer-Parser-isIdentStart (vector 2 ) eta-0))) (lambda () (Lexer-Text-many (Core-Lexer-Text-pred (lambda (eta-0) (Lexer-Parser-isIdentTrailing (vector 2 ) eta-0)))))))))) -(define Lexer-Parser-fromOctLit (lambda (arg-0) (Lexer-Parser-case--2914-890 arg-0 (Prelude-C-60C-61_Ord__Nat (Prelude-length arg-0) (Prelude-fromInteger_Num__Nat 2))))) -(define Lexer-Parser-fromHexLit (lambda (arg-0) (Lexer-Parser-case--2867-846 arg-0 (Prelude-C-60C-61_Ord__Nat (Prelude-length arg-0) (Prelude-fromInteger_Num__Nat 2))))) -(define 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 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 () (Lexer-Parser-toEndComment arg-0))) (vector 1 (vector 5 (Lexer-Text-many (Lexer-Text-isNot (integer->char 10))) (Lexer-Parser-toEndComment (+ 1 arg-0))) (vector 0 ))))))) -(define 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 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 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 Lexer-Parser-blockComment (lambda () (vector 4 (vector 4 (Lexer-Text-is #\{) (lambda () (Lexer-Text-is #\-))) (lambda () (Lexer-Parser-toEndComment (+ 1 0)))))) -(define String-Utils-stripQuotes (lambda (ext-0) (substring (Prelude-reverse (substring (Prelude-reverse ext-0) 1 (string-length (Prelude-reverse ext-0)))) 1 (string-length (Prelude-reverse (substring (Prelude-reverse ext-0) 1 (string-length (Prelude-reverse ext-0)))))))) -(define Octal-Utils-n--1316-585-fromOctCharsC-39 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (vector 1 0)) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Octal-Utils-fromOctDigit (Prelude-toLower e-2)) (lambda (bind-0) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Octal-Utils-n--1316-585-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 Support-Parser-case--5970-3559 (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--5955-3537 (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--5970-3559 arg-0 arg-1 (Prelude-C-61C-61_Eq__Nat (Prelude-length arg-1) (Prelude-fromInteger_Num__Nat 0)))))))) +(define Support-Parser-case--5709-3442 (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--5745-3375 (lambda (arg-0 arg-1 arg-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--5709-3326 (lambda (arg-0 arg-1 arg-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--5745-3375 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--5322-3294 (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--5709-3326 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--5709-3442 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--5322-3242 (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--5322-3199-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--5322-3149 (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--5322-3106-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--5322-3199-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--5322-3199-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--5322-3106-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--5322-3106-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__ParseError (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 3))) (Strings-Prelude-C-43C-43 "Parse error: " (Strings-Prelude-C-43C-43 e-0 (Strings-Prelude-C-43C-43 " (next tokens: " (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Source-Lexer-Parser-show_Show__SourceToken x)) (lambda (d) (lambda (x) (Source-Lexer-Parser-showPrec_Show__SourceToken d x)))) (List-Data-take 'erased (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) e-2)) ")"))))))) ((1) (let ((e-3 (vector-ref sc0 1))) (let ((sc1 e-3)) (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))) (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-8 e-12)) (Strings-Prelude-C-43C-43 " input: " e-13))))))))))) ((2) (let ((e-4 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "File error: " (File-System-show_Show__FileError e-4)))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (let ((e-14 (vector-ref sc1 1))) (let ((e-15 (vector-ref sc1 2))) (let ((e-16 (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-15 e-14)) (Strings-Prelude-C-43C-43 " input: " e-16))))))))))))) +(define Support-Parser-showPrec_Show__ParseError (lambda (arg-0 arg-1) (Support-Parser-show_Show__ParseError arg-1))) +(define Support-Parser-__Impl_Show_ParseError (lambda () (vector 0 (lambda (x) (Support-Parser-show_Show__ParseError x)) (lambda (d) (lambda (x) (Support-Parser-showPrec_Show__ParseError d x)))))) +(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-mapParseError (lambda (arg-0) (let ((sc0 arg-0)) (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-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--5955-3537 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--5322-3149 e-6 (List-Data-span 'erased (lambda (eta-0) (Prelude-isHexDigit eta-0)) e-6))) ((equal? sc3 #\o) (Support-Parser-case--5322-3242 e-6 (List-Data-span 'erased (lambda (eta-0) (Prelude-isOctDigit eta-0)) e-6)))(else (Support-Parser-case--5322-3294 e-3 (List-Data-span 'erased (lambda (eta-0) (Prelude-isDigit eta-0)) e-3))))))))(else (Support-Parser-case--5322-3294 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 Source-Lexer-Parser-case--3129-1091 (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--3129-1049-notComment arg-0 arg-1 eta-0)) e-2) (vector 1 (vector 0 e-6 e-10 (vector 14 )) (vector 0 )))))(else (vector 0 e-3)))))))(else (vector 0 e-3)))))))(else (vector 0 e-3))))))))) +(define Source-Lexer-Parser-case--3132-1054 (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--2934-860 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (vector 7 arg-0)) (else (vector 0 (vector 1 arg-0 (vector 0 )))))))) +(define Source-Lexer-Parser-case--2894-813 (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--2885-797 (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--2894-813 arg-0 num (Octal-Utils-fromOct (Prelude-reverse num))))))))) +(define Source-Lexer-Parser-case--2847-769 (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--2838-753 (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--2847-769 arg-0 num (Hex-Utils-fromHex (Prelude-reverse num))))))))) +(define Source-Lexer-Parser-n--2932-832-parseNSIdent (lambda (ext-0) (vector 0 (List-Data-reverse 'erased (Strings-Data-split (lambda (arg-0) (Prelude-C-61C-61_Eq__Char arg-0 #\.)) ext-0))))) +(define Source-Lexer-Parser-n--2932-833-parseIdent (lambda (arg-0) (Source-Lexer-Parser-case--2934-860 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--3129-1049-notComment (lambda (arg-0 arg-1 arg-2) (Source-Lexer-Parser-case--3132-1054 arg-0 arg-1 arg-2 (let ((sc0 arg-2)) (let ((e-3 (vector-ref sc0 3))) e-3))))) +(define Source-Lexer-Parser-n--2339-317-dotSep (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 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-2851) (lambda (arg-2852) (Prelude-C-60C-43C-62_Semigroup__String arg-2851 arg-2852))) (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 Source-Lexer-Parser-show_Show__SourceToken (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((1) (let ((e-0 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "hole identifier " e-0))) ((2) (let ((e-1 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "literal " (Prelude-show_Show__Integer e-1)))) ((3) (let ((e-2 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "string " (Prelude-show_Show__String e-2)))) ((4) (let ((e-3 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "character " (Prelude-show_Show__String e-3)))) ((5) (let ((e-4 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "double " (Prelude-show_Show__Double e-4)))) ((6) (let ((e-5 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "symbol " e-5))) ((7) (let ((e-6 (vector-ref sc0 1))) e-6)) ((8) (let ((e-7 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "Unrecognised " e-7))) ((9) "comment") ((10) "doc comment") ((11) (let ((e-10 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "CGDirective " e-10))) ((12) (let ((e-11 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "record field " e-11))) ((13) (let ((e-12 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "pragma " e-12))) ((14) "end of input") (else (let ((e-13 (vector-ref sc0 1))) (let ((sc1 e-13)) (case (vector-ref sc1 0) ((1) (let ((e-15 (vector-ref sc1 1))) (let ((e-16 (vector-ref sc1 2))) (let ((sc2 e-16)) (case (vector-ref sc2 0) ((0) (Strings-Prelude-C-43C-43 "identifier " e-15))(else (Strings-Prelude-C-43C-43 "namespaced identifier " (Source-Lexer-Parser-n--2339-317-dotSep e-13 (List-Data-reverse 'erased e-13)))))))))(else (Strings-Prelude-C-43C-43 "namespaced identifier " (Source-Lexer-Parser-n--2339-317-dotSep e-13 (List-Data-reverse 'erased e-13)))))))))))) +(define Source-Lexer-Parser-showPrec_Show__SourceToken (lambda (arg-0 arg-1) (Source-Lexer-Parser-show_Show__SourceToken arg-1))) +(define Source-Lexer-Parser-__Impl_Show_SourceToken (lambda () (vector 0 (lambda (x) (Source-Lexer-Parser-show_Show__SourceToken x)) (lambda (d) (lambda (x) (Source-Lexer-Parser-showPrec_Show__SourceToken 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 () (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 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 1 (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 6 eta-0)))) (Source-Lexer-Parser-symbols)) (vector 1 (vector 0 (Source-Lexer-Parser-doubleLit) (lambda (x) (vector 5 (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 4 (String-Utils-stripQuotes x)))) (vector 1 (vector 0 (Source-Lexer-Parser-recField) (lambda (x) (vector 12 (Strings-Data-strTail x)))) (vector 1 (vector 0 (Source-Lexer-Parser-nsIdent) (lambda (eta-0) (Source-Lexer-Parser-n--2932-832-parseNSIdent eta-0))) (vector 1 (vector 0 (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)))))) (lambda (eta-0) (Source-Lexer-Parser-n--2932-833-parseIdent eta-0))) (vector 1 (vector 0 (Source-Lexer-Parser-pragma) (lambda (x) (vector 13 (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 6 eta-0))) (vector 1 (vector 0 (Lexer-Text-symbol) (lambda (eta-0) (vector 8 eta-0))) (vector 0 )))))))))))))))))) +(define Source-Lexer-Parser-pragma (lambda () (vector 4 (Lexer-Text-is #\%) (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 Source-Lexer-Parser-nsIdent (lambda () (vector 4 (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)))))) (lambda () (Lexer-Text-many (vector 4 (Lexer-Text-is #\.) (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 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--3129-1091 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-isIdentNormal (lambda (ext-0) (Common-Lexer-Parser-case--2299-307 ext-0 (vector 2 ) (Prelude-unpack ext-0)))) +(define Source-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 Source-Lexer-Parser-identAllowDashes (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)))))))) +(define Source-Lexer-Parser-holeIdent (lambda () (vector 4 (Lexer-Text-is #\?) (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 Source-Lexer-Parser-fromOctLit (lambda (arg-0) (Source-Lexer-Parser-case--2885-797 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--2838-753 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--1166-240-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--1166-240-lengthInt arg-0) 2) arg-0))) +(define Octal-Utils-n--1320-585-fromOctCharsC-39 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (vector 1 0)) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Octal-Utils-fromOctDigit (Prelude-toLower e-2)) (lambda (bind-0) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Octal-Utils-n--1320-585-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--1316-585-fromOctCharsC-39 1 ext-0))) +(define Octal-Utils-fromOctChars (lambda (ext-0) (Octal-Utils-n--1320-585-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--1322-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--1322-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--1263-543 (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--1261-534-asHexC-39 arg-0 e-1 (vector 1 (Hex-Utils-hexDigit e-2) arg-3))))))) -(define Hex-Utils-n--1380-649-fromHexCharsC-39 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (vector 1 0)) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Hex-Utils-fromHexDigit (Prelude-toLower e-2)) (lambda (bind-0) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Hex-Utils-n--1380-649-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--1261-534-asHexC-39 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (cond ((equal? sc0 0) arg-2)(else (Hex-Utils-with--1263-543 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) (else #\f))))) +(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--1267-543 (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--1265-534-asHexC-39 arg-0 e-1 (vector 1 (Hex-Utils-hexDigit e-2) arg-3))))))) +(define Hex-Utils-n--1384-649-fromHexCharsC-39 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (vector 1 0)) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Hex-Utils-fromHexDigit (Prelude-toLower e-2)) (lambda (bind-0) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Hex-Utils-n--1384-649-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--1265-534-asHexC-39 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (cond ((equal? sc0 0) arg-2)(else (Hex-Utils-with--1267-543 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 (Builtin-idris_crash 'erased "Unhandled input for Utils.Hex.hexDigit at src/Utils/Hex.idr:6:1--7:1")))))) (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--1380-649-fromHexCharsC-39 1 ext-0))) +(define Hex-Utils-fromHexChars (lambda (ext-0) (Hex-Utils-n--1384-649-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--1261-534-asHexC-39 arg-0 arg-0 (vector 0 ))))) -(define Unelab-TTImp-case--12441-17401 (lambda (arg-0 arg-1 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--14698-17339 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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--12441-17301 (lambda (arg-0 arg-1 arg-2 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--12441-17245 (lambda (arg-0 arg-1 arg-2 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--14458-17159 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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 (vector 0 )))))) -(define Unelab-TTImp-case--12441-17099 (lambda (arg-0 arg-1 arg-2 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--14458-17159 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 e-3 e-2 _-0 e-5 (Prelude-C-124C-124 (Unelab-TTImp-used 'erased 0 arg-7) (lambda () (Prelude-C-124C-124 (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-3 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega)) (lambda () (Unelab-TTImp-n--12441-17077-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))))))))) (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--14317-17024 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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--12441-16986 (lambda (arg-0 arg-1 arg-2 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--12441-16922 (lambda (arg-0 arg-1 arg-2 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--12438-16887 (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--12435-16768 (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--12435-16719 (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--12435-16670 (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--13760-16548 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-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--13718-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) (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--13678-16488 (lambda (arg-0 arg-1 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--12435-16456 (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--13459-16305 (lambda (arg-0 arg-1 arg-2 arg-3 arg-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--13423-16264 (lambda (arg-0 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--12435-16236 (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--12435-16195 (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--13218-16120 (lambda (arg-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--12435-16064 (lambda (arg-0 arg-1 arg-2 arg-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--13078-15995 (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--12435-15942 (lambda (arg-0 arg-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--12935-15845 (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--12429-15827 (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--12709-15669 (lambda (arg-0 arg-1 arg-2 arg-3 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--12427-15411-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--12676-15633 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (Unelab-TTImp-case--12709-15669 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--12655-15609 (lambda (arg-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--12676-15633 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--12427-15406-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--12427-15594 (lambda (arg-0 arg-1 arg-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--12655-15609 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--12454-15466 (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--12427-15407-idxOrDefault arg-0 arg-1 arg-2 arg-3 'erased arg-6 e-2 e-3)))))) -(define Unelab-TTImp-n--12270-15251-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--14911-17480-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--14911-17482-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--14911-17481-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--14911-17480-toName arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-0)) arg-7))))) -(define Unelab-TTImp-n--14911-17481-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--12427-15409-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--12427-15408-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--12427-15410-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--12427-15409-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--12427-15411-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--12427-15410-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--12427-15411-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--12441-17077-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--12427-15407-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--12427-15407-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--12427-15408-getNth (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (Unelab-TTImp-case--12454-15466 arg-0 arg-1 arg-2 arg-3 'erased arg-6 arg-5 (TT-Core-getFnArgs 'erased arg-6)))) -(define Unelab-TTImp-n--12429-15807-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--12429-15807-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--12429-15807-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--12427-15406-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--12270-15251-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 Hex-Utils-asHex (lambda (arg-0) (Prelude-pack (Hex-Utils-n--1265-534-asHexC-39 arg-0 arg-0 (vector 0 ))))) +(define Common-Lexer-Parser-case--2299-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-isIdentTrailing (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((1) (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) ((0) (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-isIdent (lambda (arg-0 arg-1) (Common-Lexer-Parser-case--2299-307 arg-1 arg-0 (Prelude-unpack arg-1)))) +(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 Common-Rule-Parser-case--2489-2367 (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 Unelab-TTImp-case--12535-17446 (lambda (arg-0 arg-1 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--14792-17384 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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--12535-17346 (lambda (arg-0 arg-1 arg-2 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--12535-17290 (lambda (arg-0 arg-1 arg-2 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--14552-17204 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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 (vector 0 )))))) +(define Unelab-TTImp-case--12535-17144 (lambda (arg-0 arg-1 arg-2 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--14552-17204 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 e-3 e-2 _-0 e-5 (Prelude-C-124C-124 (Unelab-TTImp-used 'erased 0 arg-7) (lambda () (Prelude-C-124C-124 (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-3 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega)) (lambda () (Unelab-TTImp-n--12535-17122-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))))))))) (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--14411-17069 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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--12535-17031 (lambda (arg-0 arg-1 arg-2 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--12535-16967 (lambda (arg-0 arg-1 arg-2 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--12532-16932 (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--12529-16813 (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--12529-16764 (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--12529-16715 (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--13854-16593 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-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--13812-16562 (lambda (arg-0 arg-1 arg-2 arg-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--13772-16533 (lambda (arg-0 arg-1 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--12529-16501 (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--13553-16350 (lambda (arg-0 arg-1 arg-2 arg-3 arg-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--13517-16309 (lambda (arg-0 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--12529-16281 (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--12529-16240 (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--13312-16165 (lambda (arg-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--12529-16109 (lambda (arg-0 arg-1 arg-2 arg-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--13172-16040 (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--12529-15987 (lambda (arg-0 arg-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--13029-15890 (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--12523-15872 (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--12803-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 arg-13) (let ((sc0 arg-13)) (cond ((equal? sc0 0) (Unelab-TTImp-n--12521-15456-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--12770-15678 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-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--12803-15714 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--12749-15654 (lambda (arg-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--12770-15678 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--12521-15451-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--12521-15639 (lambda (arg-0 arg-1 arg-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--12749-15654 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--12548-15511 (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--12521-15452-idxOrDefault arg-0 arg-1 arg-2 arg-3 'erased arg-6 e-2 e-3)))))) +(define Unelab-TTImp-n--12364-15296-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--15005-17525-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--15005-17527-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--15005-17526-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--15005-17525-toName arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-0)) arg-7))))) +(define Unelab-TTImp-n--15005-17526-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--12521-15454-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--12521-15453-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--12521-15455-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--12521-15454-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--12521-15456-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--12521-15455-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--12521-15456-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--12535-17122-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--12521-15452-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--12521-15452-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--12521-15453-getNth (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (Unelab-TTImp-case--12548-15511 arg-0 arg-1 arg-2 arg-3 'erased arg-6 arg-5 (TT-Core-getFnArgs 'erased arg-6)))) +(define Unelab-TTImp-n--12523-15852-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--12523-15852-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--12523-15852-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--12521-15451-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--12364-15296-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 1) (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--12429-15827 'erased arg-2 e-2 e-3 arg-1 (Unelab-TTImp-n--12429-15807-getFnArgs 'erased arg-2 e-2 e-3 arg-1 e-2 (vector 0 ))))))))))) +(define Unelab-TTImp-unelabSugar (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (lambda (eta-0) (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--12523-15872 'erased arg-2 e-2 e-3 arg-1 (Unelab-TTImp-n--12523-15852-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--12655-15609 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--14458-17159 arg-0 e-11 e-10 e-9 arg-5 arg-9 arg-8 arg-7 arg-4 arg-3 arg-2 arg-1 e-3 e-2 _-0 e-6 (Prelude-C-124C-124 (Unelab-TTImp-used 'erased 0 arg-7) (lambda () (Prelude-C-124C-124 (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega e-9 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega)) (lambda () (Unelab-TTImp-n--12441-17077-isDefImp arg-0 e-11 e-10 e-9 arg-5 arg-9 arg-8 arg-7 arg-4 arg-3 arg-2 arg-1 'erased e-10))))))))) (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--14911-17482-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--9428-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 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--12749-15654 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--14552-17204 arg-0 e-11 e-10 e-9 arg-5 arg-9 arg-8 arg-7 arg-4 arg-3 arg-2 arg-1 e-3 e-2 _-0 e-6 (Prelude-C-124C-124 (Unelab-TTImp-used 'erased 0 arg-7) (lambda () (Prelude-C-124C-124 (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega e-9 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega)) (lambda () (Unelab-TTImp-n--12535-17122-isDefImp arg-0 e-11 e-10 e-9 arg-5 arg-9 arg-8 arg-7 arg-4 arg-3 arg-2 arg-1 'erased e-10))))))))) (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--15005-17527-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--9514-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--9428-3845 (Value-Core-withArgHoles)))) +(define Value-Core-tcOnly (lambda () (Value-Core-case--9514-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)))) @@ -1705,76 +1743,76 @@ (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--3740-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--3740-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--3652-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--3401-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--3401-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--3288-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--3401-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--3401-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--3288-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--2547-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--3288-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--3288-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--3175-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--3033-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--3058-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--3033-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--2547-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--3033-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--3033-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--2861-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--2861-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--2758-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--2861-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--2861-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--2758-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--2547-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--2758-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--2758-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--2619-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--2619-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--2547-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--2619-1520 'erased arg-1 arg-2 arg-3 arg-4 (IntMap-Data-treeDelete 'erased 0 arg-4 arg-3))) (else (IntMap-Data-case--2619-1574 'erased arg-1 arg-2 arg-3 arg-4 (IntMap-Data-treeDelete 'erased 0 arg-4 arg-1))))))) -(define IntMap-Data-case--2547-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--2467-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--2208-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--2208-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--2045-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--2208-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--2208-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--2045-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--1690-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--2045-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--2045-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--1819-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--1819-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--1690-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--1819-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--1819-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--1690-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--1583-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--1460-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--1583-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--1460-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--1460-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--3574-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--3574-2334-treeToListC-39 'erased 'erased 'erased (IntMap-Data-n--3574-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--3574-2334-treeToListC-39 'erased 'erased 'erased (IntMap-Data-n--3574-2334-treeToListC-39 'erased 'erased 'erased (IntMap-Data-n--3574-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--3574-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--1460-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--1460-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--1460-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--1690-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--1690-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--1690-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--2467-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--2547-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--2547-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--2547-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--2547-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--2547-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-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--3652-2422 'erased e-2 arg-2 e-3 arg-1 (IntMap-Data-treeInsert 'erased 'erased arg-1 arg-2 e-3))))))))) +(define IntMap-Data-insert (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (vector 1 0 (vector 0 arg-1 arg-2))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (IntMap-Data-case--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--3740-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--3740-2544 'erased e-4 e-3 arg-1 (IntMap-Data-treeDelete 'erased (+ 1 e-4) arg-1 e-3))))))))))))) +(define IntMap-Data-delete (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (cond ((equal? sc1 0) (IntMap-Data-case--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--4706-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--4641-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--4706-1468 arg-0 arg-1 arg-2 arg-3 e-2 e-3 (Env-Core-isUsed 'erased 0 arg-3))))))) -(define Env-Core-case--4641-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--4550-1329 (lambda (arg-0 arg-1 arg-2 arg-3) (vector 1 (+ 1 arg-3)))) -(define Env-Core-case--4349-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--3836-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--3815-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--4349-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--4349-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--4349-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--4349-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--4349-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--4349-1222-dropS arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-3))))))))))))) +(define Env-Core-case--4769-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--4704-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--4769-1468 arg-0 arg-1 arg-2 arg-3 e-2 e-3 (Env-Core-isUsed 'erased 0 arg-3))))))) +(define Env-Core-case--4704-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--4613-1329 (lambda (arg-0 arg-1 arg-2 arg-3) (vector 1 (+ 1 arg-3)))) +(define Env-Core-case--4412-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--3899-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--3878-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--4412-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--4412-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--4412-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--4412-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--4412-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--4412-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--4641-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--4641-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-mkShrinkSub (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (Env-Core-case--4704-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--4704-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)))))))) @@ -1783,33 +1821,33 @@ (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--4349-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--4349-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--4349-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--4349-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-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--4412-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--4412-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--4412-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--4412-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--3815-609 e-2 e-3 e-9 e-8 arg-1 (Name-Core-nameEq arg-1 e-2)))))))))))) +(define Env-Core-defined (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-2)) (vector 0 ))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-2)) (let ((e-8 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (Env-Core-case--3878-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--8145-3018 (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--8007-2902 (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--7949-2844 (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--7891-2787 (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--7462-2338 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) arg-5)) -(define Core-Core-case--7436-2324 (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--7462-2338 '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--7263-2130 (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--7133-1996 (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--5882-784 (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--5650-759 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) "Oh yes it is (Internal error!)") ((1) (let ((e-0 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "Missing cases:\u000a\u0009" (Name-Core-showSep "\u000a\u0009" (Prelude-map_Functor__List 'erased 'erased (lambda (arg-3) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) arg-3)) e-0))))) (else (let ((e-1 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "Calls non covering function" (let ((sc1 e-1)) (case (vector-ref sc1 0) ((1) (let ((e-3 (vector-ref sc1 1))) (let ((e-2 (vector-ref sc1 2))) (let ((sc2 e-2)) (case (vector-ref sc2 0) ((0) (Strings-Prelude-C-43C-43 " " (Name-Core-show_Show__Name e-3)))(else (Strings-Prelude-C-43C-43 "s: " (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Name-Core-show_Show__Name eta-0)) e-1)))))))))(else (Strings-Prelude-C-43C-43 "s: " (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Name-Core-show_Show__Name eta-0)) e-1))))))))))))) -(define Core-Core-case--5650-661 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-2) " is not a valid impossible pattern because it typechecks"))) (else (let ((e-5 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "Not a valid impossible pattern:\u000a\u0009" (Core-Core-show_Show__Error e-5)))))))) -(define Core-Core-case--5590-512 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) "older") (else "newer"))))) -(define Core-Core-n--5650-836-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--5650-837-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--5650-1395-showMod (lambda (arg-0 arg-1) (Name-Core-showSep "." (List-Data-reverse 'erased arg-1)))) +(define Core-Core-case--8222-3018 (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--8084-2902 (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--8026-2844 (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--7968-2787 (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--7539-2338 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) arg-5)) +(define Core-Core-case--7513-2324 (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--7539-2338 '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--7340-2130 (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--7210-1996 (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--5959-784 (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--5727-759 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) "Oh yes it is (Internal error!)") ((1) (let ((e-0 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "Missing cases:\u000a\u0009" (Name-Core-showSep "\u000a\u0009" (Prelude-map_Functor__List 'erased 'erased (lambda (arg-3) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) arg-3)) e-0))))) (else (let ((e-1 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "Calls non covering function" (let ((sc1 e-1)) (case (vector-ref sc1 0) ((1) (let ((e-3 (vector-ref sc1 1))) (let ((e-2 (vector-ref sc1 2))) (let ((sc2 e-2)) (case (vector-ref sc2 0) ((0) (Strings-Prelude-C-43C-43 " " (Name-Core-show_Show__Name e-3)))(else (Strings-Prelude-C-43C-43 "s: " (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Name-Core-show_Show__Name eta-0)) e-1)))))))))(else (Strings-Prelude-C-43C-43 "s: " (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Name-Core-show_Show__Name eta-0)) e-1))))))))))))) +(define Core-Core-case--5727-661 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-2) " is not a valid impossible pattern because it typechecks"))) (else (let ((e-5 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "Not a valid impossible pattern:\u000a\u0009" (Core-Core-show_Show__Error e-5)))))))) +(define Core-Core-case--5667-512 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) "older") (else "newer"))))) +(define Core-Core-n--5727-836-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--5727-837-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--5727-1395-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--5590-512 e-2 e-1 e-0 (Prelude-C-60_Ord__Int e-1 e-2)))) (Strings-Prelude-C-43C-43 "TTC data is in an " (Strings-Prelude-C-43C-43 age (Strings-Prelude-C-43C-43 " format, file: " (Strings-Prelude-C-43C-43 e-0 (Strings-Prelude-C-43C-43 ", expected version: " (Strings-Prelude-C-43C-43 (Prelude-show_Show__Int e-2) (Strings-Prelude-C-43C-43 ", actual version: " (Prelude-show_Show__Int e-1))))))))))))) ((1) (let ((e-3 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "End of buffer when reading " e-3))) (else (let ((e-4 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "Corrupt TTC data for " e-4))))))) -(define Core-Core-show_Show__Error (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (Core-Core-show_Show__Error e-0))) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-2) (Strings-Prelude-C-43C-43 ":Type mismatch: " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-1 e-4) (Strings-Prelude-C-43C-43 " and " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-1 e-5)))))))))) ((2) (let ((e-6 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 2))) (let ((e-9 (vector-ref sc0 4))) (let ((e-10 (vector-ref sc0 5))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-7) (Strings-Prelude-C-43C-43 ":" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-6 e-9) (Strings-Prelude-C-43C-43 " and " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-6 e-10) " are not equal")))))))))) ((3) (let ((e-11 (vector-ref sc0 1))) (let ((e-12 (vector-ref sc0 2))) (let ((e-14 (vector-ref sc0 4))) (let ((e-15 (vector-ref sc0 5))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-12) (Strings-Prelude-C-43C-43 ":Pattern variable " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-14) (Strings-Prelude-C-43C-43 " unifies with " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-11 e-15)))))))))) ((4) (let ((e-16 (vector-ref sc0 1))) (let ((e-17 (vector-ref sc0 2))) (let ((e-19 (vector-ref sc0 4))) (let ((e-20 (vector-ref sc0 5))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-17) (Strings-Prelude-C-43C-43 ":Cycle detected in metavariable solution " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-19) (Strings-Prelude-C-43C-43 " = " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-16 e-20)))))))))) ((5) (let ((e-21 (vector-ref sc0 1))) (let ((e-22 (vector-ref sc0 2))) (let ((e-24 (vector-ref sc0 4))) (let ((e-25 (vector-ref sc0 5))) (let ((e-26 (vector-ref sc0 6))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-22) (Strings-Prelude-C-43C-43 ":When unifying: " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-21 e-24) (Strings-Prelude-C-43C-43 " and " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-21 e-25) (Strings-Prelude-C-43C-43 "\u000a\u0009" (Core-Core-show_Show__Error e-26))))))))))))) ((6) (let ((e-27 (vector-ref sc0 1))) (let ((e-28 (vector-ref sc0 2))) (let ((e-30 (vector-ref sc0 4))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-28) (Strings-Prelude-C-43C-43 ":" (let ((sc1 e-30)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-27 e-2) " is not a valid impossible pattern because it typechecks"))) (else (let ((e-5 (vector-ref sc1 1))) (Strings-Prelude-C-43C-43 "Not a valid impossible pattern:\u000a\u0009" (Core-Core-show_Show__Error e-5)))))))))))) ((7) (let ((e-31 (vector-ref sc0 1))) (let ((e-32 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-31) (Strings-Prelude-C-43C-43 ":Undefined name " (Name-Core-show_Show__Name e-32)))))) ((8) (let ((e-33 (vector-ref sc0 1))) (let ((e-34 (vector-ref sc0 2))) (let ((e-35 (vector-ref sc0 3))) (let ((sc1 e-35)) (case (vector-ref sc1 0) ((1) (let ((e-192 (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-192)) " is not explicitly imported")))))))(else (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-33) (Strings-Prelude-C-43C-43 ":Name " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-34) " is private")))))))))) ((9) (let ((e-36 (vector-ref sc0 1))) (let ((e-37 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-36) (Strings-Prelude-C-43C-43 ":Return type of " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-37) " must be Type")))))) ((10) (let ((e-38 (vector-ref sc0 1))) (let ((e-39 (vector-ref sc0 2))) (let ((e-40 (vector-ref sc0 3))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-38) (Strings-Prelude-C-43C-43 ":Return type of " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-39) (Strings-Prelude-C-43C-43 " must be in " (Name-Core-show_Show__Name e-40))))))))) ((11) (let ((e-41 (vector-ref sc0 1))) (let ((e-42 (vector-ref sc0 2))) (let ((e-43 (vector-ref sc0 3))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-41) (Strings-Prelude-C-43C-43 ":" (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-42) (Strings-Prelude-C-43C-43 " is not covering:\u000a\u0009" (let ((sc1 e-43)) (case (vector-ref sc1 0) ((0) "Oh yes it is (Internal error!)") ((1) (let ((e-0 (vector-ref sc1 1))) (Strings-Prelude-C-43C-43 "Missing cases:\u000a\u0009" (Name-Core-showSep "\u000a\u0009" (Prelude-map_Functor__List 'erased 'erased (lambda (arg-1) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) arg-1)) e-0))))) (else (let ((e-1 (vector-ref sc1 1))) (Strings-Prelude-C-43C-43 "Calls non covering function" (let ((sc2 e-1)) (case (vector-ref sc2 0) ((1) (let ((e-3 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((sc3 e-2)) (case (vector-ref sc3 0) ((0) (Strings-Prelude-C-43C-43 " " (Name-Core-show_Show__Name e-3)))(else (Strings-Prelude-C-43C-43 "s: " (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Name-Core-show_Show__Name eta-0)) e-1)))))))))(else (Strings-Prelude-C-43C-43 "s: " (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Name-Core-show_Show__Name eta-0)) e-1))))))))))))))))))) ((12) (let ((e-44 (vector-ref sc0 1))) (let ((e-45 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-44) (Strings-Prelude-C-43C-43 ":" (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-45) " is not total")))))) ((13) (let ((e-47 (vector-ref sc0 1))) (let ((e-48 (vector-ref sc0 2))) (let ((e-49 (vector-ref sc0 3))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-47) (Strings-Prelude-C-43C-43 ":There are " (Strings-Prelude-C-43C-43 (Prelude-show_Show__Nat e-48) (Strings-Prelude-C-43C-43 " uses of linear name " (Name-Core-show_Show__Name e-49))))))))) ((14) (let ((e-50 (vector-ref sc0 1))) (let ((e-51 (vector-ref sc0 2))) (let ((e-52 (vector-ref sc0 3))) (let ((e-53 (vector-ref sc0 4))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-50) (Strings-Prelude-C-43C-43 ":Trying to use " (Strings-Prelude-C-43C-43 (Core-Core-n--5650-836-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--5650-837-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-195 (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-195) (Strings-Prelude-C-43C-43 " has no field " e-81)))))))))))) ((24) (let ((e-83 (vector-ref sc0 1))) (let ((e-84 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-83) (Strings-Prelude-C-43C-43 ":" (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-84) " is not a record type")))))) ((25) (let ((e-85 (vector-ref sc0 1))) (let ((e-86 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-85) (Strings-Prelude-C-43C-43 ":Field update " (Strings-Prelude-C-43C-43 (Name-Core-showSep "->" e-86) " not compatible with other updates")))))) ((26) (let ((e-87 (vector-ref sc0 1))) (let ((e-88 (vector-ref sc0 2))) (let ((e-90 (vector-ref sc0 4))) (let ((e-91 (vector-ref sc0 5))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-88) (Strings-Prelude-C-43C-43 ":" (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d) (lambda (x-0) (Name-Core-showPrec_Show__Name d x-0)))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d-0) (lambda (x-0) (Name-Core-showPrec_Show__Name d-0 x-0)))) d x)))) e-90) (Strings-Prelude-C-43C-43 " are not valid implicit arguments in " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-87 e-91)))))))))) ((27) (let ((e-92 (vector-ref sc0 1))) (let ((e-93 (vector-ref sc0 2))) (let ((e-95 (vector-ref sc0 4))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-93) (Strings-Prelude-C-43C-43 ":Need to bind implicits " (Strings-Prelude-C-43C-43 (Name-Core-showSep "," (Prelude-map_Functor__List 'erased 'erased (lambda (x) (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name (Builtin-fst 'erased 'erased x)) (Strings-Prelude-C-43C-43 " : " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-92 (Builtin-snd 'erased 'erased x))))) e-95)) "\u000a(The front end should probably have done this for you. Please report!)"))))))) ((28) (let ((e-96 (vector-ref sc0 1))) (let ((e-97 (vector-ref sc0 2))) (let ((e-99 (vector-ref sc0 4))) (let ((e-100 (vector-ref sc0 5))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-97) (Strings-Prelude-C-43C-43 ":Can't bind name " (Strings-Prelude-C-43C-43 (Name-Core-nameRoot e-99) (Strings-Prelude-C-43C-43 " with type " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-96 e-100)))))))))) ((29) (let ((e-101 (vector-ref sc0 1))) (let ((e-102 (vector-ref sc0 2))) (let ((e-104 (vector-ref sc0 4))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-102) (Strings-Prelude-C-43C-43 ":Can't solve goal " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-101 e-104))))))) ((30) (let ((e-105 (vector-ref sc0 1))) (let ((e-106 (vector-ref sc0 2))) (let ((e-107 (vector-ref sc0 3))) (let ((e-110 (vector-ref sc0 6))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-106) (Strings-Prelude-C-43C-43 ":Can't solve goal " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-105 e-110) (Strings-Prelude-C-43C-43 " since argument " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-107) " can't be inferred")))))))))) ((31) (let ((e-111 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "Unsolved holes " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (FC-Core-show_Show__FC x-0)) (lambda (d) (lambda (x-0) (FC-Core-showPrec_Show__FC d x-0)))) (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d) (lambda (x-0) (Name-Core-showPrec_Show__Name d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (FC-Core-show_Show__FC x-0)) (lambda (d-0) (lambda (x-0) (FC-Core-showPrec_Show__FC d-0 x-0)))) (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d-0) (lambda (x-0) (Name-Core-showPrec_Show__Name d-0 x-0))))) d x)))) e-111)))) ((32) (let ((e-112 (vector-ref sc0 1))) (let ((e-113 (vector-ref sc0 2))) (let ((e-115 (vector-ref sc0 4))) (let ((e-116 (vector-ref sc0 5))) (let ((e-117 (vector-ref sc0 6))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-113) (Strings-Prelude-C-43C-43 ":Can't infer type for " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-115) (Strings-Prelude-C-43C-43 " (got " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-112 e-117) (Strings-Prelude-C-43C-43 " with hole " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-116) ")"))))))))))))) ((33) (let ((e-119 (vector-ref sc0 2))) (let ((e-121 (vector-ref sc0 4))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-119) (Strings-Prelude-C-43C-43 ":Named hole " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-121) " is solved by unification")))))) ((34) (let ((e-123 (vector-ref sc0 1))) (let ((e-124 (vector-ref sc0 2))) (let ((e-125 (vector-ref sc0 3))) (let ((e-126 (vector-ref sc0 4))) (let ((e-127 (vector-ref sc0 5))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-123) (Strings-Prelude-C-43C-43 ":" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Visibility e-124) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-125) (Strings-Prelude-C-43C-43 " cannot refer to " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Visibility e-126) (Strings-Prelude-C-43C-43 " " (Name-Core-show_Show__Name e-127))))))))))))))) ((35) (let ((e-128 (vector-ref sc0 1))) (let ((e-129 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-128) (Strings-Prelude-C-43C-43 ":Non linear pattern variable " (Name-Core-show_Show__Name e-129)))))) ((36) (let ((e-130 (vector-ref sc0 1))) (let ((e-131 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-130) (Strings-Prelude-C-43C-43 ":Pattern not allowed here: " (Name-Core-show_Show__Name e-131)))))) ((37) (let ((e-132 (vector-ref sc0 1))) (let ((e-133 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-132) (Strings-Prelude-C-43C-43 ":No type declaration for " (Name-Core-show_Show__Name e-133)))))) ((38) (let ((e-134 (vector-ref sc0 1))) (let ((e-135 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-134) (Strings-Prelude-C-43C-43 ":" (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-135) " is already defined")))))) ((39) (let ((e-136 (vector-ref sc0 1))) (let ((e-137 (vector-ref sc0 2))) (let ((e-139 (vector-ref sc0 4))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-137) (Strings-Prelude-C-43C-43 ":Not a function type: " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-136 e-139))))))) ((40) (let ((e-140 (vector-ref sc0 1))) (let ((e-141 (vector-ref sc0 2))) (let ((e-143 (vector-ref sc0 4))) (let ((e-144 (vector-ref sc0 5))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-141) (Strings-Prelude-C-43C-43 ":Rewriting by " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-140 e-143) (Strings-Prelude-C-43C-43 " did not change type " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-140 e-144)))))))))) ((41) (let ((e-145 (vector-ref sc0 1))) (let ((e-146 (vector-ref sc0 2))) (let ((e-148 (vector-ref sc0 4))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-146) (Strings-Prelude-C-43C-43 ":" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-145 e-148) " is not a rewrite rule type"))))))) ((42) (let ((e-149 (vector-ref sc0 1))) (let ((e-150 (vector-ref sc0 2))) (let ((e-151 (vector-ref sc0 3))) (let ((sc1 e-151)) (case (vector-ref sc1 0) ((0) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-149) (Strings-Prelude-C-43C-43 ":Patterns for " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-150) " have different numbers of arguments")))) ((1) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-149) (Strings-Prelude-C-43C-43 ":Patterns for " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-150) " require matching on different types")))) ((4) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-149) (Strings-Prelude-C-43C-43 ":Can't infer type to match in " (Name-Core-show_Show__Name e-150)))) ((2) (let ((e-196 (vector-ref sc1 1))) (let ((sc2 e-196)) (let ((e-200 (vector-ref sc2 1))) (let ((e-201 (vector-ref sc2 2))) (let ((sc3 e-201)) (let ((e-205 (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-200 e-205) (Strings-Prelude-C-43C-43 " in " (Name-Core-show_Show__Name e-150)))))))))))) (else (let ((e-197 (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-197) " 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 2))) (Strings-Prelude-C-43C-43 "Parse error (" (Strings-Prelude-C-43C-43 (Support-Parser-show_Show__ParseError e-174) ")")))) ((51) (let ((e-175 (vector-ref sc0 1))) (let ((e-176 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-175) (Strings-Prelude-C-43C-43 ":" (Strings-Prelude-C-43C-43 (Name-Core-showSep "." (List-Data-reverse 'erased e-176)) " not found")))))) ((52) (let ((e-177 (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--5650-1395-showMod e-177 eta-0)) e-177))))) ((53) "Internal error when resolving implicit laziness") ((54) (let ((e-178 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "INTERNAL ERROR: " e-178))) ((55) (let ((e-179 (vector-ref sc0 1))) (let ((e-180 (vector-ref sc0 2))) (let ((e-181 (vector-ref sc0 3))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-179) (Strings-Prelude-C-43C-43 ":When elaborating type of " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-180) (Strings-Prelude-C-43C-43 ":\u000a" (Core-Core-show_Show__Error e-181))))))))) ((56) (let ((e-182 (vector-ref sc0 1))) (let ((e-183 (vector-ref sc0 2))) (let ((e-184 (vector-ref sc0 3))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-182) (Strings-Prelude-C-43C-43 ":When elaborating type of constructor " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-183) (Strings-Prelude-C-43C-43 ":\u000a" (Core-Core-show_Show__Error e-184))))))))) ((57) (let ((e-185 (vector-ref sc0 1))) (let ((e-186 (vector-ref sc0 2))) (let ((e-187 (vector-ref sc0 3))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-185) (Strings-Prelude-C-43C-43 ":When elaborating left hand side of " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-186) (Strings-Prelude-C-43C-43 ":\u000a" (Core-Core-show_Show__Error e-187))))))))) (else (let ((e-188 (vector-ref sc0 1))) (let ((e-189 (vector-ref sc0 2))) (let ((e-190 (vector-ref sc0 3))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-188) (Strings-Prelude-C-43C-43 ":When elaborating right hand side of " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-189) (Strings-Prelude-C-43C-43 ":\u000a" (Core-Core-show_Show__Error e-190))))))))))))) +(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--5667-512 e-2 e-1 e-0 (Prelude-C-60_Ord__Int e-1 e-2)))) (Strings-Prelude-C-43C-43 "TTC data is in an " (Strings-Prelude-C-43C-43 age (Strings-Prelude-C-43C-43 " format, file: " (Strings-Prelude-C-43C-43 e-0 (Strings-Prelude-C-43C-43 ", expected version: " (Strings-Prelude-C-43C-43 (Prelude-show_Show__Int e-2) (Strings-Prelude-C-43C-43 ", actual version: " (Prelude-show_Show__Int e-1))))))))))))) ((1) (let ((e-3 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "End of buffer when reading " e-3))) (else (let ((e-4 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "Corrupt TTC data for " e-4))))))) +(define Core-Core-show_Show__Error (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (Core-Core-show_Show__Error e-0))) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-2) (Strings-Prelude-C-43C-43 ":Type mismatch: " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-1 e-4) (Strings-Prelude-C-43C-43 " and " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-1 e-5)))))))))) ((2) (let ((e-6 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 2))) (let ((e-9 (vector-ref sc0 4))) (let ((e-10 (vector-ref sc0 5))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-7) (Strings-Prelude-C-43C-43 ":" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-6 e-9) (Strings-Prelude-C-43C-43 " and " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-6 e-10) " are not equal")))))))))) ((3) (let ((e-11 (vector-ref sc0 1))) (let ((e-12 (vector-ref sc0 2))) (let ((e-14 (vector-ref sc0 4))) (let ((e-15 (vector-ref sc0 5))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-12) (Strings-Prelude-C-43C-43 ":Pattern variable " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-14) (Strings-Prelude-C-43C-43 " unifies with " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-11 e-15)))))))))) ((4) (let ((e-16 (vector-ref sc0 1))) (let ((e-17 (vector-ref sc0 2))) (let ((e-19 (vector-ref sc0 4))) (let ((e-20 (vector-ref sc0 5))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-17) (Strings-Prelude-C-43C-43 ":Cycle detected in metavariable solution " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-19) (Strings-Prelude-C-43C-43 " = " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-16 e-20)))))))))) ((5) (let ((e-21 (vector-ref sc0 1))) (let ((e-22 (vector-ref sc0 2))) (let ((e-24 (vector-ref sc0 4))) (let ((e-25 (vector-ref sc0 5))) (let ((e-26 (vector-ref sc0 6))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-22) (Strings-Prelude-C-43C-43 ":When unifying: " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-21 e-24) (Strings-Prelude-C-43C-43 " and " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-21 e-25) (Strings-Prelude-C-43C-43 "\u000a\u0009" (Core-Core-show_Show__Error e-26))))))))))))) ((6) (let ((e-27 (vector-ref sc0 1))) (let ((e-28 (vector-ref sc0 2))) (let ((e-30 (vector-ref sc0 4))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-28) (Strings-Prelude-C-43C-43 ":" (let ((sc1 e-30)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-27 e-2) " is not a valid impossible pattern because it typechecks"))) (else (let ((e-5 (vector-ref sc1 1))) (Strings-Prelude-C-43C-43 "Not a valid impossible pattern:\u000a\u0009" (Core-Core-show_Show__Error e-5)))))))))))) ((7) (let ((e-31 (vector-ref sc0 1))) (let ((e-32 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-31) (Strings-Prelude-C-43C-43 ":Undefined name " (Name-Core-show_Show__Name e-32)))))) ((8) (let ((e-33 (vector-ref sc0 1))) (let ((e-34 (vector-ref sc0 2))) (let ((e-35 (vector-ref sc0 3))) (let ((sc1 e-35)) (case (vector-ref sc1 0) ((1) (let ((e-192 (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-192)) " is not explicitly imported")))))))(else (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-33) (Strings-Prelude-C-43C-43 ":Name " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-34) " is private")))))))))) ((9) (let ((e-36 (vector-ref sc0 1))) (let ((e-37 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-36) (Strings-Prelude-C-43C-43 ":Return type of " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-37) " must be Type")))))) ((10) (let ((e-38 (vector-ref sc0 1))) (let ((e-39 (vector-ref sc0 2))) (let ((e-40 (vector-ref sc0 3))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-38) (Strings-Prelude-C-43C-43 ":Return type of " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-39) (Strings-Prelude-C-43C-43 " must be in " (Name-Core-show_Show__Name e-40))))))))) ((11) (let ((e-41 (vector-ref sc0 1))) (let ((e-42 (vector-ref sc0 2))) (let ((e-43 (vector-ref sc0 3))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-41) (Strings-Prelude-C-43C-43 ":" (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-42) (Strings-Prelude-C-43C-43 " is not covering:\u000a\u0009" (let ((sc1 e-43)) (case (vector-ref sc1 0) ((0) "Oh yes it is (Internal error!)") ((1) (let ((e-0 (vector-ref sc1 1))) (Strings-Prelude-C-43C-43 "Missing cases:\u000a\u0009" (Name-Core-showSep "\u000a\u0009" (Prelude-map_Functor__List 'erased 'erased (lambda (arg-1) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) arg-1)) e-0))))) (else (let ((e-1 (vector-ref sc1 1))) (Strings-Prelude-C-43C-43 "Calls non covering function" (let ((sc2 e-1)) (case (vector-ref sc2 0) ((1) (let ((e-3 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((sc3 e-2)) (case (vector-ref sc3 0) ((0) (Strings-Prelude-C-43C-43 " " (Name-Core-show_Show__Name e-3)))(else (Strings-Prelude-C-43C-43 "s: " (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Name-Core-show_Show__Name eta-0)) e-1)))))))))(else (Strings-Prelude-C-43C-43 "s: " (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Name-Core-show_Show__Name eta-0)) e-1))))))))))))))))))) ((12) (let ((e-44 (vector-ref sc0 1))) (let ((e-45 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-44) (Strings-Prelude-C-43C-43 ":" (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-45) " is not total")))))) ((13) (let ((e-47 (vector-ref sc0 1))) (let ((e-48 (vector-ref sc0 2))) (let ((e-49 (vector-ref sc0 3))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-47) (Strings-Prelude-C-43C-43 ":There are " (Strings-Prelude-C-43C-43 (Prelude-show_Show__Nat e-48) (Strings-Prelude-C-43C-43 " uses of linear name " (Name-Core-show_Show__Name e-49))))))))) ((14) (let ((e-50 (vector-ref sc0 1))) (let ((e-51 (vector-ref sc0 2))) (let ((e-52 (vector-ref sc0 3))) (let ((e-53 (vector-ref sc0 4))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-50) (Strings-Prelude-C-43C-43 ":Trying to use " (Strings-Prelude-C-43C-43 (Core-Core-n--5727-836-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--5727-837-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-195 (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-195) (Strings-Prelude-C-43C-43 " has no field " e-81)))))))))))) ((24) (let ((e-83 (vector-ref sc0 1))) (let ((e-84 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-83) (Strings-Prelude-C-43C-43 ":" (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-84) " is not a record type")))))) ((25) (let ((e-85 (vector-ref sc0 1))) (let ((e-86 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-85) (Strings-Prelude-C-43C-43 ":Field update " (Strings-Prelude-C-43C-43 (Name-Core-showSep "->" e-86) " not compatible with other updates")))))) ((26) (let ((e-87 (vector-ref sc0 1))) (let ((e-88 (vector-ref sc0 2))) (let ((e-90 (vector-ref sc0 4))) (let ((e-91 (vector-ref sc0 5))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-88) (Strings-Prelude-C-43C-43 ":" (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d) (lambda (x-0) (Name-Core-showPrec_Show__Name d x-0)))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d-0) (lambda (x-0) (Name-Core-showPrec_Show__Name d-0 x-0)))) d x)))) e-90) (Strings-Prelude-C-43C-43 " are not valid implicit arguments in " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-87 e-91)))))))))) ((27) (let ((e-92 (vector-ref sc0 1))) (let ((e-93 (vector-ref sc0 2))) (let ((e-95 (vector-ref sc0 4))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-93) (Strings-Prelude-C-43C-43 ":Need to bind implicits " (Strings-Prelude-C-43C-43 (Name-Core-showSep "," (Prelude-map_Functor__List 'erased 'erased (lambda (x) (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name (Builtin-fst 'erased 'erased x)) (Strings-Prelude-C-43C-43 " : " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-92 (Builtin-snd 'erased 'erased x))))) e-95)) "\u000a(The front end should probably have done this for you. Please report!)"))))))) ((28) (let ((e-96 (vector-ref sc0 1))) (let ((e-97 (vector-ref sc0 2))) (let ((e-99 (vector-ref sc0 4))) (let ((e-100 (vector-ref sc0 5))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-97) (Strings-Prelude-C-43C-43 ":Can't bind name " (Strings-Prelude-C-43C-43 (Name-Core-nameRoot e-99) (Strings-Prelude-C-43C-43 " with type " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-96 e-100)))))))))) ((29) (let ((e-101 (vector-ref sc0 1))) (let ((e-102 (vector-ref sc0 2))) (let ((e-104 (vector-ref sc0 4))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-102) (Strings-Prelude-C-43C-43 ":Can't solve goal " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-101 e-104))))))) ((30) (let ((e-105 (vector-ref sc0 1))) (let ((e-106 (vector-ref sc0 2))) (let ((e-107 (vector-ref sc0 3))) (let ((e-110 (vector-ref sc0 6))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-106) (Strings-Prelude-C-43C-43 ":Can't solve goal " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-105 e-110) (Strings-Prelude-C-43C-43 " since argument " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-107) " can't be inferred")))))))))) ((31) (let ((e-111 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "Unsolved holes " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (FC-Core-show_Show__FC x-0)) (lambda (d) (lambda (x-0) (FC-Core-showPrec_Show__FC d x-0)))) (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d) (lambda (x-0) (Name-Core-showPrec_Show__Name d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (FC-Core-show_Show__FC x-0)) (lambda (d-0) (lambda (x-0) (FC-Core-showPrec_Show__FC d-0 x-0)))) (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d-0) (lambda (x-0) (Name-Core-showPrec_Show__Name d-0 x-0))))) d x)))) e-111)))) ((32) (let ((e-112 (vector-ref sc0 1))) (let ((e-113 (vector-ref sc0 2))) (let ((e-115 (vector-ref sc0 4))) (let ((e-116 (vector-ref sc0 5))) (let ((e-117 (vector-ref sc0 6))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-113) (Strings-Prelude-C-43C-43 ":Can't infer type for " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-115) (Strings-Prelude-C-43C-43 " (got " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-112 e-117) (Strings-Prelude-C-43C-43 " with hole " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-116) ")"))))))))))))) ((33) (let ((e-119 (vector-ref sc0 2))) (let ((e-121 (vector-ref sc0 4))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-119) (Strings-Prelude-C-43C-43 ":Named hole " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-121) " is solved by unification")))))) ((34) (let ((e-123 (vector-ref sc0 1))) (let ((e-124 (vector-ref sc0 2))) (let ((e-125 (vector-ref sc0 3))) (let ((e-126 (vector-ref sc0 4))) (let ((e-127 (vector-ref sc0 5))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-123) (Strings-Prelude-C-43C-43 ":" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Visibility e-124) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-125) (Strings-Prelude-C-43C-43 " cannot refer to " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Visibility e-126) (Strings-Prelude-C-43C-43 " " (Name-Core-show_Show__Name e-127))))))))))))))) ((35) (let ((e-128 (vector-ref sc0 1))) (let ((e-129 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-128) (Strings-Prelude-C-43C-43 ":Non linear pattern variable " (Name-Core-show_Show__Name e-129)))))) ((36) (let ((e-130 (vector-ref sc0 1))) (let ((e-131 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-130) (Strings-Prelude-C-43C-43 ":Pattern not allowed here: " (Name-Core-show_Show__Name e-131)))))) ((37) (let ((e-132 (vector-ref sc0 1))) (let ((e-133 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-132) (Strings-Prelude-C-43C-43 ":No type declaration for " (Name-Core-show_Show__Name e-133)))))) ((38) (let ((e-134 (vector-ref sc0 1))) (let ((e-135 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-134) (Strings-Prelude-C-43C-43 ":" (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-135) " is already defined")))))) ((39) (let ((e-136 (vector-ref sc0 1))) (let ((e-137 (vector-ref sc0 2))) (let ((e-139 (vector-ref sc0 4))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-137) (Strings-Prelude-C-43C-43 ":Not a function type: " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-136 e-139))))))) ((40) (let ((e-140 (vector-ref sc0 1))) (let ((e-141 (vector-ref sc0 2))) (let ((e-143 (vector-ref sc0 4))) (let ((e-144 (vector-ref sc0 5))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-141) (Strings-Prelude-C-43C-43 ":Rewriting by " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-140 e-143) (Strings-Prelude-C-43C-43 " did not change type " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-140 e-144)))))))))) ((41) (let ((e-145 (vector-ref sc0 1))) (let ((e-146 (vector-ref sc0 2))) (let ((e-148 (vector-ref sc0 4))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-146) (Strings-Prelude-C-43C-43 ":" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-145 e-148) " is not a rewrite rule type"))))))) ((42) (let ((e-149 (vector-ref sc0 1))) (let ((e-150 (vector-ref sc0 2))) (let ((e-151 (vector-ref sc0 3))) (let ((sc1 e-151)) (case (vector-ref sc1 0) ((0) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-149) (Strings-Prelude-C-43C-43 ":Patterns for " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-150) " have different numbers of arguments")))) ((1) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-149) (Strings-Prelude-C-43C-43 ":Patterns for " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-150) " require matching on different types")))) ((4) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-149) (Strings-Prelude-C-43C-43 ":Can't infer type to match in " (Name-Core-show_Show__Name e-150)))) ((2) (let ((e-196 (vector-ref sc1 1))) (let ((sc2 e-196)) (let ((e-200 (vector-ref sc2 1))) (let ((e-201 (vector-ref sc2 2))) (let ((sc3 e-201)) (let ((e-205 (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-200 e-205) (Strings-Prelude-C-43C-43 " in " (Name-Core-show_Show__Name e-150)))))))))))) (else (let ((e-197 (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-197) " 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 2))) (Strings-Prelude-C-43C-43 "Parse error (" (Strings-Prelude-C-43C-43 (Support-Parser-show_Show__ParseError e-174) ")")))) ((51) (let ((e-175 (vector-ref sc0 1))) (let ((e-176 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-175) (Strings-Prelude-C-43C-43 ":" (Strings-Prelude-C-43C-43 (Name-Core-showSep "." (List-Data-reverse 'erased e-176)) " not found")))))) ((52) (let ((e-177 (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--5727-1395-showMod e-177 eta-0)) e-177))))) ((53) "Internal error when resolving implicit laziness") ((54) (let ((e-178 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "INTERNAL ERROR: " e-178))) ((55) (let ((e-179 (vector-ref sc0 1))) (let ((e-180 (vector-ref sc0 2))) (let ((e-181 (vector-ref sc0 3))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-179) (Strings-Prelude-C-43C-43 ":When elaborating type of " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-180) (Strings-Prelude-C-43C-43 ":\u000a" (Core-Core-show_Show__Error e-181))))))))) ((56) (let ((e-182 (vector-ref sc0 1))) (let ((e-183 (vector-ref sc0 2))) (let ((e-184 (vector-ref sc0 3))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-182) (Strings-Prelude-C-43C-43 ":When elaborating type of constructor " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-183) (Strings-Prelude-C-43C-43 ":\u000a" (Core-Core-show_Show__Error e-184))))))))) ((57) (let ((e-185 (vector-ref sc0 1))) (let ((e-186 (vector-ref sc0 2))) (let ((e-187 (vector-ref sc0 3))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-185) (Strings-Prelude-C-43C-43 ":When elaborating left hand side of " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-186) (Strings-Prelude-C-43C-43 ":\u000a" (Core-Core-show_Show__Error e-187))))))))) (else (let ((e-188 (vector-ref sc0 1))) (let ((e-189 (vector-ref sc0 2))) (let ((e-190 (vector-ref sc0 3))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-188) (Strings-Prelude-C-43C-43 ":When elaborating right hand side of " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-189) (Strings-Prelude-C-43C-43 ":\u000a" (Core-Core-show_Show__Error e-190))))))))))))) (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--7462-2338 '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-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--7539-2338 '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-2233) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased arg-2233 eta-0)))) (lambda (a) (lambda (arg-2234) (lambda (arg-2235) (lambda (eta-0) (Core-Core-catch_Catchable__Core_Error 'erased arg-2234 arg-2235 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)))))))) @@ -1846,227 +1884,231 @@ (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--26004-17605 (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--26004-17576-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--25851-17436 (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--25805-17395 (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--25730-17331 (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-4481) (lambda (arg-4482) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4481 arg-4482))) (lambda (arg-4483) (lambda (arg-4484) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4483 arg-4484)))) 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--25671-17308 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((sc1 e-4)) (let ((e-25 (vector-ref sc1 1))) (let ((e-26 (vector-ref sc1 2))) (let ((e-28 (vector-ref sc1 4))) (let ((e-29 (vector-ref sc1 5))) (let ((e-30 (vector-ref sc1 6))) (let ((e-31 (vector-ref sc1 7))) (let ((e-32 (vector-ref sc1 8))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-25 e-26 arg-0 e-28 e-29 e-30 e-31 e-32) e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24))))))))))))))))))))))))))))))))))))) -(define Context-Core-case--25589-17240 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((sc1 e-4)) (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))) (let ((e-30 (vector-ref sc1 6))) (let ((e-31 (vector-ref sc1 7))) (let ((e-32 (vector-ref sc1 8))) (let ((sc2 e-27)) (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 ((e-37 (vector-ref sc2 5))) (let ((e-38 (vector-ref sc2 6))) (let ((e-40 (vector-ref sc2 8))) (let ((e-41 (vector-ref sc2 9))) (let ((e-42 (vector-ref sc2 10))) (let ((e-43 (vector-ref sc2 11))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-25 e-26 (vector 0 e-33 e-34 e-35 e-36 e-37 e-38 arg-0 e-40 e-41 e-42 e-43) e-28 e-29 e-30 e-31 e-32) e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24))))))))))))))))))))))))))))))))))))))))))))))))) -(define Context-Core-case--25519-17171 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((sc1 e-4)) (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))) (let ((e-30 (vector-ref sc1 6))) (let ((e-31 (vector-ref sc1 7))) (let ((e-32 (vector-ref sc1 8))) (let ((sc2 e-27)) (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 ((e-37 (vector-ref sc2 5))) (let ((e-39 (vector-ref sc2 7))) (let ((e-40 (vector-ref sc2 8))) (let ((e-41 (vector-ref sc2 9))) (let ((e-42 (vector-ref sc2 10))) (let ((e-43 (vector-ref sc2 11))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-25 e-26 (vector 0 e-33 e-34 e-35 e-36 e-37 arg-0 e-39 e-40 e-41 e-42 e-43) e-28 e-29 e-30 e-31 e-32) e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24))))))))))))))))))))))))))))))))))))))))))))))))) -(define Context-Core-case--25449-17102 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((sc1 e-4)) (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))) (let ((e-30 (vector-ref sc1 6))) (let ((e-31 (vector-ref sc1 7))) (let ((e-32 (vector-ref sc1 8))) (let ((sc2 e-27)) (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 ((e-38 (vector-ref sc2 6))) (let ((e-39 (vector-ref sc2 7))) (let ((e-40 (vector-ref sc2 8))) (let ((e-41 (vector-ref sc2 9))) (let ((e-42 (vector-ref sc2 10))) (let ((e-43 (vector-ref sc2 11))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-25 e-26 (vector 0 e-33 e-34 e-35 e-36 arg-0 e-38 e-39 e-40 e-41 e-42 e-43) e-28 e-29 e-30 e-31 e-32) e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24))))))))))))))))))))))))))))))))))))))))))))))))) -(define Context-Core-case--25362-16976 (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--25252-16868 (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--25183-16842 (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))) (vector 0 e-0 e-1 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))))))))))))))))))))))))))))) -(define Context-Core-case--25131-16787 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-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 (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))))))))))))))))))))))))))))) -(define Context-Core-case--25079-16738 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-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 (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))))))))))))))))))))))))))))) -(define Context-Core-case--25027-16689 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-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 (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))))))))))))))))))))))))))))) -(define Context-Core-case--24953-16632 (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))) (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))))))))))))))))))))))))))))) -(define Context-Core-case--24868-16563 (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))) (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))))))))))))))))))))))))))))) -(define Context-Core-case--24740-16442 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((sc1 e-4)) (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))) (let ((e-30 (vector-ref sc1 6))) (let ((e-31 (vector-ref sc1 7))) (let ((e-32 (vector-ref sc1 8))) (let ((sc2 e-28)) (let ((e-33 (vector-ref sc2 1))) (let ((e-34 (vector-ref sc2 2))) (let ((e-35 (vector-ref sc2 3))) (let ((e-37 (vector-ref sc2 5))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-25 e-26 e-27 (vector 0 e-33 e-34 e-35 arg-0 e-37) e-29 e-30 e-31 e-32) e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24))))))))))))))))))))))))))))))))))))))))))) -(define Context-Core-case--24676-16379 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((sc1 e-4)) (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))) (let ((e-30 (vector-ref sc1 6))) (let ((e-31 (vector-ref sc1 7))) (let ((e-32 (vector-ref sc1 8))) (let ((sc2 e-28)) (let ((e-33 (vector-ref sc2 1))) (let ((e-34 (vector-ref sc2 2))) (let ((e-36 (vector-ref sc2 4))) (let ((e-37 (vector-ref sc2 5))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-25 e-26 e-27 (vector 0 e-33 e-34 arg-0 e-36 e-37) e-29 e-30 e-31 e-32) e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24))))))))))))))))))))))))))))))))))))))))))) -(define Context-Core-case--24612-16316 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((sc1 e-4)) (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))) (let ((e-30 (vector-ref sc1 6))) (let ((e-31 (vector-ref sc1 7))) (let ((e-32 (vector-ref sc1 8))) (let ((sc2 e-28)) (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))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-25 e-26 e-27 (vector 0 e-33 e-34 e-35 e-36 arg-0) e-29 e-30 e-31 e-32) e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24))))))))))))))))))))))))))))))))))))))))))) -(define Context-Core-case--24548-16253 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((sc1 e-4)) (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))) (let ((e-30 (vector-ref sc1 6))) (let ((e-31 (vector-ref sc1 7))) (let ((e-32 (vector-ref sc1 8))) (let ((sc2 e-28)) (let ((e-33 (vector-ref sc2 1))) (let ((e-35 (vector-ref sc2 3))) (let ((e-36 (vector-ref sc2 4))) (let ((e-37 (vector-ref sc2 5))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-25 e-26 e-27 (vector 0 e-33 arg-0 e-35 e-36 e-37) e-29 e-30 e-31 e-32) e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24))))))))))))))))))))))))))))))))))))))))))) -(define Context-Core-case--24484-16190 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((sc1 e-4)) (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))) (let ((e-30 (vector-ref sc1 6))) (let ((e-31 (vector-ref sc1 7))) (let ((e-32 (vector-ref sc1 8))) (let ((sc2 e-28)) (let ((e-34 (vector-ref sc2 2))) (let ((e-35 (vector-ref sc2 3))) (let ((e-36 (vector-ref sc2 4))) (let ((e-37 (vector-ref sc2 5))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-25 e-26 e-27 (vector 0 arg-0 e-34 e-35 e-36 e-37) e-29 e-30 e-31 e-32) e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24))))))))))))))))))))))))))))))))))))))))))) -(define Context-Core-case--24399-16073 (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--24344-16048 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-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 (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))))))))))))))))))))))))))))) -(define Context-Core-case--24277-15998 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((sc1 e-4)) (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))) (let ((e-30 (vector-ref sc1 6))) (let ((e-31 (vector-ref sc1 7))) (let ((e-32 (vector-ref sc1 8))) (let ((sc2 e-25)) (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 ((e-38 (vector-ref sc2 6))) (let ((e-39 (vector-ref sc2 7))) (let ((e-40 (vector-ref sc2 8))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 (vector 0 e-33 e-34 e-35 e-36 arg-0 e-38 e-39 e-40) e-26 e-27 e-28 e-29 e-30 e-31 e-32) e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24)))))))))))))))))))))))))))))))))))))))))))))) -(define Context-Core-case--24258-15929 (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--24163-15895 (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 ((sc1 e-4)) (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))) (let ((e-30 (vector-ref sc1 6))) (let ((e-31 (vector-ref sc1 7))) (let ((e-32 (vector-ref sc1 8))) (let ((sc2 e-25)) (let ((e-34 (vector-ref sc2 2))) (let ((e-35 (vector-ref sc2 3))) (let ((e-36 (vector-ref sc2 4))) (let ((e-37 (vector-ref sc2 5))) (let ((e-38 (vector-ref sc2 6))) (let ((e-39 (vector-ref sc2 7))) (let ((e-40 (vector-ref sc2 8))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 (vector 0 arg-4 e-34 e-35 e-36 e-37 e-38 e-39 e-40) e-26 e-27 e-28 e-29 e-30 e-31 e-32) e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24)))))))))))))))))))))))))))))))))))))))))))))) -(define Context-Core-case--24142-15834 (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-25 (vector-ref sc1 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 ((sc2 e-4)) (let ((e-33 (vector-ref sc2 1))) (let ((e-26 (vector-ref sc2 2))) (let ((e-27 (vector-ref sc2 3))) (let ((e-28 (vector-ref sc2 4))) (let ((e-29 (vector-ref sc2 5))) (let ((e-30 (vector-ref sc2 6))) (let ((e-31 (vector-ref sc2 7))) (let ((e-32 (vector-ref sc2 8))) (let ((sc3 e-33)) (let ((e-34 (vector-ref sc3 2))) (let ((e-35 (vector-ref sc3 3))) (let ((e-36 (vector-ref sc3 4))) (let ((e-37 (vector-ref sc3 5))) (let ((e-38 (vector-ref sc3 6))) (let ((e-39 (vector-ref sc3 7))) (let ((e-40 (vector-ref sc3 8))) (vector 0 e-0 e-25 e-2 e-3 (vector 0 (vector 0 e-1 e-34 e-35 e-36 e-37 e-38 e-39 e-40) e-26 e-27 e-28 e-29 e-30 e-31 e-32) e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24)))))))))))))))))))))))))))))))))))))))))))) 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--24075-15805 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((sc1 e-4)) (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))) (let ((e-30 (vector-ref sc1 6))) (let ((e-31 (vector-ref sc1 7))) (let ((e-32 (vector-ref sc1 8))) (let ((sc2 e-25)) (let ((e-33 (vector-ref sc2 1))) (let ((e-35 (vector-ref sc2 3))) (let ((e-36 (vector-ref sc2 4))) (let ((e-37 (vector-ref sc2 5))) (let ((e-38 (vector-ref sc2 6))) (let ((e-39 (vector-ref sc2 7))) (let ((e-40 (vector-ref sc2 8))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 (vector 0 e-33 arg-0 e-35 e-36 e-37 e-38 e-39 e-40) e-26 e-27 e-28 e-29 e-30 e-31 e-32) e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24)))))))))))))))))))))))))))))))))))))))))))))) -(define Context-Core-case--23865-15598 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((sc1 e-4)) (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))) (let ((e-30 (vector-ref sc1 6))) (let ((e-31 (vector-ref sc1 7))) (let ((e-32 (vector-ref sc1 8))) (let ((sc2 e-25)) (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 ((e-37 (vector-ref sc2 5))) (let ((e-38 (vector-ref sc2 6))) (let ((e-39 (vector-ref sc2 7))) (let ((e-40 (vector-ref sc2 8))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 (vector 0 e-33 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-26 e-27 e-28 e-29 e-30 e-31 e-32) e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24))))))))))))))))))))))))))))))))))))))))))))))) -(define Context-Core-case--23789-15523 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((sc1 e-4)) (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))) (let ((e-30 (vector-ref sc1 6))) (let ((e-31 (vector-ref sc1 7))) (let ((e-32 (vector-ref sc1 8))) (let ((sc2 e-25)) (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 ((e-37 (vector-ref sc2 5))) (let ((e-38 (vector-ref sc2 6))) (let ((e-39 (vector-ref sc2 7))) (let ((e-40 (vector-ref sc2 8))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 (vector 0 e-33 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-26 e-27 e-28 e-29 e-30 e-31 e-32) e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24))))))))))))))))))))))))))))))))))))))))))))))) -(define Context-Core-case--23713-15448 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((sc1 e-4)) (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))) (let ((e-30 (vector-ref sc1 6))) (let ((e-31 (vector-ref sc1 7))) (let ((e-32 (vector-ref sc1 8))) (let ((sc2 e-25)) (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 ((e-37 (vector-ref sc2 5))) (let ((e-38 (vector-ref sc2 6))) (let ((e-39 (vector-ref sc2 7))) (let ((e-40 (vector-ref sc2 8))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 (vector 0 e-33 e-34 e-35 e-36 e-37 (List-Prelude-C-43C-43 'erased e-38 (vector 1 arg-0 (vector 0 ))) e-39 e-40) e-26 e-27 e-28 e-29 e-30 e-31 e-32) e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24))))))))))))))))))))))))))))))))))))))))))))))) -(define Context-Core-case--23631-15372 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((sc1 e-4)) (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))) (let ((e-30 (vector-ref sc1 6))) (let ((e-31 (vector-ref sc1 7))) (let ((e-32 (vector-ref sc1 8))) (let ((sc2 e-27)) (let ((e-33 (vector-ref sc2 1))) (let ((e-34 (vector-ref sc2 2))) (let ((e-35 (vector-ref sc2 3))) (let ((e-37 (vector-ref sc2 5))) (let ((e-38 (vector-ref sc2 6))) (let ((e-39 (vector-ref sc2 7))) (let ((e-40 (vector-ref sc2 8))) (let ((e-41 (vector-ref sc2 9))) (let ((e-42 (vector-ref sc2 10))) (let ((e-43 (vector-ref sc2 11))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-25 e-26 (vector 0 e-33 e-34 e-35 arg-0 e-37 e-38 e-39 e-40 e-41 e-42 e-43) e-28 e-29 e-30 e-31 e-32) e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24))))))))))))))))))))))))))))))))))))))))))))))))) -(define Context-Core-case--23572-15304 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((sc1 e-4)) (let ((e-25 (vector-ref sc1 1))) (let ((e-27 (vector-ref sc1 3))) (let ((e-28 (vector-ref sc1 4))) (let ((e-29 (vector-ref sc1 5))) (let ((e-30 (vector-ref sc1 6))) (let ((e-31 (vector-ref sc1 7))) (let ((e-32 (vector-ref sc1 8))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-25 arg-0 e-27 e-28 e-29 e-30 e-31 e-32) e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24))))))))))))))))))))))))))))))))))))) -(define Context-Core-case--23515-15221 (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--23458-15200 (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 ((sc1 e-0)) (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))) (let ((e-30 (vector-ref sc1 6))) (let ((e-31 (vector-ref sc1 7))) (let ((e-32 (vector-ref sc1 8))) (let ((e-33 (vector-ref sc1 9))) (let ((e-34 (vector-ref sc1 10))) (vector 0 (vector 0 (let ((sc2 (let ((sc3 arg-1)) (let ((e-59 (vector-ref sc3 1))) e-59)))) (let ((e-43 (vector-ref sc2 2))) e-43)) e-26 e-27 e-28 e-29 e-30 e-31 e-32 e-33 e-34) e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24))))))))))))))))))))))))))))))))))))))) -(define Context-Core-case--23275-15029 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((sc1 e-0)) (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))) (let ((e-30 (vector-ref sc1 6))) (let ((e-31 (vector-ref sc1 7))) (let ((e-32 (vector-ref sc1 8))) (let ((e-34 (vector-ref sc1 10))) (vector 0 (vector 0 e-25 e-26 e-27 e-28 e-29 e-30 e-31 e-32 arg-0 e-34) e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24))))))))))))))))))))))))))))))))))))))) -(define Context-Core-case--23196-14955 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((sc1 e-0)) (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))) (let ((e-30 (vector-ref sc1 6))) (let ((e-31 (vector-ref sc1 7))) (let ((e-32 (vector-ref sc1 8))) (let ((e-33 (vector-ref sc1 9))) (let ((e-34 (vector-ref sc1 10))) (vector 0 (vector 0 e-25 e-26 e-27 e-28 e-29 e-30 e-31 (vector 1 arg-0 e-32) e-33 e-34) e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24)))))))))))))))))))))))))))))))))))))))) -(define Context-Core-case--23047-14802 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-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 (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))))))))))))))))))))))))))))) -(define Context-Core-case--22913-14727 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-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))) (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)))))))))))))))))))))))))))) -(define Context-Core-case--22763-14652 (lambda (arg-0 arg-1 arg-2 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--22763-14537-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-27 (vector-ref sc2 3))) (let ((e-26 (vector-ref sc2 4))) (let ((e-4 (vector-ref sc2 5))) (let ((e-25 (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))) (vector 0 e-5 e-1 e-27 e-26 e-4 e-25 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24)))))))))))))))))))))))))) 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--22778-14570 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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--22763-14537-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--22542-14352 (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--22470-14327 (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--22542-14352 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--22360-14182 (lambda (arg-0 arg-1 arg-2 arg-3 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--22216-14048 (lambda (arg-0 arg-1 arg-2 arg-3 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--22139-14007 (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))) (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))))))))))))))))))))))))))))) -(define Context-Core-case--22089-13925 (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--22000-13891 (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 (vector 1 (vector 0 arg-4 arg-1) e-19) e-20 e-21 e-22 e-23 e-24))))))))))))))))))))))))))))) -(define Context-Core-case--21985-13833 (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-25 (vector-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))) (vector 0 e-0 e-1 e-25 e-3 e-4 e-5 e-6 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))))))))))))))))))))))))))) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0))))))))) -(define Context-Core-case--21916-13797 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-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 (vector 1 arg-0 e-17) e-18 e-19 e-20 e-21 e-22 e-23 e-24))))))))))))))))))))))))))))) -(define Context-Core-case--21841-13729 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-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))) (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)))))))))))))))))))))))))))) -(define Context-Core-case--21790-13681 (lambda (arg-0 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))) (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)))))))))))))))))))))))))))) -(define Context-Core-case--21739-13631 (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))) (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))))))))))))))))))))))))))) -(define Context-Core-case--21522-13541 (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))) (vector 0 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))))))))))))))))))))))))))))) -(define Context-Core-case--21522-13452 (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))) (vector 0 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))))))))))))))))))))))))))))) -(define Context-Core-case--21474-13397 (lambda (arg-0 arg-1 arg-2 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))) (vector 0 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))))))))))))))))))))))))))) 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-25 (vector-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))) (vector 0 e-0 e-1 e-25 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))))))))))))))))))))))))))) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0))))))))) -(define Context-Core-case--21460-13353 (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-4481) (lambda (arg-4482) (Context-Core-full_HasNames__Name arg-4481 arg-4482))) (lambda (arg-4483) (lambda (arg-4484) (Context-Core-resolved_HasNames__Name arg-4483 arg-4484)))) 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-4481) (lambda (arg-4482) (Context-Core-full_HasNames__Transform arg-4481 arg-4482))) (lambda (arg-4483) (lambda (arg-4484) (Context-Core-resolved_HasNames__Transform arg-4483 arg-4484)))) 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-4481) (lambda (arg-4482) (Context-Core-full_HasNames__Name arg-4481 arg-4482))) (lambda (arg-4483) (lambda (arg-4484) (Context-Core-resolved_HasNames__Name arg-4483 arg-4484)))) 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-4481) (lambda (arg-4482) (Context-Core-full_HasNames__Transform arg-4481 arg-4482))) (lambda (arg-4483) (lambda (arg-4484) (Context-Core-resolved_HasNames__Transform arg-4483 arg-4484)))) 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--21474-13397 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--21409-13335 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 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))) (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)))))))))))))))))))))))))))) -(define Context-Core-case--21282-13223 (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))) (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))))))))))))))))))))))))))))) -(define Context-Core-case--21204-13151 (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 (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))))))))))))))))))))))))))))) -(define Context-Core-case--21003-13058 (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))) (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))))))))))))))))))))))))))))) -(define Context-Core-case--21003-12978 (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))) (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))))))))))))))))))))))))))))) -(define Context-Core-case--20916-12925 (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))) (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))))))))))))))))))))))))))) 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))) (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))))))))))))))))))))))))))) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))))))) -(define Context-Core-case--20916-12880 (lambda (arg-0 arg-1 arg-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--20791-12779 (lambda (arg-0 arg-1 arg-2 arg-3 arg-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--20770-12750 (lambda (arg-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--20752-12735 (lambda (arg-0 arg-1 arg-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--20770-12750 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--20627-12648 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-10)) (let ((e-1 (vector-ref sc0 2))) (vector 0 arg-0 e-1))))) -(define Context-Core-case--20606-12619 (lambda (arg-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--20588-12604 (lambda (arg-0 arg-1 arg-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--20606-12619 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--20490-12522 (lambda (arg-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--20472-12507 (lambda (arg-0 arg-1 arg-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--20490-12522 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--20366-12416 (lambda (arg-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--20203-12255-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--20203-12401 (lambda (arg-0 arg-1 arg-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--20366-12416 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--20209-12279 (lambda (arg-0 arg-1 arg-2 arg-3 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--20203-12255-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--20203-12255-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--20145-12239 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-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 (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))))))))))))))))))))))))))))) -(define Context-Core-case--20088-12185 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-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 (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))))))))))))))))))))))))))))) -(define Context-Core-case--19990-12078 (lambda (arg-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--19972-12063 (lambda (arg-0 arg-1 arg-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--19990-12078 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--19636-11837 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-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--19612-11707-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--19612-11707-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--19612-11708-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--19612-11708-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--19636-11768 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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--19612-11731 (lambda (arg-0 arg-1 arg-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-4481) (lambda (arg-4482) (Context-Core-full_HasNames__Name arg-4481 arg-4482))) (lambda (arg-4483) (lambda (arg-4484) (Context-Core-resolved_HasNames__Name arg-4483 arg-4484)))) 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--19636-11768 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-28 (vector-ref sc3 8))) e-28))))))) (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--19612-11707-isDefault arg-0 arg-1 arg-2 arg-3 eta-1)) (NameMap-Data-toList 'erased (let ((sc4 arg-4)) (let ((e-27 (vector-ref sc4 9))) e-27))))))) (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-26 (vector-ref sc4 10))) e-26)))))) (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--19612-11707-isDefault arg-0 arg-1 arg-2 arg-3 eta-1))) (NameMap-Data-toList 'erased (let ((sc4 arg-4)) (let ((e-27 (vector-ref sc4 9))) e-27))))))) (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--19612-11708-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--19612-11708-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--19462-11593 (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--19377-11548 (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--19359-11502 (lambda (arg-0 arg-1 arg-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--19259-11413 (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--19171-11366 (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--19153-11318 (lambda (arg-0 arg-1 arg-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--19065-11270 (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--19047-11222 (lambda (arg-0 arg-1 arg-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--18857-11082 (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--18839-11036 (lambda (arg-0 arg-1 arg-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--18686-10937 (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--18668-10884 (lambda (arg-0 arg-1 arg-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--18527-10807 (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--18509-10741 (lambda (arg-0 arg-1 arg-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--18411-10693 (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--18393-10637 (lambda (arg-0 arg-1 arg-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--18154-10408 (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--18109-10357 (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--18043-10330 (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))) (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))))))))))))))))))))))))))))) -(define Context-Core-case--17955-10223 (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--17912-10186 (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--17861-10162 (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))) (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)))))))))))))))))))))))))))) -(define Context-Core-case--17786-10097 (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--17769-10053 (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--17692-10012 (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--17675-9968 (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--17598-9927 (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--17581-9883 (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--17506-9844 (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--17489-9800 (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--17389-9757 (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--17370-9690 (lambda (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--17353-9675 (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--17370-9690 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--17234-9603 (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))) (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)))))))))))))))))))))))))))) -(define Context-Core-case--17217-9550 (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-26 (vector-ref sc1 3))) (let ((e-25 (vector-ref sc1 4))) (let ((e-4 (vector-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))) (vector 0 e-3 e-1 e-26 e-25 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24)))))))))))))))))))))))))) 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--17064-9520 (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))) (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)))))))))))))))))))))))))))) -(define Context-Core-case--17064-9429 (lambda (arg-0 arg-1 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--17047-9397 (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-26 (vector-ref sc1 3))) (let ((e-25 (vector-ref sc1 4))) (let ((e-4 (vector-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))) (vector 0 e-3 e-1 e-26 e-25 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24)))))))))))))))))))))))))) 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--17064-9429 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--16960-9311 (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--16952-9300 (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--16960-9311 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--16896-9282 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-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 (NameMap-Data-delete 'erased arg-0 e-22) e-23 e-24))))))))))))))))))))))))))))) -(define Context-Core-case--16842-9231 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-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 (NameMap-Data-insert 'erased arg-0 (vector 0 ) e-22) e-23 e-24))))))))))))))))))))))))))))) -(define Context-Core-case--16792-9182 (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))) (vector 0 e-0 e-1 e-2 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)))))))))))))))))))))))))))) -(define Context-Core-case--16723-9126 (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))) (vector 0 e-0 e-1 e-2 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-25 (vector-ref sc1 2))) ((e-25 (let ((sc2 arg-4)) (let ((e-36 (vector-ref sc2 16))) e-36))) arg-2))) e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24)))))))))))))))))))))))))))) -(define Context-Core-case--16670-9071 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (vector 0 e-0 e-1 e-2 e-3 (let ((sc1 arg-1)) (let ((e-45 (vector-ref sc1 5))) e-45)) e-5 e-6 e-7 e-8 e-9 e-10 e-11 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-25 (vector-ref sc1 25))) e-25))))))))))))))))))))))))))))) -(define Context-Core-case--16571-8968 (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 ((sc1 e-0)) (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))) (let ((e-30 (vector-ref sc1 6))) (let ((e-31 (vector-ref sc1 7))) (let ((e-32 (vector-ref sc1 8))) (let ((e-33 (vector-ref sc1 9))) (vector 0 (vector 0 e-25 e-26 e-27 e-28 e-29 e-30 e-31 e-32 e-33 0) e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24))))))))))))))))))))))))))))))))))))))) -(define Context-Core-case--13730-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--13729-6282 (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--13599-6110 (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--13598-6091 (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--12641-5279 (lambda (arg-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--12640-5179 (lambda (arg-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--12048-4842 (lambda (arg-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--12048-4793 (lambda (arg-0 arg-1 arg-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--12047-4597 (lambda (arg-0 arg-1 arg-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--11975-4548 (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--11974-4524 (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--11895-4447 (lambda (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--11793-4401 (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--11793-4373 (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--11765-4332 (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--11765-4306-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--11748-4304 (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--11655-4229 (lambda (arg-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--11632-4209 (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--11569-4188 (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--11474-4042-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--11569-4144 (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--11474-4130 (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--11569-4188 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--11478-4100 (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--11474-4042-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--11474-4042-getMatches arg-0 arg-1 arg-3)))))) -(define Context-Core-case--11366-4022 (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--11373-3987 (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--11366-3948 (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--11159-3918 (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--11243-3852 (lambda (arg-0 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--11166-3835 (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--11243-3852 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--11166-3777 (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--11159-3763 (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--11166-3777 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--11243-3852 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--11057-3739 (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--11064-3707 (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--11057-3671 (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--10987-3619 (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--10975-3603 (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--10987-3619 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--10921-3576 (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--10856-3546 (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--10856-3499 (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--10845-3484 (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--10791-3459 (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--10726-3429 (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--10726-3382 (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--10715-3367 (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--10670-3330 (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--10589-3298 (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--10519-3199 (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--10513-3177 (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--10519-3199 arg-0 arg-1 arg-2 e-2 (StringMap-Data-lookup 'erased e-2 arg-0)))))))) -(define Context-Core-case--7825-811 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) " [impl]") (else ""))))) -(define Context-Core-n--23348-15047-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--22196-14029-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--22216-14048 '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--22470-14271-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--26471-17999-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--26471-17998-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--12988-5629-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--22325-14157-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--22360-14182 '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--11474-4041-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--22628-14411-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--22628-14411-justPos 'erased arg-1 (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-2) e-3))) (else (Context-Core-n--22628-14411-justPos 'erased arg-1 (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-2) e-3))))))))))) -(define Context-Core-n--16949-9290-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--16960-9311 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--19612-11707-isDefault (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (Builtin-snd 'erased 'erased ext-0))) -(define Context-Core-n--13287-5813-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--13287-5813-insertAll 'erased arg-1 arg-2 (NameMap-Data-insert 'erased e-5 e-7 arg-3) e-3) eta-0))))))))))))))))) -(define Context-Core-n--13286-5782-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--13286-5782-insertAll 'erased arg-1 arg-2 (NameMap-Data-insert 'erased e-5 e-7 arg-3) e-3) eta-0))))))))))))))))) -(define Context-Core-n--20203-12255-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--20209-12279 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--11474-4042-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--11474-4042-getMatches arg-0 arg-1 e-3)) (else (let ((e-6 (vector-ref sc1 1))) (Context-Core-case--11478-4100 arg-0 arg-1 e-6 e-3 (Context-Core-n--11474-4041-matches arg-0 arg-1 'erased arg-1 e-6))))))))))))) -(define Context-Core-n--22085-13912-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--22089-13925 arg-0 arg-1 e-2 e-3 (Options-Core-C-61C-61_Eq__CG arg-0 e-2))))))) -(define Context-Core-n--12987-5496-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--19612-11708-direct (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (Builtin-snd 'erased 'erased ext-0))) -(define Context-Core-n--22325-14132-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--22763-14536-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--11765-4306-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--11765-4306-commitStaged arg-0 e-3 arg-2) eta-0))))))))))))) -(define Context-Core-n--23348-15046-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--23348-15046-allParents arg-0 arg-1 e-3))))))))) -(define Context-Core-n--22763-14535-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--26471-17998-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--26004-17576-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--22763-14537-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--22763-14536-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--22763-14537-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 Context-Core-case--26154-17687 (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--26154-17658-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--26001-17518 (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--25955-17477 (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--25880-17413 (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-4524) (lambda (arg-4525) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4526 arg-4527)))) 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--25821-17390 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((sc1 e-4)) (let ((e-25 (vector-ref sc1 1))) (let ((e-26 (vector-ref sc1 2))) (let ((e-28 (vector-ref sc1 4))) (let ((e-29 (vector-ref sc1 5))) (let ((e-30 (vector-ref sc1 6))) (let ((e-31 (vector-ref sc1 7))) (let ((e-32 (vector-ref sc1 8))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-25 e-26 arg-0 e-28 e-29 e-30 e-31 e-32) e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24))))))))))))))))))))))))))))))))))))) +(define Context-Core-case--25739-17322 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((sc1 e-4)) (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))) (let ((e-30 (vector-ref sc1 6))) (let ((e-31 (vector-ref sc1 7))) (let ((e-32 (vector-ref sc1 8))) (let ((sc2 e-27)) (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 ((e-37 (vector-ref sc2 5))) (let ((e-38 (vector-ref sc2 6))) (let ((e-40 (vector-ref sc2 8))) (let ((e-41 (vector-ref sc2 9))) (let ((e-42 (vector-ref sc2 10))) (let ((e-43 (vector-ref sc2 11))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-25 e-26 (vector 0 e-33 e-34 e-35 e-36 e-37 e-38 arg-0 e-40 e-41 e-42 e-43) e-28 e-29 e-30 e-31 e-32) e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24))))))))))))))))))))))))))))))))))))))))))))))))) +(define Context-Core-case--25669-17253 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((sc1 e-4)) (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))) (let ((e-30 (vector-ref sc1 6))) (let ((e-31 (vector-ref sc1 7))) (let ((e-32 (vector-ref sc1 8))) (let ((sc2 e-27)) (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 ((e-37 (vector-ref sc2 5))) (let ((e-39 (vector-ref sc2 7))) (let ((e-40 (vector-ref sc2 8))) (let ((e-41 (vector-ref sc2 9))) (let ((e-42 (vector-ref sc2 10))) (let ((e-43 (vector-ref sc2 11))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-25 e-26 (vector 0 e-33 e-34 e-35 e-36 e-37 arg-0 e-39 e-40 e-41 e-42 e-43) e-28 e-29 e-30 e-31 e-32) e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24))))))))))))))))))))))))))))))))))))))))))))))))) +(define Context-Core-case--25599-17184 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((sc1 e-4)) (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))) (let ((e-30 (vector-ref sc1 6))) (let ((e-31 (vector-ref sc1 7))) (let ((e-32 (vector-ref sc1 8))) (let ((sc2 e-27)) (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 ((e-38 (vector-ref sc2 6))) (let ((e-39 (vector-ref sc2 7))) (let ((e-40 (vector-ref sc2 8))) (let ((e-41 (vector-ref sc2 9))) (let ((e-42 (vector-ref sc2 10))) (let ((e-43 (vector-ref sc2 11))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-25 e-26 (vector 0 e-33 e-34 e-35 e-36 arg-0 e-38 e-39 e-40 e-41 e-42 e-43) e-28 e-29 e-30 e-31 e-32) e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24))))))))))))))))))))))))))))))))))))))))))))))))) +(define Context-Core-case--25512-17058 (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--25402-16950 (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--25333-16924 (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))) (vector 0 e-0 e-1 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))))))))))))))))))))))))))))) +(define Context-Core-case--25281-16869 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-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 (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))))))))))))))))))))))))))))) +(define Context-Core-case--25229-16820 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-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 (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))))))))))))))))))))))))))))) +(define Context-Core-case--25177-16771 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-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 (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))))))))))))))))))))))))))))) +(define Context-Core-case--25103-16714 (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))) (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))))))))))))))))))))))))))))) +(define Context-Core-case--25018-16645 (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))) (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))))))))))))))))))))))))))))) +(define Context-Core-case--24890-16524 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((sc1 e-4)) (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))) (let ((e-30 (vector-ref sc1 6))) (let ((e-31 (vector-ref sc1 7))) (let ((e-32 (vector-ref sc1 8))) (let ((sc2 e-28)) (let ((e-33 (vector-ref sc2 1))) (let ((e-34 (vector-ref sc2 2))) (let ((e-35 (vector-ref sc2 3))) (let ((e-37 (vector-ref sc2 5))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-25 e-26 e-27 (vector 0 e-33 e-34 e-35 arg-0 e-37) e-29 e-30 e-31 e-32) e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24))))))))))))))))))))))))))))))))))))))))))) +(define Context-Core-case--24826-16461 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((sc1 e-4)) (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))) (let ((e-30 (vector-ref sc1 6))) (let ((e-31 (vector-ref sc1 7))) (let ((e-32 (vector-ref sc1 8))) (let ((sc2 e-28)) (let ((e-33 (vector-ref sc2 1))) (let ((e-34 (vector-ref sc2 2))) (let ((e-36 (vector-ref sc2 4))) (let ((e-37 (vector-ref sc2 5))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-25 e-26 e-27 (vector 0 e-33 e-34 arg-0 e-36 e-37) e-29 e-30 e-31 e-32) e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24))))))))))))))))))))))))))))))))))))))))))) +(define Context-Core-case--24762-16398 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((sc1 e-4)) (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))) (let ((e-30 (vector-ref sc1 6))) (let ((e-31 (vector-ref sc1 7))) (let ((e-32 (vector-ref sc1 8))) (let ((sc2 e-28)) (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))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-25 e-26 e-27 (vector 0 e-33 e-34 e-35 e-36 arg-0) e-29 e-30 e-31 e-32) e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24))))))))))))))))))))))))))))))))))))))))))) +(define Context-Core-case--24698-16335 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((sc1 e-4)) (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))) (let ((e-30 (vector-ref sc1 6))) (let ((e-31 (vector-ref sc1 7))) (let ((e-32 (vector-ref sc1 8))) (let ((sc2 e-28)) (let ((e-33 (vector-ref sc2 1))) (let ((e-35 (vector-ref sc2 3))) (let ((e-36 (vector-ref sc2 4))) (let ((e-37 (vector-ref sc2 5))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-25 e-26 e-27 (vector 0 e-33 arg-0 e-35 e-36 e-37) e-29 e-30 e-31 e-32) e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24))))))))))))))))))))))))))))))))))))))))))) +(define Context-Core-case--24634-16272 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((sc1 e-4)) (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))) (let ((e-30 (vector-ref sc1 6))) (let ((e-31 (vector-ref sc1 7))) (let ((e-32 (vector-ref sc1 8))) (let ((sc2 e-28)) (let ((e-34 (vector-ref sc2 2))) (let ((e-35 (vector-ref sc2 3))) (let ((e-36 (vector-ref sc2 4))) (let ((e-37 (vector-ref sc2 5))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-25 e-26 e-27 (vector 0 arg-0 e-34 e-35 e-36 e-37) e-29 e-30 e-31 e-32) e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24))))))))))))))))))))))))))))))))))))))))))) +(define Context-Core-case--24549-16155 (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--24494-16130 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-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 (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))))))))))))))))))))))))))))) +(define Context-Core-case--24427-16080 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((sc1 e-4)) (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))) (let ((e-30 (vector-ref sc1 6))) (let ((e-31 (vector-ref sc1 7))) (let ((e-32 (vector-ref sc1 8))) (let ((sc2 e-25)) (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 ((e-38 (vector-ref sc2 6))) (let ((e-39 (vector-ref sc2 7))) (let ((e-40 (vector-ref sc2 8))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 (vector 0 e-33 e-34 e-35 e-36 arg-0 e-38 e-39 e-40) e-26 e-27 e-28 e-29 e-30 e-31 e-32) e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24)))))))))))))))))))))))))))))))))))))))))))))) +(define Context-Core-case--24408-16011 (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--24313-15977 (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 ((sc1 e-4)) (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))) (let ((e-30 (vector-ref sc1 6))) (let ((e-31 (vector-ref sc1 7))) (let ((e-32 (vector-ref sc1 8))) (let ((sc2 e-25)) (let ((e-34 (vector-ref sc2 2))) (let ((e-35 (vector-ref sc2 3))) (let ((e-36 (vector-ref sc2 4))) (let ((e-37 (vector-ref sc2 5))) (let ((e-38 (vector-ref sc2 6))) (let ((e-39 (vector-ref sc2 7))) (let ((e-40 (vector-ref sc2 8))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 (vector 0 arg-4 e-34 e-35 e-36 e-37 e-38 e-39 e-40) e-26 e-27 e-28 e-29 e-30 e-31 e-32) e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24)))))))))))))))))))))))))))))))))))))))))))))) +(define Context-Core-case--24292-15916 (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-25 (vector-ref sc1 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 ((sc2 e-4)) (let ((e-33 (vector-ref sc2 1))) (let ((e-26 (vector-ref sc2 2))) (let ((e-27 (vector-ref sc2 3))) (let ((e-28 (vector-ref sc2 4))) (let ((e-29 (vector-ref sc2 5))) (let ((e-30 (vector-ref sc2 6))) (let ((e-31 (vector-ref sc2 7))) (let ((e-32 (vector-ref sc2 8))) (let ((sc3 e-33)) (let ((e-34 (vector-ref sc3 2))) (let ((e-35 (vector-ref sc3 3))) (let ((e-36 (vector-ref sc3 4))) (let ((e-37 (vector-ref sc3 5))) (let ((e-38 (vector-ref sc3 6))) (let ((e-39 (vector-ref sc3 7))) (let ((e-40 (vector-ref sc3 8))) (vector 0 e-0 e-25 e-2 e-3 (vector 0 (vector 0 e-1 e-34 e-35 e-36 e-37 e-38 e-39 e-40) e-26 e-27 e-28 e-29 e-30 e-31 e-32) e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24)))))))))))))))))))))))))))))))))))))))))))) 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--24225-15887 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((sc1 e-4)) (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))) (let ((e-30 (vector-ref sc1 6))) (let ((e-31 (vector-ref sc1 7))) (let ((e-32 (vector-ref sc1 8))) (let ((sc2 e-25)) (let ((e-33 (vector-ref sc2 1))) (let ((e-35 (vector-ref sc2 3))) (let ((e-36 (vector-ref sc2 4))) (let ((e-37 (vector-ref sc2 5))) (let ((e-38 (vector-ref sc2 6))) (let ((e-39 (vector-ref sc2 7))) (let ((e-40 (vector-ref sc2 8))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 (vector 0 e-33 arg-0 e-35 e-36 e-37 e-38 e-39 e-40) e-26 e-27 e-28 e-29 e-30 e-31 e-32) e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24)))))))))))))))))))))))))))))))))))))))))))))) +(define Context-Core-case--24015-15680 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((sc1 e-4)) (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))) (let ((e-30 (vector-ref sc1 6))) (let ((e-31 (vector-ref sc1 7))) (let ((e-32 (vector-ref sc1 8))) (let ((sc2 e-25)) (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 ((e-37 (vector-ref sc2 5))) (let ((e-38 (vector-ref sc2 6))) (let ((e-39 (vector-ref sc2 7))) (let ((e-40 (vector-ref sc2 8))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 (vector 0 e-33 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-26 e-27 e-28 e-29 e-30 e-31 e-32) e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24))))))))))))))))))))))))))))))))))))))))))))))) +(define Context-Core-case--23939-15605 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((sc1 e-4)) (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))) (let ((e-30 (vector-ref sc1 6))) (let ((e-31 (vector-ref sc1 7))) (let ((e-32 (vector-ref sc1 8))) (let ((sc2 e-25)) (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 ((e-37 (vector-ref sc2 5))) (let ((e-38 (vector-ref sc2 6))) (let ((e-39 (vector-ref sc2 7))) (let ((e-40 (vector-ref sc2 8))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 (vector 0 e-33 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-26 e-27 e-28 e-29 e-30 e-31 e-32) e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24))))))))))))))))))))))))))))))))))))))))))))))) +(define Context-Core-case--23863-15530 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((sc1 e-4)) (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))) (let ((e-30 (vector-ref sc1 6))) (let ((e-31 (vector-ref sc1 7))) (let ((e-32 (vector-ref sc1 8))) (let ((sc2 e-25)) (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 ((e-37 (vector-ref sc2 5))) (let ((e-38 (vector-ref sc2 6))) (let ((e-39 (vector-ref sc2 7))) (let ((e-40 (vector-ref sc2 8))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 (vector 0 e-33 e-34 e-35 e-36 e-37 (List-Prelude-C-43C-43 'erased e-38 (vector 1 arg-0 (vector 0 ))) e-39 e-40) e-26 e-27 e-28 e-29 e-30 e-31 e-32) e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24))))))))))))))))))))))))))))))))))))))))))))))) +(define Context-Core-case--23781-15454 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((sc1 e-4)) (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))) (let ((e-30 (vector-ref sc1 6))) (let ((e-31 (vector-ref sc1 7))) (let ((e-32 (vector-ref sc1 8))) (let ((sc2 e-27)) (let ((e-33 (vector-ref sc2 1))) (let ((e-34 (vector-ref sc2 2))) (let ((e-35 (vector-ref sc2 3))) (let ((e-37 (vector-ref sc2 5))) (let ((e-38 (vector-ref sc2 6))) (let ((e-39 (vector-ref sc2 7))) (let ((e-40 (vector-ref sc2 8))) (let ((e-41 (vector-ref sc2 9))) (let ((e-42 (vector-ref sc2 10))) (let ((e-43 (vector-ref sc2 11))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-25 e-26 (vector 0 e-33 e-34 e-35 arg-0 e-37 e-38 e-39 e-40 e-41 e-42 e-43) e-28 e-29 e-30 e-31 e-32) e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24))))))))))))))))))))))))))))))))))))))))))))))))) +(define Context-Core-case--23722-15386 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((sc1 e-4)) (let ((e-25 (vector-ref sc1 1))) (let ((e-27 (vector-ref sc1 3))) (let ((e-28 (vector-ref sc1 4))) (let ((e-29 (vector-ref sc1 5))) (let ((e-30 (vector-ref sc1 6))) (let ((e-31 (vector-ref sc1 7))) (let ((e-32 (vector-ref sc1 8))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-25 arg-0 e-27 e-28 e-29 e-30 e-31 e-32) e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24))))))))))))))))))))))))))))))))))))) +(define Context-Core-case--23665-15303 (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--23608-15282 (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 ((sc1 e-0)) (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))) (let ((e-30 (vector-ref sc1 6))) (let ((e-31 (vector-ref sc1 7))) (let ((e-32 (vector-ref sc1 8))) (let ((e-33 (vector-ref sc1 9))) (let ((e-34 (vector-ref sc1 10))) (vector 0 (vector 0 (let ((sc2 (let ((sc3 arg-1)) (let ((e-59 (vector-ref sc3 1))) e-59)))) (let ((e-43 (vector-ref sc2 2))) e-43)) e-26 e-27 e-28 e-29 e-30 e-31 e-32 e-33 e-34) e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24))))))))))))))))))))))))))))))))))))))) +(define Context-Core-case--23425-15111 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((sc1 e-0)) (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))) (let ((e-30 (vector-ref sc1 6))) (let ((e-31 (vector-ref sc1 7))) (let ((e-32 (vector-ref sc1 8))) (let ((e-34 (vector-ref sc1 10))) (vector 0 (vector 0 e-25 e-26 e-27 e-28 e-29 e-30 e-31 e-32 arg-0 e-34) e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24))))))))))))))))))))))))))))))))))))))) +(define Context-Core-case--23346-15037 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((sc1 e-0)) (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))) (let ((e-30 (vector-ref sc1 6))) (let ((e-31 (vector-ref sc1 7))) (let ((e-32 (vector-ref sc1 8))) (let ((e-33 (vector-ref sc1 9))) (let ((e-34 (vector-ref sc1 10))) (vector 0 (vector 0 e-25 e-26 e-27 e-28 e-29 e-30 e-31 (vector 1 arg-0 e-32) e-33 e-34) e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24)))))))))))))))))))))))))))))))))))))))) +(define Context-Core-case--23197-14884 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-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 (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))))))))))))))))))))))))))))) +(define Context-Core-case--23063-14809 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-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))) (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)))))))))))))))))))))))))))) +(define Context-Core-case--22913-14734 (lambda (arg-0 arg-1 arg-2 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--22913-14619-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-27 (vector-ref sc2 3))) (let ((e-26 (vector-ref sc2 4))) (let ((e-4 (vector-ref sc2 5))) (let ((e-25 (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))) (vector 0 e-5 e-1 e-27 e-26 e-4 e-25 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24)))))))))))))))))))))))))) 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--22928-14652 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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--22913-14619-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--22692-14434 (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--22620-14409 (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--22692-14434 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--22510-14264 (lambda (arg-0 arg-1 arg-2 arg-3 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--22366-14130 (lambda (arg-0 arg-1 arg-2 arg-3 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--22289-14089 (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))) (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))))))))))))))))))))))))))))) +(define Context-Core-case--22239-14007 (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--22150-13973 (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 (vector 1 (vector 0 arg-4 arg-1) e-19) e-20 e-21 e-22 e-23 e-24))))))))))))))))))))))))))))) +(define Context-Core-case--22135-13915 (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-25 (vector-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))) (vector 0 e-0 e-1 e-25 e-3 e-4 e-5 e-6 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))))))))))))))))))))))))))) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0))))))))) +(define Context-Core-case--22066-13879 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-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 (vector 1 arg-0 e-17) e-18 e-19 e-20 e-21 e-22 e-23 e-24))))))))))))))))))))))))))))) +(define Context-Core-case--21991-13811 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-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))) (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)))))))))))))))))))))))))))) +(define Context-Core-case--21940-13763 (lambda (arg-0 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))) (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)))))))))))))))))))))))))))) +(define Context-Core-case--21889-13713 (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))) (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))))))))))))))))))))))))))) +(define Context-Core-case--21672-13623 (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))) (vector 0 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))))))))))))))))))))))))))))) +(define Context-Core-case--21672-13534 (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))) (vector 0 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))))))))))))))))))))))))))))) +(define Context-Core-case--21624-13479 (lambda (arg-0 arg-1 arg-2 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))) (vector 0 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))))))))))))))))))))))))))) 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-25 (vector-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))) (vector 0 e-0 e-1 e-25 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))))))))))))))))))))))))))) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0))))))))) +(define Context-Core-case--21610-13435 (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-4524) (lambda (arg-4525) (Context-Core-full_HasNames__Name arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__Name arg-4526 arg-4527)))) 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-4524) (lambda (arg-4525) (Context-Core-full_HasNames__Transform arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__Transform arg-4526 arg-4527)))) 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-4524) (lambda (arg-4525) (Context-Core-full_HasNames__Name arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__Name arg-4526 arg-4527)))) 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-4524) (lambda (arg-4525) (Context-Core-full_HasNames__Transform arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__Transform arg-4526 arg-4527)))) 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--21624-13479 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--21559-13417 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 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))) (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)))))))))))))))))))))))))))) +(define Context-Core-case--21432-13305 (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))) (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))))))))))))))))))))))))))))) +(define Context-Core-case--21354-13233 (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 (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))))))))))))))))))))))))))))) +(define Context-Core-case--21153-13140 (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))) (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))))))))))))))))))))))))))))) +(define Context-Core-case--21153-13060 (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))) (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))))))))))))))))))))))))))))) +(define Context-Core-case--21066-13007 (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))) (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))))))))))))))))))))))))))) 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))) (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))))))))))))))))))))))))))) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))))))) +(define Context-Core-case--21066-12962 (lambda (arg-0 arg-1 arg-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--20941-12861 (lambda (arg-0 arg-1 arg-2 arg-3 arg-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--20920-12832 (lambda (arg-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--20902-12817 (lambda (arg-0 arg-1 arg-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--20920-12832 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-12730 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 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--20756-12701 (lambda (arg-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--20738-12686 (lambda (arg-0 arg-1 arg-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--20756-12701 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--20640-12604 (lambda (arg-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--20622-12589 (lambda (arg-0 arg-1 arg-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--20640-12604 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--20516-12498 (lambda (arg-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--20353-12337-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--20353-12483 (lambda (arg-0 arg-1 arg-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--20516-12498 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--20359-12361 (lambda (arg-0 arg-1 arg-2 arg-3 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--20353-12337-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--20353-12337-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--20295-12321 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-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 (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))))))))))))))))))))))))))))) +(define Context-Core-case--20238-12267 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-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 (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))))))))))))))))))))))))))))) +(define Context-Core-case--20140-12160 (lambda (arg-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--20122-12145 (lambda (arg-0 arg-1 arg-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--20140-12160 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--19786-11919 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-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--19762-11789-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--19762-11789-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--19762-11790-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--19762-11790-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--19786-11850 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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--19762-11813 (lambda (arg-0 arg-1 arg-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-4524) (lambda (arg-4525) (Context-Core-full_HasNames__Name arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__Name arg-4526 arg-4527)))) 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--19786-11850 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-28 (vector-ref sc3 8))) e-28))))))) (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--19762-11789-isDefault arg-0 arg-1 arg-2 arg-3 eta-1)) (NameMap-Data-toList 'erased (let ((sc4 arg-4)) (let ((e-27 (vector-ref sc4 9))) e-27))))))) (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-26 (vector-ref sc4 10))) e-26)))))) (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--19762-11789-isDefault arg-0 arg-1 arg-2 arg-3 eta-1))) (NameMap-Data-toList 'erased (let ((sc4 arg-4)) (let ((e-27 (vector-ref sc4 9))) e-27))))))) (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--19762-11790-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--19762-11790-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--19612-11675 (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--19527-11630 (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--19509-11584 (lambda (arg-0 arg-1 arg-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--19409-11495 (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--19321-11448 (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--19303-11400 (lambda (arg-0 arg-1 arg-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--19215-11352 (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--19197-11304 (lambda (arg-0 arg-1 arg-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--19007-11164 (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--18989-11118 (lambda (arg-0 arg-1 arg-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--18836-11019 (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--18818-10966 (lambda (arg-0 arg-1 arg-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--18677-10889 (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--18659-10823 (lambda (arg-0 arg-1 arg-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--18561-10775 (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--18543-10719 (lambda (arg-0 arg-1 arg-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--18282-10468 (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--18237-10417 (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--18171-10390 (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))) (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))))))))))))))))))))))))))))) +(define Context-Core-case--18083-10283 (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--18040-10246 (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--17989-10222 (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))) (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)))))))))))))))))))))))))))) +(define Context-Core-case--17914-10157 (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--17897-10113 (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--17820-10072 (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--17803-10028 (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--17726-9987 (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--17709-9943 (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--17634-9904 (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--17617-9860 (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--17517-9817 (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--17498-9750 (lambda (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--17481-9735 (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--17498-9750 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--17362-9663 (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))) (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)))))))))))))))))))))))))))) +(define Context-Core-case--17345-9610 (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-26 (vector-ref sc1 3))) (let ((e-25 (vector-ref sc1 4))) (let ((e-4 (vector-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))) (vector 0 e-3 e-1 e-26 e-25 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24)))))))))))))))))))))))))) 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--17192-9580 (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))) (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)))))))))))))))))))))))))))) +(define Context-Core-case--17192-9489 (lambda (arg-0 arg-1 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--17175-9457 (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-26 (vector-ref sc1 3))) (let ((e-25 (vector-ref sc1 4))) (let ((e-4 (vector-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))) (vector 0 e-3 e-1 e-26 e-25 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24)))))))))))))))))))))))))) 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--17192-9489 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--17088-9371 (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--17080-9360 (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--17088-9371 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--17024-9342 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-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 (NameMap-Data-delete 'erased arg-0 e-22) e-23 e-24))))))))))))))))))))))))))))) +(define Context-Core-case--16970-9291 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-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 (NameMap-Data-insert 'erased arg-0 (vector 0 ) e-22) e-23 e-24))))))))))))))))))))))))))))) +(define Context-Core-case--16920-9242 (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))) (vector 0 e-0 e-1 e-2 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)))))))))))))))))))))))))))) +(define Context-Core-case--16851-9186 (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))) (vector 0 e-0 e-1 e-2 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-25 (vector-ref sc1 2))) ((e-25 (let ((sc2 arg-4)) (let ((e-36 (vector-ref sc2 16))) e-36))) arg-2))) e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24)))))))))))))))))))))))))))) +(define Context-Core-case--16782-9131 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (vector 0 e-0 e-1 e-2 e-3 (Context-Core-n--16782-9070-resetElab arg-0 (let ((sc1 arg-1)) (let ((e-45 (vector-ref sc1 5))) e-45))) e-5 e-6 e-7 e-8 e-9 e-10 e-11 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-25 (vector-ref sc1 25))) e-25))))))))))))))))))))))))))))) +(define Context-Core-case--16785-9084 (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--16683-9011 (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 ((sc1 e-0)) (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))) (let ((e-30 (vector-ref sc1 6))) (let ((e-31 (vector-ref sc1 7))) (let ((e-32 (vector-ref sc1 8))) (let ((e-33 (vector-ref sc1 9))) (vector 0 (vector 0 e-25 e-26 e-27 e-28 e-29 e-30 e-31 e-32 e-33 0) e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24))))))))))))))))))))))))))))))))))))))) +(define Context-Core-case--13842-6416 (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--13841-6325 (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--13711-6153 (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--13710-6134 (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--12753-5322 (lambda (arg-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--12752-5222 (lambda (arg-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--12160-4885 (lambda (arg-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--12160-4836 (lambda (arg-0 arg-1 arg-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--12159-4640 (lambda (arg-0 arg-1 arg-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--12087-4591 (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--12086-4567 (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--12007-4490 (lambda (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--11905-4444 (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--11905-4416 (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--11877-4375 (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--11877-4349-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--11860-4347 (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--11767-4272 (lambda (arg-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--11744-4252 (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--11681-4231 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (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--11586-4085-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--11681-4187 (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--11586-4173 (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--11681-4231 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--11590-4143 (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--11586-4085-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--11586-4085-getMatches arg-0 arg-1 arg-3)))))) +(define Context-Core-case--11478-4065 (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--11485-4030 (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--11478-3991 (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--11271-3961 (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--11355-3895 (lambda (arg-0 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--11278-3878 (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--11355-3895 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--11278-3820 (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--11271-3806 (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--11278-3820 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--11355-3895 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--11169-3782 (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--11176-3750 (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--11169-3714 (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--11099-3662 (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--11087-3646 (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--11099-3662 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--11033-3619 (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--10968-3589 (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--10968-3542 (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--10957-3527 (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--10903-3502 (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--10838-3472 (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--10838-3425 (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--10827-3410 (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--10782-3373 (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--10701-3341 (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--10631-3242 (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--10625-3220 (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--10631-3242 arg-0 arg-1 arg-2 e-2 (StringMap-Data-lookup 'erased e-2 arg-0)))))))) +(define Context-Core-case--7904-827 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) " [impl]") (else ""))))) +(define Context-Core-n--23498-15129-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--22346-14111-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--22366-14130 '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--22620-14353-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--26621-18081-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--26621-18080-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--13100-5672-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--16782-9070-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--22475-14239-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--22510-14264 '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--11586-4084-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--22778-14493-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--22778-14493-justPos 'erased arg-1 (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-2) e-3))) (else (Context-Core-n--22778-14493-justPos 'erased arg-1 (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-2) e-3))))))))))) +(define Context-Core-n--17077-9350-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--17088-9371 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--19762-11789-isDefault (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (Builtin-snd 'erased 'erased ext-0))) +(define Context-Core-n--13399-5856-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--13399-5856-insertAll 'erased arg-1 arg-2 (NameMap-Data-insert 'erased e-5 e-7 arg-3) e-3) eta-0))))))))))))))))) +(define Context-Core-n--13398-5825-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--13398-5825-insertAll 'erased arg-1 arg-2 (NameMap-Data-insert 'erased e-5 e-7 arg-3) e-3) eta-0))))))))))))))))) +(define Context-Core-n--20353-12337-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--20359-12361 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--11586-4085-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--11586-4085-getMatches arg-0 arg-1 e-3)) (else (let ((e-6 (vector-ref sc1 1))) (Context-Core-case--11590-4143 arg-0 arg-1 e-6 e-3 (Context-Core-n--11586-4084-matches arg-0 arg-1 'erased arg-1 e-6))))))))))))) +(define Context-Core-n--22235-13994-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--22239-14007 arg-0 arg-1 e-2 e-3 (Options-Core-C-61C-61_Eq__CG arg-0 e-2))))))) +(define Context-Core-n--13099-5539-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--19762-11790-direct (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (Builtin-snd 'erased 'erased ext-0))) +(define Context-Core-n--22475-14214-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--22913-14618-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--11877-4349-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--11877-4349-commitStaged arg-0 e-3 arg-2) eta-0))))))))))))) +(define Context-Core-n--23498-15128-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--23498-15128-allParents arg-0 arg-1 e-3))))))))) +(define Context-Core-n--22913-14617-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--26621-18080-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--26154-17658-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--22913-14619-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--22913-14618-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--22913-14619-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 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 ";\u000aCompile 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 "\u000aRun 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 "")))) ((3) (let ((e-17 (vector-ref sc0 1))) (let ((e-18 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 ""))))))) ((4) (let ((e-19 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "")))) ((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--11975-4548 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-4481) (lambda (arg-4482) (Context-Core-full_HasNames__C-40NameMapC-32C-36aC-41 'erased arg-4481 arg-4482))) (lambda (arg-4483) (lambda (arg-4484) (Context-Core-resolved_HasNames__C-40NameMapC-32C-36aC-41 'erased arg-4483 arg-4484)))) 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-4481) (lambda (arg-4482) (Context-Core-full_HasNames__C-40NameMapC-32C-36aC-41 'erased arg-4481 arg-4482))) (lambda (arg-4483) (lambda (arg-4484) (Context-Core-resolved_HasNames__C-40NameMapC-32C-36aC-41 'erased arg-4483 arg-4484)))) 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--12988-5629-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__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--12087-4591 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-4524) (lambda (arg-4525) (Context-Core-full_HasNames__C-40NameMapC-32C-36aC-41 'erased arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__C-40NameMapC-32C-36aC-41 'erased arg-4526 arg-4527)))) 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-4524) (lambda (arg-4525) (Context-Core-full_HasNames__C-40NameMapC-32C-36aC-41 'erased arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__C-40NameMapC-32C-36aC-41 'erased arg-4526 arg-4527)))) 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--13100-5672-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--12048-4793 '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--12048-4842 '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--13287-5813-insertAll 'erased arg-2 arg-1 (NameMap-Data-empty 'erased) (NameMap-Data-toList 'erased arg-2)))) +(define Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (Context-Core-case--12160-4836 '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--12160-4885 '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--13399-5856-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))) (lambda (eta-0) (let ((act-15 ((Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased 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-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 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--12641-5279 '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-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--12753-5322 '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))))))))))))))))) @@ -2074,33 +2116,34 @@ (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-4481) (lambda (arg-4482) (Context-Core-full_HasNames__C-40NameMapC-32C-36aC-41 'erased arg-4481 arg-4482))) (lambda (arg-4483) (lambda (arg-4484) (Context-Core-resolved_HasNames__C-40NameMapC-32C-36aC-41 'erased arg-4483 arg-4484)))) 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-4481) (lambda (arg-4482) (Context-Core-full_HasNames__C-40NameMapC-32C-36aC-41 'erased arg-4481 arg-4482))) (lambda (arg-4483) (lambda (arg-4484) (Context-Core-resolved_HasNames__C-40NameMapC-32C-36aC-41 'erased arg-4483 arg-4484)))) 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--12987-5496-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__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-4524) (lambda (arg-4525) (Context-Core-full_HasNames__C-40NameMapC-32C-36aC-41 'erased arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__C-40NameMapC-32C-36aC-41 'erased arg-4526 arg-4527)))) 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-4524) (lambda (arg-4525) (Context-Core-full_HasNames__C-40NameMapC-32C-36aC-41 'erased arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__C-40NameMapC-32C-36aC-41 'erased arg-4526 arg-4527)))) 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--13099-5539-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--13286-5782-insertAll 'erased arg-2 arg-1 (NameMap-Data-empty 'erased) (NameMap-Data-toList 'erased arg-2)))) +(define Context-Core-full_HasNames__C-40NameMapC-32C-36aC-41 (lambda (arg-0 arg-1 arg-2) (Context-Core-n--13398-5825-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))) (lambda (eta-0) (let ((act-15 ((Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased 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-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 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-4481) (lambda (arg-4482) (Context-Core-full_HasNames__Transform arg-4481 arg-4482))) (lambda (arg-4483) (lambda (arg-4484) (Context-Core-resolved_HasNames__Transform arg-4483 arg-4484)))))) -(define Context-Core-__Impl_HasNames_Totality (lambda () (vector 0 (lambda (arg-4481) (lambda (arg-4482) (Context-Core-full_HasNames__Totality arg-4481 arg-4482))) (lambda (arg-4483) (lambda (arg-4484) (Context-Core-resolved_HasNames__Totality arg-4483 arg-4484)))))) -(define Context-Core-__Impl_HasNames_Terminating (lambda () (vector 0 (lambda (arg-4481) (lambda (arg-4482) (Context-Core-full_HasNames__Terminating arg-4481 arg-4482))) (lambda (arg-4483) (lambda (arg-4484) (Context-Core-resolved_HasNames__Terminating arg-4483 arg-4484)))))) -(define Context-Core-__Impl_HasNames_SCCall (lambda () (vector 0 (lambda (arg-4481) (lambda (arg-4482) (lambda (eta-0) (Context-Core-full_HasNames__SCCall arg-4481 arg-4482 eta-0)))) (lambda (arg-4483) (lambda (arg-4484) (lambda (eta-0) (Context-Core-resolved_HasNames__SCCall arg-4483 arg-4484 eta-0))))))) -(define Context-Core-__Impl_HasNames_Name (lambda () (vector 0 (lambda (arg-4481) (lambda (arg-4482) (Context-Core-full_HasNames__Name arg-4481 arg-4482))) (lambda (arg-4483) (lambda (arg-4484) (Context-Core-resolved_HasNames__Name arg-4483 arg-4484)))))) -(define Context-Core-__Impl_HasNames_Def (lambda () (vector 0 (lambda (arg-4481) (lambda (arg-4482) (Context-Core-full_HasNames__Def arg-4481 arg-4482))) (lambda (arg-4483) (lambda (arg-4484) (Context-Core-resolved_HasNames__Def arg-4483 arg-4484)))))) -(define Context-Core-__Impl_HasNames_Covering (lambda () (vector 0 (lambda (arg-4481) (lambda (arg-4482) (Context-Core-full_HasNames__Covering arg-4481 arg-4482))) (lambda (arg-4483) (lambda (arg-4484) (Context-Core-resolved_HasNames__Covering arg-4483 arg-4484)))))) -(define Context-Core-__Impl_HasNames_C-40TermC-32C-36varsC-41 (lambda (arg-0) (vector 0 (lambda (arg-4481) (lambda (arg-4482) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4481 arg-4482))) (lambda (arg-4483) (lambda (arg-4484) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4483 arg-4484)))))) -(define Context-Core-__Impl_HasNames_C-40NameMapC-32C-36aC-41 (lambda (arg-0) (vector 0 (lambda (arg-4481) (lambda (arg-4482) (Context-Core-full_HasNames__C-40NameMapC-32C-36aC-41 'erased arg-4481 arg-4482))) (lambda (arg-4483) (lambda (arg-4484) (Context-Core-resolved_HasNames__C-40NameMapC-32C-36aC-41 'erased arg-4483 arg-4484)))))) -(define Context-Core-__Impl_HasNames_C-40MaybeC-32C-36aC-41 (lambda (arg-0 arg-1) (vector 0 (lambda (arg-4481) (lambda (arg-4482) (Context-Core-full_HasNames__C-40MaybeC-32C-36aC-41 'erased arg-1 arg-4481 arg-4482))) (lambda (arg-4483) (lambda (arg-4484) (Context-Core-resolved_HasNames__C-40MaybeC-32C-36aC-41 'erased arg-1 arg-4483 arg-4484)))))) -(define Context-Core-__Impl_HasNames_C-40CaseTreeC-32C-36varsC-41 (lambda (arg-0) (vector 0 (lambda (arg-4481) (lambda (arg-4482) (Context-Core-full_HasNames__C-40CaseTreeC-32C-36varsC-41 'erased arg-4481 arg-4482))) (lambda (arg-4483) (lambda (arg-4484) (Context-Core-resolved_HasNames__C-40CaseTreeC-32C-36varsC-41 'erased arg-4483 arg-4484)))))) -(define Context-Core-__Impl_HasNames_C-40CaseAltC-32C-36varsC-41 (lambda (arg-0) (vector 0 (lambda (arg-4481) (lambda (arg-4482) (Context-Core-full_HasNames__C-40CaseAltC-32C-36varsC-41 'erased arg-4481 arg-4482))) (lambda (arg-4483) (lambda (arg-4484) (Context-Core-resolved_HasNames__C-40CaseAltC-32C-36varsC-41 'erased arg-4483 arg-4484)))))) -(define Context-Core-__Impl_HasNames_C-40C-40EnvC-32TermC-41C-32C-36varsC-41 (lambda (arg-0) (vector 0 (lambda (arg-4481) (lambda (arg-4482) (Context-Core-full_HasNames__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 'erased arg-4481 arg-4482))) (lambda (arg-4483) (lambda (arg-4484) (Context-Core-resolved_HasNames__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 'erased arg-4483 arg-4484)))))) +(define Context-Core-__Impl_HasNames_Transform (lambda () (vector 0 (lambda (arg-4524) (lambda (arg-4525) (Context-Core-full_HasNames__Transform arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__Transform arg-4526 arg-4527)))))) +(define Context-Core-__Impl_HasNames_Totality (lambda () (vector 0 (lambda (arg-4524) (lambda (arg-4525) (Context-Core-full_HasNames__Totality arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__Totality arg-4526 arg-4527)))))) +(define Context-Core-__Impl_HasNames_Terminating (lambda () (vector 0 (lambda (arg-4524) (lambda (arg-4525) (Context-Core-full_HasNames__Terminating arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__Terminating arg-4526 arg-4527)))))) +(define Context-Core-__Impl_HasNames_SCCall (lambda () (vector 0 (lambda (arg-4524) (lambda (arg-4525) (lambda (eta-0) (Context-Core-full_HasNames__SCCall arg-4524 arg-4525 eta-0)))) (lambda (arg-4526) (lambda (arg-4527) (lambda (eta-0) (Context-Core-resolved_HasNames__SCCall arg-4526 arg-4527 eta-0))))))) +(define Context-Core-__Impl_HasNames_Name (lambda () (vector 0 (lambda (arg-4524) (lambda (arg-4525) (Context-Core-full_HasNames__Name arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__Name arg-4526 arg-4527)))))) +(define Context-Core-__Impl_HasNames_Def (lambda () (vector 0 (lambda (arg-4524) (lambda (arg-4525) (Context-Core-full_HasNames__Def arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__Def arg-4526 arg-4527)))))) +(define Context-Core-__Impl_HasNames_Covering (lambda () (vector 0 (lambda (arg-4524) (lambda (arg-4525) (Context-Core-full_HasNames__Covering arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__Covering arg-4526 arg-4527)))))) +(define Context-Core-__Impl_HasNames_C-40TermC-32C-36varsC-41 (lambda (arg-0) (vector 0 (lambda (arg-4524) (lambda (arg-4525) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4526 arg-4527)))))) +(define Context-Core-__Impl_HasNames_C-40NameMapC-32C-36aC-41 (lambda (arg-0) (vector 0 (lambda (arg-4524) (lambda (arg-4525) (Context-Core-full_HasNames__C-40NameMapC-32C-36aC-41 'erased arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__C-40NameMapC-32C-36aC-41 'erased arg-4526 arg-4527)))))) +(define Context-Core-__Impl_HasNames_C-40MaybeC-32C-36aC-41 (lambda (arg-0 arg-1) (vector 0 (lambda (arg-4524) (lambda (arg-4525) (Context-Core-full_HasNames__C-40MaybeC-32C-36aC-41 'erased arg-1 arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__C-40MaybeC-32C-36aC-41 'erased arg-1 arg-4526 arg-4527)))))) +(define Context-Core-__Impl_HasNames_C-40CaseTreeC-32C-36varsC-41 (lambda (arg-0) (vector 0 (lambda (arg-4524) (lambda (arg-4525) (Context-Core-full_HasNames__C-40CaseTreeC-32C-36varsC-41 'erased arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__C-40CaseTreeC-32C-36varsC-41 'erased arg-4526 arg-4527)))))) +(define Context-Core-__Impl_HasNames_C-40CaseAltC-32C-36varsC-41 (lambda (arg-0) (vector 0 (lambda (arg-4524) (lambda (arg-4525) (Context-Core-full_HasNames__C-40CaseAltC-32C-36varsC-41 'erased arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__C-40CaseAltC-32C-36varsC-41 'erased arg-4526 arg-4527)))))) +(define Context-Core-__Impl_HasNames_C-40C-40EnvC-32TermC-41C-32C-36varsC-41 (lambda (arg-0) (vector 0 (lambda (arg-4524) (lambda (arg-4525) (Context-Core-full_HasNames__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 'erased arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 'erased arg-4526 arg-4527)))))) (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)))))(else 1))))) +(define Context-Core-C-61C-61_Eq__DefFlag (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((0) 0)(else 1)))) ((1) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((1) 0)(else 1)))) ((2) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((2) 0)(else 1)))) ((3) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((3) 0)(else 1)))) ((4) (let ((e-0 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((4) (let ((e-2 (vector-ref sc1 1))) (TT-Core-C-61C-61_Eq__TotalReq e-0 e-2)))(else 1))))) ((5) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((5) 0)(else 1)))) ((6) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((6) 0)(else 1)))) ((7) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((7) (let ((e-3 (vector-ref sc1 1))) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-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 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))) @@ -2109,8 +2152,8 @@ (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--22325-14132-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--22325-14157-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--17370-9690 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-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--22475-14214-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--22475-14239-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--17498-9750 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)))) @@ -2120,7 +2163,7 @@ (define GlobalDef-Context-Core-totality (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-10 (vector-ref sc0 11))) e-10)))) (define Defs-Context-Core-toSave (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-5 (vector-ref sc0 6))) e-5)))) (define Context-Core-toResolvedNames (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-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--22628-14411-justPos 'erased e-2 0 e-2))))))) +(define Context-Core-toPos (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (Context-Core-n--22778-14493-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)))) @@ -2129,11 +2172,11 @@ (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--26471-17999-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-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--26621-18081-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-28 (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-27 (vector-ref sc4 6))) (let ((e-26 (vector-ref sc4 7))) (let ((e-25 (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 ((sc5 e-4)) (let ((e-36 (vector-ref sc5 1))) (let ((e-35 (vector-ref sc5 2))) (let ((e-34 (vector-ref sc5 3))) (let ((e-33 (vector-ref sc5 4))) (let ((e-29 (vector-ref sc5 5))) (let ((e-30 (vector-ref sc5 6))) (let ((e-31 (vector-ref sc5 7))) (let ((e-32 (vector-ref sc5 8))) (let ((sc6 e-36)) (let ((e-43 (vector-ref sc6 2))) (let ((e-42 (vector-ref sc6 3))) (let ((e-41 (vector-ref sc6 4))) (let ((e-37 (vector-ref sc6 5))) (let ((e-38 (vector-ref sc6 6))) (let ((e-39 (vector-ref sc6 7))) (let ((e-40 (vector-ref sc6 8))) (vector 0 e-0 e-28 e-2 e-3 (vector 0 (vector 0 e-1 e-43 e-42 e-41 e-37 e-38 e-39 e-40) e-35 e-34 e-33 e-29 e-30 e-31 e-32) e-27 e-26 e-25 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24)))))))))))))))))))))))))))))))))))))))))))) 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-25 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (let ((e-21 (vector-ref sc1 22))) (let ((e-22 (vector-ref sc1 23))) (let ((e-23 (vector-ref sc1 24))) (let ((e-24 (vector-ref sc1 25))) (let ((sc2 e-0)) (let ((e-35 (vector-ref sc2 1))) (let ((e-26 (vector-ref sc2 2))) (let ((e-27 (vector-ref sc2 3))) (let ((e-28 (vector-ref sc2 4))) (let ((e-29 (vector-ref sc2 5))) (let ((e-30 (vector-ref sc2 6))) (let ((e-31 (vector-ref sc2 7))) (let ((e-32 (vector-ref sc2 8))) (let ((e-33 (vector-ref sc2 9))) (let ((e-34 (vector-ref sc2 10))) (vector 0 (vector 0 e-35 e-26 e-27 e-28 e-29 e-30 e-31 (vector 1 arg-1 e-32) e-33 e-34) e-1 e-2 e-3 e-4 e-25 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24)))))))))))))))))))))))))))))))))))))) 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--20606-12619 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-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--20756-12701 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-25 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (let ((e-21 (vector-ref sc1 22))) (let ((e-22 (vector-ref sc1 23))) (let ((e-23 (vector-ref sc1 24))) (let ((e-24 (vector-ref sc1 25))) (let ((sc2 e-4)) (let ((e-33 (vector-ref sc2 1))) (let ((e-26 (vector-ref sc2 2))) (let ((e-27 (vector-ref sc2 3))) (let ((e-28 (vector-ref sc2 4))) (let ((e-29 (vector-ref sc2 5))) (let ((e-30 (vector-ref sc2 6))) (let ((e-31 (vector-ref sc2 7))) (let ((e-32 (vector-ref sc2 8))) (let ((sc3 e-28)) (let ((e-38 (vector-ref sc3 1))) (let ((e-34 (vector-ref sc3 2))) (let ((e-35 (vector-ref sc3 3))) (let ((e-36 (vector-ref sc3 4))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-33 e-26 e-27 (vector 0 e-38 e-34 e-35 e-36 arg-1) e-29 e-30 e-31 e-32) e-25 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24))))))))))))))))))))))))))))))))))))))))) 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-25 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (let ((e-21 (vector-ref sc1 22))) (let ((e-22 (vector-ref sc1 23))) (let ((e-23 (vector-ref sc1 24))) (let ((e-24 (vector-ref sc1 25))) (let ((sc2 e-4)) (let ((e-33 (vector-ref sc2 1))) (let ((e-26 (vector-ref sc2 2))) (let ((e-27 (vector-ref sc2 3))) (let ((e-28 (vector-ref sc2 4))) (let ((e-29 (vector-ref sc2 5))) (let ((e-30 (vector-ref sc2 6))) (let ((e-31 (vector-ref sc2 7))) (let ((e-32 (vector-ref sc2 8))) (let ((sc3 e-28)) (let ((e-38 (vector-ref sc3 1))) (let ((e-35 (vector-ref sc3 3))) (let ((e-36 (vector-ref sc3 4))) (let ((e-37 (vector-ref sc3 5))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-33 e-26 e-27 (vector 0 e-38 arg-1 e-35 e-36 e-37) e-29 e-30 e-31 e-32) e-25 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24))))))))))))))))))))))))))))))))))))))))) 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)))))))))))))))) @@ -2149,7 +2192,7 @@ (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-25 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (let ((e-21 (vector-ref sc1 22))) (let ((e-22 (vector-ref sc1 23))) (let ((e-23 (vector-ref sc1 24))) (let ((e-24 (vector-ref sc1 25))) (vector 0 e-0 e-1 arg-1 e-3 e-4 e-25 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24)))))))))))))))))))))))))) 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--19990-12078 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-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--20140-12160 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-25 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (let ((e-21 (vector-ref sc1 22))) (let ((e-22 (vector-ref sc1 23))) (let ((e-23 (vector-ref sc1 24))) (let ((e-24 (vector-ref sc1 25))) (let ((sc2 e-4)) (let ((e-33 (vector-ref sc2 1))) (let ((e-26 (vector-ref sc2 2))) (let ((e-27 (vector-ref sc2 3))) (let ((e-28 (vector-ref sc2 4))) (let ((e-29 (vector-ref sc2 5))) (let ((e-30 (vector-ref sc2 6))) (let ((e-31 (vector-ref sc2 7))) (let ((e-32 (vector-ref sc2 8))) (let ((sc3 e-27)) (let ((e-44 (vector-ref sc3 1))) (let ((e-34 (vector-ref sc3 2))) (let ((e-35 (vector-ref sc3 3))) (let ((e-36 (vector-ref sc3 4))) (let ((e-37 (vector-ref sc3 5))) (let ((e-39 (vector-ref sc3 7))) (let ((e-40 (vector-ref sc3 8))) (let ((e-41 (vector-ref sc3 9))) (let ((e-42 (vector-ref sc3 10))) (let ((e-43 (vector-ref sc3 11))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-33 e-26 (vector 0 e-44 e-34 e-35 e-36 e-37 arg-1 e-39 e-40 e-41 e-42 e-43) e-28 e-29 e-30 e-31 e-32) e-25 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24))))))))))))))))))))))))))))))))))))))))))))))) 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-25 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (let ((e-21 (vector-ref sc1 22))) (let ((e-22 (vector-ref sc1 23))) (let ((e-23 (vector-ref sc1 24))) (let ((e-24 (vector-ref sc1 25))) (let ((sc2 e-4)) (let ((e-33 (vector-ref sc2 1))) (let ((e-26 (vector-ref sc2 2))) (let ((e-27 (vector-ref sc2 3))) (let ((e-28 (vector-ref sc2 4))) (let ((e-29 (vector-ref sc2 5))) (let ((e-30 (vector-ref sc2 6))) (let ((e-31 (vector-ref sc2 7))) (let ((e-32 (vector-ref sc2 8))) (let ((sc3 e-27)) (let ((e-44 (vector-ref sc3 1))) (let ((e-34 (vector-ref sc3 2))) (let ((e-35 (vector-ref sc3 3))) (let ((e-36 (vector-ref sc3 4))) (let ((e-38 (vector-ref sc3 6))) (let ((e-39 (vector-ref sc3 7))) (let ((e-40 (vector-ref sc3 8))) (let ((e-41 (vector-ref sc3 9))) (let ((e-42 (vector-ref sc3 10))) (let ((e-43 (vector-ref sc3 11))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-33 e-26 (vector 0 e-44 e-34 e-35 e-36 arg-1 e-38 e-39 e-40 e-41 e-42 e-43) e-28 e-29 e-30 e-31 e-32) e-25 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24))))))))))))))))))))))))))))))))))))))))))))))) 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)))))))))))))))) @@ -2157,10 +2200,10 @@ (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-25 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (let ((e-21 (vector-ref sc1 22))) (let ((e-22 (vector-ref sc1 23))) (let ((e-23 (vector-ref sc1 24))) (let ((e-24 (vector-ref sc1 25))) (vector 0 e-0 e-1 e-2 e-3 (Options-Core-setFromInteger arg-1 e-4) e-25 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24))))))))))))))))))))))))))) 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-25 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (let ((e-21 (vector-ref sc1 22))) (let ((e-22 (vector-ref sc1 23))) (let ((e-23 (vector-ref sc1 24))) (let ((e-24 (vector-ref sc1 25))) (vector 0 e-0 e-1 e-2 e-3 (Options-Core-setFromChar arg-1 e-4) e-25 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24))))))))))))))))))))))))))) 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--20770-12750 arg-3 arg-2 arg-1 arg-0 e-5 e-1 _-0 (let ((sc3 e-1)) (let ((e-17 (vector-ref sc3 18))) e-17))) ext-0))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-1 arg-2) ext-0)))))))))))))))) +(define Context-Core-setExternal (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-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--20920-12832 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-25 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (let ((e-21 (vector-ref sc1 22))) (let ((e-22 (vector-ref sc1 23))) (let ((e-23 (vector-ref sc1 24))) (let ((e-24 (vector-ref sc1 25))) (vector 0 e-0 e-1 e-2 e-3 (Options-Core-setExtension arg-1 e-4) e-25 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24))))))))))))))))))))))))))) 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--20366-12416 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--20490-12522 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-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--20516-12498 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--20640-12604 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-25 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (let ((e-21 (vector-ref sc1 22))) (let ((e-22 (vector-ref sc1 23))) (let ((e-23 (vector-ref sc1 24))) (let ((e-24 (vector-ref sc1 25))) (let ((sc2 e-4)) (let ((e-33 (vector-ref sc2 1))) (let ((e-26 (vector-ref sc2 2))) (let ((e-27 (vector-ref sc2 3))) (let ((e-28 (vector-ref sc2 4))) (let ((e-29 (vector-ref sc2 5))) (let ((e-30 (vector-ref sc2 6))) (let ((e-31 (vector-ref sc2 7))) (let ((e-32 (vector-ref sc2 8))) (let ((sc3 e-28)) (let ((e-38 (vector-ref sc3 1))) (let ((e-34 (vector-ref sc3 2))) (let ((e-36 (vector-ref sc3 4))) (let ((e-37 (vector-ref sc3 5))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-33 e-26 e-27 (vector 0 e-38 e-34 arg-1 e-36 e-37) e-29 e-30 e-31 e-32) e-25 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24))))))))))))))))))))))))))))))))))))))))) 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-25 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (let ((e-21 (vector-ref sc1 22))) (let ((e-22 (vector-ref sc1 23))) (let ((e-23 (vector-ref sc1 24))) (let ((e-24 (vector-ref sc1 25))) (let ((sc2 e-4)) (let ((e-33 (vector-ref sc2 1))) (let ((e-26 (vector-ref sc2 2))) (let ((e-27 (vector-ref sc2 3))) (let ((e-28 (vector-ref sc2 4))) (let ((e-29 (vector-ref sc2 5))) (let ((e-30 (vector-ref sc2 6))) (let ((e-31 (vector-ref sc2 7))) (let ((e-32 (vector-ref sc2 8))) (let ((sc3 e-27)) (let ((e-44 (vector-ref sc3 1))) (let ((e-34 (vector-ref sc3 2))) (let ((e-35 (vector-ref sc3 3))) (let ((e-36 (vector-ref sc3 4))) (let ((e-37 (vector-ref sc3 5))) (let ((e-38 (vector-ref sc3 6))) (let ((e-40 (vector-ref sc3 8))) (let ((e-41 (vector-ref sc3 9))) (let ((e-42 (vector-ref sc3 10))) (let ((e-43 (vector-ref sc3 11))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-33 e-26 (vector 0 e-44 e-34 e-35 e-36 e-37 e-38 arg-1 e-40 e-41 e-42 e-43) e-28 e-29 e-30 e-31 e-32) e-25 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24))))))))))))))))))))))))))))))))))))))))))))))) 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-25 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (let ((e-21 (vector-ref sc1 22))) (let ((e-22 (vector-ref sc1 23))) (let ((e-23 (vector-ref sc1 24))) (let ((e-24 (vector-ref sc1 25))) (vector 0 arg-1 e-1 e-2 e-3 e-4 e-25 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24)))))))))))))))))))))))))) ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) ext-0))))))))) @@ -2173,7 +2216,7 @@ (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--10975-3603 arg-2 arg-1 (let ((sc1 arg-2)) (let ((e-17 (vector-ref sc1 18))) e-17)))))))) +(define Context-Core-returnDef (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-0)) (cond ((equal? sc0 1) (vector 1 (vector 0 arg-1 arg-2))) (else (Context-Core-case--11087-3646 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)))))))))))))))))))))))) @@ -2184,7 +2227,7 @@ (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-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-4481) (lambda (arg-4482) (Context-Core-full_HasNames__Name arg-4481 arg-4482))) (lambda (arg-4483) (lambda (arg-4484) (Context-Core-resolved_HasNames__Name arg-4483 arg-4484)))) (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-4481) (lambda (arg-4482) (Context-Core-full_HasNames__Name arg-4481 arg-4482))) (lambda (arg-4483) (lambda (arg-4484) (Context-Core-resolved_HasNames__Name arg-4483 arg-4484)))) (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-4481) (lambda (arg-4482) (Context-Core-full_HasNames__Name arg-4481 arg-4482))) (lambda (arg-4483) (lambda (arg-4484) (Context-Core-resolved_HasNames__Name arg-4483 arg-4484)))) (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-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-4524) (lambda (arg-4525) (Context-Core-full_HasNames__Name arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__Name arg-4526 arg-4527)))) (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-4524) (lambda (arg-4525) (Context-Core-full_HasNames__Name arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__Name arg-4526 arg-4527)))) (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-4524) (lambda (arg-4525) (Context-Core-full_HasNames__Name arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__Name arg-4526 arg-4527)))) (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)))) @@ -2208,24 +2251,24 @@ (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--11474-4130 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--11057-3671 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--11057-3739 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--11159-3763 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--11366-3948 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--11366-4022 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--26004-17576-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-lookupCtxtName (lambda (arg-0 arg-1) (Context-Core-case--11586-4173 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--11169-3714 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--11169-3782 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--11271-3806 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--11478-3991 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--11478-4065 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--26154-17658-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--25730-17331 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--25851-17436 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--25805-17395 arg-2 arg-1 arg-0 e-5 (Prelude-C-62C-61_Ord__Nat (let ((sc1 e-5)) (let ((e-4 (vector-ref sc1 5))) e-4)) arg-1)) ext-0)))))))) +(define Context-Core-logTerm (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-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--25880-17413 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--26001-17518 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--25955-17477 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-25 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (let ((e-21 (vector-ref sc1 22))) (let ((e-22 (vector-ref sc1 23))) (let ((e-23 (vector-ref sc1 24))) (let ((e-24 (vector-ref sc1 25))) (let ((sc2 e-4)) (let ((e-33 (vector-ref sc2 1))) (let ((e-26 (vector-ref sc2 2))) (let ((e-27 (vector-ref sc2 3))) (let ((e-28 (vector-ref sc2 4))) (let ((e-29 (vector-ref sc2 5))) (let ((e-30 (vector-ref sc2 6))) (let ((e-31 (vector-ref sc2 7))) (let ((e-32 (vector-ref sc2 8))) (let ((sc3 e-28)) (let ((e-34 (vector-ref sc3 2))) (let ((e-35 (vector-ref sc3 3))) (let ((e-36 (vector-ref sc3 4))) (let ((e-37 (vector-ref sc3 5))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-33 e-26 e-27 (vector 0 arg-1 e-34 e-35 e-36 e-37) e-29 e-30 e-31 e-32) e-25 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24))))))))))))))))))))))))))))))))))))))))) 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--23348-15047-visible arg-1 arg-0 eta-0))) (List-Prelude-C-43C-43 'erased (Context-Core-n--23348-15046-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-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--23498-15129-visible arg-1 arg-0 eta-0))) (List-Prelude-C-43C-43 'erased (Context-Core-n--23498-15128-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--25252-16868 arg-1 arg-0 e-5 (let ((sc1 (let ((sc2 e-5)) (let ((e-4 (vector-ref sc2 5))) e-4)))) (let ((e-4 (vector-ref sc1 5))) e-4))) ext-0)))))))) +(define Context-Core-isPairType (lambda (arg-0 arg-1 ext-0) (let ((act-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--25402-16950 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--25362-16976 arg-1 arg-0 e-5 (let ((sc1 (let ((sc2 e-5)) (let ((e-4 (vector-ref sc2 5))) e-4)))) (let ((e-8 (vector-ref sc1 6))) e-8))) ext-0)))))))) +(define Context-Core-isEqualTy (lambda (arg-0 arg-1 ext-0) (let ((act-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--25512-17058 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)))) @@ -2243,13 +2286,13 @@ (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--16949-9290-isHole arg-0 e-5 eta-0 eta-1))) hs) 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--17077-9350-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-4481) (lambda (arg-4482) (Context-Core-full_HasNames__Name arg-4481 arg-4482))) (lambda (arg-4483) (lambda (arg-4484) (Context-Core-resolved_HasNames__Name arg-4483 arg-4484)))) 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--19636-11768 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-30 (vector-ref sc5 8))) e-30))))))) (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--19612-11707-isDefault arg-3 arg-2 arg-1 arg-0 eta-0)) (NameMap-Data-toList 'erased (let ((sc6 e-5)) (let ((e-29 (vector-ref sc6 9))) e-29))))))) (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-28 (vector-ref sc6 10))) e-28)))))) (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--19612-11707-isDefault arg-3 arg-2 arg-1 arg-0 eta-0))) (NameMap-Data-toList 'erased (let ((sc6 e-5)) (let ((e-29 (vector-ref sc6 9))) e-29))))))) (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--19612-11708-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--19612-11708-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-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-4524) (lambda (arg-4525) (Context-Core-full_HasNames__Name arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__Name arg-4526 arg-4527)))) 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--19786-11850 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-30 (vector-ref sc5 8))) e-30))))))) (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--19762-11789-isDefault arg-3 arg-2 arg-1 arg-0 eta-0)) (NameMap-Data-toList 'erased (let ((sc6 e-5)) (let ((e-29 (vector-ref sc6 9))) e-29))))))) (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-28 (vector-ref sc6 10))) e-28)))))) (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--19762-11789-isDefault arg-3 arg-2 arg-1 arg-0 eta-0))) (NameMap-Data-toList 'erased (let ((sc6 e-5)) (let ((e-29 (vector-ref sc6 9))) e-29))))))) (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--19762-11790-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--19762-11790-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--22470-14271-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--22470-14327 arg-0 arg-3 arg-2 arg-1 (TT-Core-getFnArgs 'erased arg-3))))))))))(else (Context-Core-case--22470-14327 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--10670-3330 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-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--22620-14353-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--22620-14409 arg-0 arg-3 arg-2 arg-1 (TT-Core-getFnArgs 'erased arg-3))))))))))(else (Context-Core-case--22620-14409 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--10782-3373 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-25 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (let ((e-21 (vector-ref sc1 22))) (let ((e-22 (vector-ref sc1 23))) (let ((e-23 (vector-ref sc1 24))) (let ((e-24 (vector-ref sc1 25))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-25 (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))))))))))))))))))))))))))) 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-25 (vector-ref sc2 7))) e-25))) 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)))))))) @@ -2257,10 +2300,9 @@ (define Context-Core-getNameID (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((9) (let ((e-0 (vector-ref sc0 1))) (vector 1 e-0)))(else (NameMap-Data-lookup 'erased arg-0 (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 3))) e-2)))))))) (define Context-Core-getNS (lambda (arg-0 ext-0) (let ((act-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-26 (vector-ref sc2 1))) 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))) (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--11895-4447 e-0 e-1 e-2 e-4 e-3 (TT-Core-getFn 'erased e-3)))))))))) +(define Context-Core-getFnName (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (Context-Core-case--12007-4490 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--22085-13912-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-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--22235-13994-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-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)))))))) @@ -2277,7 +2319,7 @@ (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-25 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (let ((e-21 (vector-ref sc1 22))) (let ((e-22 (vector-ref sc1 23))) (let ((e-23 (vector-ref sc1 24))) (let ((e-24 (vector-ref sc1 25))) (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-25 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24))))))))))))))))))))))))))) 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--22196-14029-toNothing 'erased e-10 'erased 'erased e-9 e-8 e-3 eta-0)) e-3)))))))(else (vector 1 e-2 (Context-Core-dropReps 'erased e-3)))))))(else (vector 1 e-2 (Context-Core-dropReps 'erased e-3)))))))))))) +(define Context-Core-dropReps (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((0) (let ((e-8 (vector-ref sc2 1))) (let ((e-9 (vector-ref sc2 2))) (let ((e-10 (vector-ref sc2 3))) (vector 1 (vector 1 (vector 0 e-8 e-9 e-10)) (Context-Core-dropReps 'erased (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Context-Core-n--22346-14111-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-25 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (let ((e-21 (vector-ref sc1 22))) (let ((e-22 (vector-ref sc1 23))) (let ((e-23 (vector-ref sc1 24))) (let ((e-24 (vector-ref sc1 25))) (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-25 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24))))))))))))))))))))))))))) 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)))) @@ -2287,13 +2329,13 @@ (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--11765-4332 arg-0 (let ((sc0 arg-0)) (let ((e-5 (vector-ref sc0 6))) e-5))))) +(define Context-Core-commitCtxt (lambda (arg-0) (Context-Core-case--11877-4375 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-25 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (let ((e-21 (vector-ref sc1 22))) (let ((e-22 (vector-ref sc1 23))) (let ((e-23 (vector-ref sc1 24))) (let ((e-24 (vector-ref sc1 25))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-25 e-6 e-7 e-8 e-9 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))))))))))))))))))))))))))) 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-25 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 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))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-25 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))))))))))))))))))))))))) 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 ((sc1 e-0)) (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))) (let ((e-30 (vector-ref sc1 6))) (let ((e-31 (vector-ref sc1 7))) (let ((e-32 (vector-ref sc1 8))) (let ((e-33 (vector-ref sc1 9))) (vector 0 (vector 0 e-25 e-26 e-27 e-28 e-29 e-30 e-31 e-32 e-33 0) e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24)))))))))))))))))))))))))))))))))))))) 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-26 (vector-ref sc2 6))) (let ((e-25 (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))) (vector 0 e-0 e-1 e-2 e-3 (let ((sc3 e-5)) (let ((e-47 (vector-ref sc3 5))) e-47)) e-26 e-25 e-7 e-8 e-9 e-10 e-11 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-27 (vector-ref sc3 25))) e-27))))))))))))))))))))))))))) ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-17) 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-26 (vector-ref sc2 6))) (let ((e-25 (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))) (vector 0 e-0 e-1 e-2 e-3 (Context-Core-n--16782-9070-resetElab arg-0 (let ((sc3 e-5)) (let ((e-47 (vector-ref sc3 5))) e-47))) e-26 e-25 e-7 e-8 e-9 e-10 e-11 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-27 (vector-ref sc3 25))) e-27))))))))))))))))))))))))))) 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)))) @@ -2304,43 +2346,44 @@ (define Context-Context-Core-allPublic (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-8 (vector-ref sc0 9))) e-8)))) (define Defs-Context-Core-allImported (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-18 (vector-ref sc0 19))) e-18)))) (define Context-Core-addUserHole (lambda (arg-0 arg-1 ext-0) (let ((act-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-25 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (let ((e-21 (vector-ref sc1 22))) (let ((e-22 (vector-ref sc1 23))) (let ((e-23 (vector-ref sc1 24))) (let ((e-24 (vector-ref sc1 25))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-25 e-6 e-7 e-8 e-9 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))))))))))))))))))))))))))) 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--21460-13353 arg-2 arg-1 arg-0 e-5 (Context-Core-getFnName arg-2)) ext-0)))))))) +(define Context-Core-addTransform (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-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--21610-13435 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-26 (vector-ref sc2 6))) (let ((e-25 (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 (NameMap-Data-insert 'erased e-6 (vector 0 ) e-26) e-25 e-7 e-8 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))))))))))))))))))))))))))) 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--10513-3177 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-4481) (lambda (arg-4482) (Context-Core-full_HasNames__Name arg-4481 arg-4482))) (lambda (arg-4483) (lambda (arg-4484) (Context-Core-resolved_HasNames__Name arg-4483 arg-4484)))) 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-26 (vector-ref sc2 6))) (let ((e-25 (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-26 e-25 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))))))))))))))))))))))))))) 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--10625-3220 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-4524) (lambda (arg-4525) (Context-Core-full_HasNames__Name arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__Name arg-4526 arg-4527)))) 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-26 (vector-ref sc2 6))) (let ((e-25 (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-26 e-25 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))))))))))))))))))))))))))) 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-26 (vector-ref sc2 6))) (let ((e-25 (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-26 e-25 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))))))))))))))))))))))))))) 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-25 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (let ((e-21 (vector-ref sc1 22))) (let ((e-22 (vector-ref sc1 23))) (let ((e-23 (vector-ref sc1 24))) (let ((e-24 (vector-ref sc1 25))) (vector 0 e-0 (vector 1 arg-1 e-1) e-2 e-3 e-4 e-25 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24))))))))))))))))))))))))))) 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-25 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (let ((e-21 (vector-ref sc1 22))) (let ((e-22 (vector-ref sc1 23))) (let ((e-23 (vector-ref sc1 24))) (let ((e-24 (vector-ref sc1 25))) (let ((sc2 e-4)) (let ((e-33 (vector-ref sc2 1))) (let ((e-26 (vector-ref sc2 2))) (let ((e-27 (vector-ref sc2 3))) (let ((e-28 (vector-ref sc2 4))) (let ((e-29 (vector-ref sc2 5))) (let ((e-30 (vector-ref sc2 6))) (let ((e-31 (vector-ref sc2 7))) (let ((e-32 (vector-ref sc2 8))) (let ((sc3 e-33)) (let ((e-41 (vector-ref sc3 1))) (let ((e-34 (vector-ref sc3 2))) (let ((e-35 (vector-ref sc3 3))) (let ((e-36 (vector-ref sc3 4))) (let ((e-37 (vector-ref sc3 5))) (let ((e-38 (vector-ref sc3 6))) (let ((e-39 (vector-ref sc3 7))) (let ((e-40 (vector-ref sc3 8))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 (vector 0 e-41 e-34 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-26 e-27 e-28 e-29 e-30 e-31 e-32) e-25 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24))))))))))))))))))))))))))))))))))))))))))))) 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-25 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (let ((e-21 (vector-ref sc1 22))) (let ((e-22 (vector-ref sc1 23))) (let ((e-23 (vector-ref sc1 24))) (let ((e-24 (vector-ref sc1 25))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-25 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))))))))))))))))))))))))))) 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-4481) (lambda (arg-4482) (Context-Core-full_HasNames__Name arg-4481 arg-4482))) (lambda (arg-4483) (lambda (arg-4484) (Context-Core-resolved_HasNames__Name arg-4483 arg-4484)))) 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-4481) (lambda (arg-4482) (Context-Core-full_HasNames__Name arg-4481 arg-4482))) (lambda (arg-4483) (lambda (arg-4484) (Context-Core-resolved_HasNames__Name arg-4483 arg-4484)))) 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--20916-12880 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-25 (vector-ref sc3 8))) e-25)))))) (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-27 (vector-ref sc4 6))) (let ((e-26 (vector-ref sc4 7))) (let ((e-25 (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))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-27 e-26 (NameMap-Data-insert 'erased e-6 (vector 1 (vector 0 e-7 arg-4) hs) e-25) e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24))))))))))))))))))))))))))) 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-27 (vector-ref sc4 6))) (let ((e-26 (vector-ref sc4 7))) (let ((e-25 (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))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-27 e-26 (NameMap-Data-insert 'erased e-6 (vector 1 (vector 0 e-7 arg-4) hs) e-25) 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))))))))))))))))))))))))))) ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-18) 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-4524) (lambda (arg-4525) (Context-Core-full_HasNames__Name arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__Name arg-4526 arg-4527)))) 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-4524) (lambda (arg-4525) (Context-Core-full_HasNames__Name arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__Name arg-4526 arg-4527)))) 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--21066-12962 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-25 (vector-ref sc3 8))) e-25)))))) (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-27 (vector-ref sc4 6))) (let ((e-26 (vector-ref sc4 7))) (let ((e-25 (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))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-27 e-26 (NameMap-Data-insert 'erased e-6 (vector 1 (vector 0 e-7 arg-4) hs) e-25) e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24))))))))))))))))))))))))))) 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-27 (vector-ref sc4 6))) (let ((e-26 (vector-ref sc4 7))) (let ((e-25 (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))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-27 e-26 (NameMap-Data-insert 'erased e-6 (vector 1 (vector 0 e-7 arg-4) hs) e-25) 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))))))))))))))))))))))))))) 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-25 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 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))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-25 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 (let ((sc2 arg-2)) (let ((e-26 (vector-ref sc2 2))) ((e-26 (let ((sc3 e-5)) (let ((e-37 (vector-ref sc3 16))) e-37))) arg-3))) e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24)))))))))))))))))))))))))) 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-4481) (lambda (arg-4482) (Context-Core-full_HasNames__Name arg-4481 arg-4482))) (lambda (arg-4483) (lambda (arg-4484) (Context-Core-resolved_HasNames__Name arg-4483 arg-4484)))) 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-26 (vector-ref sc2 6))) (let ((e-25 (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-26 e-25 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))))))))))))))))))))))))))) ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-17) 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-4524) (lambda (arg-4525) (Context-Core-full_HasNames__Name arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__Name arg-4526 arg-4527)))) 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-26 (vector-ref sc2 6))) (let ((e-25 (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-26 e-25 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))))))))))))))))))))))))))) 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-25 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (let ((e-21 (vector-ref sc1 22))) (let ((e-22 (vector-ref sc1 23))) (let ((e-23 (vector-ref sc1 24))) (let ((e-24 (vector-ref sc1 25))) (let ((sc2 e-4)) (let ((e-33 (vector-ref sc2 1))) (let ((e-26 (vector-ref sc2 2))) (let ((e-27 (vector-ref sc2 3))) (let ((e-28 (vector-ref sc2 4))) (let ((e-29 (vector-ref sc2 5))) (let ((e-30 (vector-ref sc2 6))) (let ((e-31 (vector-ref sc2 7))) (let ((e-32 (vector-ref sc2 8))) (let ((sc3 e-33)) (let ((e-41 (vector-ref sc3 1))) (let ((e-34 (vector-ref sc3 2))) (let ((e-35 (vector-ref sc3 3))) (let ((e-36 (vector-ref sc3 4))) (let ((e-37 (vector-ref sc3 5))) (let ((e-38 (vector-ref sc3 6))) (let ((e-39 (vector-ref sc3 7))) (let ((e-40 (vector-ref sc3 8))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 (vector 0 e-41 e-34 e-35 e-36 e-37 (List-Prelude-C-43C-43 'erased e-38 (vector 1 arg-1 (vector 0 ))) e-39 e-40) e-26 e-27 e-28 e-29 e-30 e-31 e-32) e-25 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24))))))))))))))))))))))))))))))))))))))))))))) 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--10845-3484 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--21985-13833 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-28 (vector-ref sc3 3))) (let ((e-27 (vector-ref sc3 4))) (let ((e-4 (vector-ref sc3 5))) (let ((e-26 (vector-ref sc3 6))) (let ((e-25 (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))) (vector 0 e-3 e-1 e-28 e-27 e-4 e-26 e-25 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24)))))))))))))))))))))))))) 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--17064-9429 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-addEntry (lambda (arg-0 arg-1 arg-2) (Context-Core-case--10957-3527 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--22135-13915 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-28 (vector-ref sc3 3))) (let ((e-27 (vector-ref sc3 4))) (let ((e-4 (vector-ref sc3 5))) (let ((e-26 (vector-ref sc3 6))) (let ((e-25 (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))) (vector 0 e-3 e-1 e-28 e-27 e-4 e-26 e-25 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24)))))))))))))))))))))))))) 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--17192-9489 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-25 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (let ((e-21 (vector-ref sc1 22))) (let ((e-22 (vector-ref sc1 23))) (let ((e-23 (vector-ref sc1 24))) (let ((e-24 (vector-ref sc1 25))) (let ((sc2 e-4)) (let ((e-33 (vector-ref sc2 1))) (let ((e-26 (vector-ref sc2 2))) (let ((e-27 (vector-ref sc2 3))) (let ((e-28 (vector-ref sc2 4))) (let ((e-29 (vector-ref sc2 5))) (let ((e-30 (vector-ref sc2 6))) (let ((e-31 (vector-ref sc2 7))) (let ((e-32 (vector-ref sc2 8))) (let ((sc3 e-33)) (let ((e-41 (vector-ref sc3 1))) (let ((e-34 (vector-ref sc3 2))) (let ((e-35 (vector-ref sc3 3))) (let ((e-36 (vector-ref sc3 4))) (let ((e-37 (vector-ref sc3 5))) (let ((e-38 (vector-ref sc3 6))) (let ((e-39 (vector-ref sc3 7))) (let ((e-40 (vector-ref sc3 8))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 (vector 0 e-41 e-34 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-26 e-27 e-28 e-29 e-30 e-31 e-32) e-25 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24))))))))))))))))))))))))))))))))))))))))))))) 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--22763-14535-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-32 (vector-ref sc4 1))) e-32))) 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--22763-14537-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-35 (vector-ref sc7 2))) (let ((e-34 (vector-ref sc7 3))) (let ((e-33 (vector-ref sc7 4))) (let ((e-32 (vector-ref sc7 5))) (let ((e-31 (vector-ref sc7 6))) (let ((e-30 (vector-ref sc7 7))) (let ((e-29 (vector-ref sc7 8))) (let ((e-28 (vector-ref sc7 9))) (let ((e-27 (vector-ref sc7 10))) (let ((e-26 (vector-ref sc7 11))) (let ((e-25 (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))) (vector 0 e-11 e-35 e-34 e-33 e-32 e-31 e-30 e-29 e-28 e-27 e-26 e-25 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24)))))))))))))))))))))))))) 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--10715-3367 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-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--22913-14617-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-32 (vector-ref sc4 1))) e-32))) 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--22913-14619-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-35 (vector-ref sc7 2))) (let ((e-34 (vector-ref sc7 3))) (let ((e-33 (vector-ref sc7 4))) (let ((e-32 (vector-ref sc7 5))) (let ((e-31 (vector-ref sc7 6))) (let ((e-30 (vector-ref sc7 7))) (let ((e-29 (vector-ref sc7 8))) (let ((e-28 (vector-ref sc7 9))) (let ((e-27 (vector-ref sc7 10))) (let ((e-26 (vector-ref sc7 11))) (let ((e-25 (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))) (vector 0 e-11 e-35 e-34 e-33 e-32 e-31 e-30 e-29 e-28 e-27 e-26 e-25 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24)))))))))))))))))))))))))) 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--10827-3410 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-28 (vector-ref sc3 3))) (let ((e-27 (vector-ref sc3 4))) (let ((e-4 (vector-ref sc3 5))) (let ((e-26 (vector-ref sc3 6))) (let ((e-25 (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))) (vector 0 e-3 e-1 e-28 e-27 e-4 e-26 e-25 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24)))))))))))))))))))))))))) 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--2365-644 (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--2327-604 (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--2295-572 (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--2247-524 (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--2139-420 (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-case--2425-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--2387-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--2355-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--2307-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--2199-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-ok (lambda (arg-0 arg-1 ext-0) (Prelude-pure_Applicative__IO 'erased (vector 1 arg-1) 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--2327-604 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-dirEntry (lambda (arg-0 ext-0) (let ((act-15 (Directory-System-prim_dirEntry arg-0 ext-0))) ((Directory-System-case--2365-644 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-openDir (lambda (arg-0 ext-0) (let ((act-15 (Directory-System-prim_openDir arg-0 ext-0))) ((Directory-System-case--2387-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-dirEntry (lambda (arg-0 ext-0) (let ((act-15 (Directory-System-prim_dirEntry arg-0 ext-0))) ((Directory-System-case--2425-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-closeDir (lambda (arg-0 ext-0) (Directory-System-prim_closeDir arg-0 ext-0))) -(define Directory-System-currentDir (lambda (ext-0) (let ((act-15 (Directory-System-prim_currentDir ext-0))) ((Directory-System-case--2295-572 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--2247-524 arg-0 act-15 (Prelude-C-61C-61_Eq__Int 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--2355-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--2307-540 arg-0 act-15 (Prelude-C-61C-61_Eq__Int act-15 (Prelude-fromInteger_Num__Int 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--1584-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--1586-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-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 )))))) @@ -2348,131 +2391,131 @@ (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--1584-614 arg-0 (Clock-System-isClockMandatory arg-0)))) -(define StringMap-Data-case--4038-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--3673-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--2467-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--2208-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--2208-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--2045-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--2208-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--2208-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--2045-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--1690-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--2045-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--2045-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--1819-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--1819-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--1690-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--1819-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--1819-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--1690-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--1583-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--1460-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--1583-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--1460-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--1460-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--3574-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--3574-2334-treeToListC-39 'erased 'erased 'erased (lambda (arg-5) (vector 1 arg-5 (StringMap-Data-n--3574-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--3574-2334-treeToListC-39 'erased 'erased 'erased (lambda (arg-5) (vector 1 arg-5 (StringMap-Data-n--3574-2334-treeToListC-39 'erased 'erased 'erased (lambda (arg-6) (vector 1 arg-6 (StringMap-Data-n--3574-2334-treeToListC-39 'erased 'erased 'erased arg-3 e-14))) e-12))) e-10))))))))) -(define StringMap-Data-n--4029-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--3574-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--1460-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--1460-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--1460-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--1690-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--1690-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--1690-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--2467-1385 'erased 'erased arg-3 arg-4 arg-2 (StringMap-Data-treeInsertC-39 'erased 'erased arg-2 arg-3 arg-4)))) +(define Clock-System-clockTime (lambda (arg-0) (Clock-System-with--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--4029-2807-inserted 'erased arg-3 arg-2 arg-1) arg-2))) +(define StringMap-Data-mergeWith (lambda (arg-0 arg-1 arg-2 arg-3) (StringMap-Data-insertFrom 'erased (StringMap-Data-n--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--3673-2452 'erased e-2 arg-2 e-3 arg-1 (StringMap-Data-treeInsert 'erased 'erased arg-1 arg-2 e-3))))))))) +(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--2132-694 (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--2127-684-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--2002-638 (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--2008-574 (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--2002-562-copyFrom 'erased arg-1 arg-2 arg-5 arg-4 (Prelude-C-45_Neg__Int arg-3 1)) eta-0))))))))) -(define IOArray-Data-case--1958-536 (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--1899-484 (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--2127-684-iter (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (IOArray-Data-case--2132-694 'erased arg-1 arg-4 arg-3 arg-2 (Prelude-C-62C-61_Ord__Int arg-2 arg-3)))) -(define IOArray-Data-n--2002-562-copyFrom (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (IOArray-Data-case--2008-574 '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--1899-484 '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--2127-684-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--1958-536 '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-case--2192-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--2187-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--2062-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--2068-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--2062-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--2018-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--1959-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--2187-700-iter (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (IOArray-Data-case--2192-710 'erased arg-1 arg-4 arg-3 arg-2 (Prelude-C-62C-61_Ord__Int arg-2 arg-3)))) +(define IOArray-Data-n--2062-578-copyFrom (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (IOArray-Data-case--2068-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--1959-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--2187-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--2018-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--2002-638 '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--2002-562-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-newArrayCopy (lambda (arg-0 arg-1 arg-2) (let ((newsizeC-39 (IOArray-Data-case--2062-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--2062-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--7890-2960 (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-1237) (lambda (arg-1239) (lambda (eta-1) (Binary-Utils-toBuf_TTC__Int arg-1237 arg-1239 eta-1)))) (lambda (arg-1240) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Int arg-1240 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-1237) (lambda (arg-1239) (lambda (eta-1) (Binary-Utils-toBuf_TTC__Int arg-1237 arg-1239 eta-1)))) (lambda (arg-1240) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Int arg-1240 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--7888-2914 (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-1237) (lambda (arg-1239) (lambda (eta-1) (Binary-Utils-toBuf_TTC__Int arg-1237 arg-1239 eta-1)))) (lambda (arg-1240) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Int arg-1240 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-1237) (lambda (arg-1239) (lambda (eta-1) (Binary-Utils-toBuf_TTC__Int arg-1237 arg-1239 eta-1)))) (lambda (arg-1240) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Int arg-1240 eta-1)))) arg-1 (Binary-Utils-toLimbs arg-0) eta-0))))))))))) -(define Binary-Utils-case--7825-2853 (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--7816-2835 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (vector 0 )) (else (Binary-Utils-case--7825-2853 arg-0 (Prelude-C-61C-61_Eq__Integer arg-0 (Prelude-negate_Neg__Integer (Prelude-fromInteger_Num__Integer 1))))))))) -(define Binary-Utils-case--7366-2436 (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--7072-2172 (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--7070-2109 (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--6988-2028 (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--6908-1943 (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--6808-1927 (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--6806-1857 (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--6662-1777 (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--6660-1714 (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--6519-1630 (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--6517-1567 (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--6464-1507 (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--6397-1443 (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--6279-1380 (lambda (arg-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--6279-1343 (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--6239-1298 (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--6216-1275 (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--6138-1200 (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--6047-1119 (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--7683-2717-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--7683-2717-writeAll 'erased arg-1 arg-2 arg-3 arg-4 'erased e-4) eta-0))))))))))))) -(define Binary-Utils-n--7685-2744-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--7685-2744-readElems 'erased arg-1 arg-2 arg-3 'erased (vector 1 e-5 arg-5) e-0) eta-0))))))))))))) -(define Binary-Utils-n--7603-2666-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--7603-2666-readElems 'erased arg-1 arg-2 (vector 1 e-5 arg-3) e-0) eta-0))))))))))))) -(define Binary-Utils-n--7601-2630-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--7601-2630-length_aux 'erased arg-1 arg-2 arg-3 e-3 (Prelude-C-43_Num__Int 1 arg-5)))))))) -(define Binary-Utils-n--7601-2631-TailRec_length (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (Binary-Utils-n--7601-2630-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--6660-1714 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-case--7967-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--7965-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--7902-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--7893-2851 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (vector 0 )) (else (Binary-Utils-case--7902-2869 arg-0 (Prelude-C-61C-61_Eq__Integer arg-0 (Prelude-negate_Neg__Integer (Prelude-fromInteger_Num__Integer 1))))))))) +(define Binary-Utils-case--7443-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--7149-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--7147-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--7065-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--6985-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--6885-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--6883-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--6739-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--6737-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--6596-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--6594-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--6541-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--6474-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--6356-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--6356-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--6316-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--6293-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--6215-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--6124-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--7760-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--7760-2733-writeAll 'erased arg-1 arg-2 arg-3 arg-4 'erased e-4) eta-0))))))))))))) +(define Binary-Utils-n--7762-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--7762-2760-readElems 'erased arg-1 arg-2 arg-3 'erased (vector 1 e-5 arg-5) e-0) eta-0))))))))))))) +(define Binary-Utils-n--7680-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--7680-2682-readElems 'erased arg-1 arg-2 (vector 1 e-5 arg-3) e-0) eta-0))))))))))))) +(define Binary-Utils-n--7678-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--7678-2646-length_aux 'erased arg-1 arg-2 arg-3 e-3 (Prelude-C-43_Num__Int 1 arg-5)))))))) +(define Binary-Utils-n--7678-2647-TailRec_length (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (Binary-Utils-n--7678-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--6737-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--7888-2914 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--6517-1567 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--7070-2109 arg-1 arg-0 e-5 (Prelude-C-62C-61_Ord__Int (Binary-Utils-avail e-5) 8)) ext-0)))))))) +(define Binary-Utils-toBuf_TTC__Integer (lambda (arg-0 arg-1) (Binary-Utils-case--7965-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--6594-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--7147-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--6806-1857 arg-1 arg-0 len e-5 e-6 (Prelude-C-62C-61_Ord__Int (Binary-Utils-avail e-6) len)) eta-0))))))))))))))) +(define Binary-Utils-toBuf_TTC__Binary (lambda (arg-0 arg-1) (let ((len (let ((sc0 arg-1)) (let ((e-3 (vector-ref sc0 4))) e-3)))) (lambda (eta-0) (let ((act-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--6883-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--7601-2631-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--7683-2717-writeAll 'erased arg-1 arg-2 arg-4 arg-3 'erased arg-4))) +(define Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-15 (Binary-Utils-toBuf_TTC__Int arg-2 (Binary-Utils-n--7678-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--7760-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--6662-1777 arg-0 e-5 e-6 (Prelude-C-62C-61_Ord__Int (Binary-Utils-toRead e-6) e-5)) ext-0))))))))))))) +(define Binary-Utils-fromBuf_TTC__String (lambda (arg-0 ext-0) (let ((act-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--6739-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-1237) (lambda (arg-1239) (lambda (eta-0) (Binary-Utils-toBuf_TTC__Int arg-1237 arg-1239 eta-0)))) (lambda (arg-1240) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Int arg-1240 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-1237) (lambda (arg-1239) (lambda (eta-0) (Binary-Utils-toBuf_TTC__Int arg-1237 arg-1239 eta-0)))) (lambda (arg-1240) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Int arg-1240 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--6519-1630 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--7072-2172 arg-0 e-5 (Prelude-C-62C-61_Ord__Int (Binary-Utils-toRead e-5) 8)) ext-0)))))))) +(define Binary-Utils-fromBuf_TTC__Integer (lambda (arg-0 ext-0) (let ((act-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--6596-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--7149-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--6808-1927 arg-0 e-5 e-6 (Prelude-C-62C-61_Ord__Int (Binary-Utils-toRead e-6) e-5)) ext-0))))))))))))) +(define Binary-Utils-fromBuf_TTC__Binary (lambda (arg-0 ext-0) (let ((act-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--6885-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--7603-2666-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--7685-2744-readElems 'erased arg-2 arg-3 arg-1 'erased (vector 0 ) arg-1))) +(define Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-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--7680-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--7762-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-1237) (lambda (arg-1239) (Binary-Utils-toBuf_TTC__String arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__String arg-1240 eta-0)))))) -(define Binary-Utils-__Impl_TTC_Nat (lambda () (vector 0 (lambda (arg-1237) (lambda (arg-1239) (Binary-Utils-toBuf_TTC__Nat arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Nat arg-1240 eta-0)))))) -(define Binary-Utils-__Impl_TTC_Integer (lambda () (vector 0 (lambda (arg-1237) (lambda (arg-1239) (Binary-Utils-toBuf_TTC__Integer arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Integer arg-1240 eta-0)))))) -(define Binary-Utils-__Impl_TTC_Int (lambda () (vector 0 (lambda (arg-1237) (lambda (arg-1239) (lambda (eta-0) (Binary-Utils-toBuf_TTC__Int arg-1237 arg-1239 eta-0)))) (lambda (arg-1240) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Int arg-1240 eta-0)))))) -(define Binary-Utils-__Impl_TTC_Double (lambda () (vector 0 (lambda (arg-1237) (lambda (arg-1239) (lambda (eta-0) (Binary-Utils-toBuf_TTC__Double arg-1237 arg-1239 eta-0)))) (lambda (arg-1240) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Double arg-1240 eta-0)))))) -(define Binary-Utils-__Impl_TTC_Char (lambda () (vector 0 (lambda (arg-1237) (lambda (arg-1239) (lambda (eta-0) (Binary-Utils-toBuf_TTC__Char arg-1237 arg-1239 eta-0)))) (lambda (arg-1240) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Char arg-1240 eta-0)))))) -(define Binary-Utils-__Impl_TTC_Bool (lambda () (vector 0 (lambda (arg-1237) (lambda (arg-1239) (Binary-Utils-toBuf_TTC__Bool arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Bool arg-1240 eta-0)))))) -(define Binary-Utils-__Impl_TTC_Binary (lambda () (vector 0 (lambda (arg-1237) (lambda (arg-1239) (Binary-Utils-toBuf_TTC__Binary arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Binary arg-1240 eta-0)))))) -(define Binary-Utils-__Impl_TTC_C-40C-124UnitC-44MkUnitC-124C-41 (lambda () (vector 0 (lambda (arg-1237) (lambda (arg-1239) (Binary-Utils-toBuf_TTC__C-40C-124UnitC-44MkUnitC-124C-41 arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124UnitC-44MkUnitC-124C-41 arg-1240 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-1237) (lambda (arg-1239) (Binary-Utils-toBuf_TTC__C-40C-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-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-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-1240 eta-0)))))) -(define Binary-Utils-__Impl_TTC_C-40MaybeC-32C-36aC-41 (lambda (arg-0 arg-1) (vector 0 (lambda (arg-1237) (lambda (arg-1239) (Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased arg-1 arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased arg-1 arg-1240 eta-0)))))) -(define Binary-Utils-__Impl_TTC_C-40ListC-32C-36aC-41 (lambda (arg-0 arg-1) (vector 0 (lambda (arg-1237) (lambda (arg-1239) (lambda (eta-0) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased arg-1 arg-1237 arg-1239 eta-0)))) (lambda (arg-1240) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased arg-1 arg-1240 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-1237) (lambda (arg-1239) (Binary-Utils-toBuf_TTC__C-40C-40VectC-32C-36nC-41C-32C-36aC-41 'erased arg-1 arg-2 arg-1237 arg-1239))) (lambda (arg-1240) (Binary-Utils-fromBuf_TTC__C-40C-40VectC-32C-36nC-41C-32C-36aC-41 'erased arg-1 arg-2 arg-1240))))) -(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-1237) (lambda (arg-1239) (Binary-Utils-toBuf_TTC__C-40C-40DPairC-32C-36aC-41C-32C-36pC-41 'erased 'erased arg-2 arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-40DPairC-32C-36aC-41C-32C-36pC-41 'erased 'erased arg-2 arg-1240 eta-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--7816-2835 arg-0 (Prelude-C-61C-61_Eq__Integer arg-0 (Prelude-fromInteger_Num__Integer 0))))) +(define Binary-Utils-toLimbs (lambda (arg-0) (Binary-Utils-case--7893-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--6397-1443 arg-1 arg-0 e-5 (Prelude-C-62C-61_Ord__Int (Binary-Utils-avail e-5) 1)) ext-0)))))))) +(define Binary-Utils-tag (lambda (arg-0 arg-1 ext-0) (let ((act-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--6474-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))) @@ -2480,26 +2523,26 @@ (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--6464-1507 arg-0 e-5 (Prelude-C-62C-61_Ord__Int (Binary-Utils-toRead e-5) 1)) ext-0)))))))) +(define Binary-Utils-getTag (lambda (arg-0 ext-0) (let ((act-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--6541-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--6279-1343 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-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--6356-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--2370-656 (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--2359-636 (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--2370-656 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--2306-593 (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 2 )) eta-0))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (vector 1 (vector 0 )) eta-0))))))) -(define Buffer-Data-case--2264-549 (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 (vector 1 )) eta-0))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (vector 1 arg-1) eta-0))))))) -(define Buffer-Data-writeBufferToFile (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-15 (Buffer-Data-prim__writeBuffer arg-0 arg-1 arg-2 ext-0))) ((Buffer-Data-case--2306-593 arg-2 arg-1 arg-0 act-15 (Prelude-C-47C-61_Eq__Int act-15 (Prelude-fromInteger_Num__Int 0))) ext-0)))) +(define Buffer-Data-case--2430-672 (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--2419-652 (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--2430-672 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--2366-609 (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 2 )) eta-0))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (vector 1 (vector 0 )) eta-0))))))) +(define Buffer-Data-case--2324-565 (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 (vector 1 )) eta-0))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (vector 1 arg-1) eta-0))))))) +(define Buffer-Data-writeBufferToFile (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-15 (Buffer-Data-prim__writeBuffer arg-0 arg-1 arg-2 ext-0))) ((Buffer-Data-case--2366-609 arg-2 arg-1 arg-0 act-15 (Prelude-C-47C-61_Eq__Int act-15 (Prelude-fromInteger_Num__Int 0))) ext-0)))) (define Buffer-Data-setString (lambda (arg-0 arg-1 arg-2 ext-0) (Buffer-Data-prim__setString arg-0 arg-1 arg-2 ext-0))) (define Buffer-Data-setInt (lambda (arg-0 arg-1 arg-2 ext-0) (Buffer-Data-prim__setInt arg-0 arg-1 arg-2 ext-0))) (define Buffer-Data-setDouble (lambda (arg-0 arg-1 arg-2 ext-0) (Buffer-Data-prim__setDouble arg-0 arg-1 arg-2 ext-0))) (define Buffer-Data-setByte (lambda (arg-0 arg-1 arg-2 ext-0) (Buffer-Data-prim__setByte arg-0 arg-1 arg-2 ext-0))) -(define Buffer-Data-resizeBuffer (lambda (arg-0 arg-1 ext-0) (let ((act-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--2370-656 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-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--2430-672 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))) @@ -2507,23 +2550,23 @@ (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 (Buffer-Data-prim__readBufferFromFile arg-0 ext-0))) ((Buffer-Data-case--2264-549 arg-0 act-15 (Prelude-C-47C-61_Eq__Int (Buffer-Data-prim__isBuffer act-15) (Prelude-fromInteger_Num__Int 0))) ext-0)))) +(define Buffer-Data-createBufferFromFile (lambda (arg-0 ext-0) (let ((act-15 (Buffer-Data-prim__readBufferFromFile arg-0 ext-0))) ((Buffer-Data-case--2324-565 arg-0 act-15 (Prelude-C-47C-61_Eq__Int (Buffer-Data-prim__isBuffer act-15) (Prelude-fromInteger_Num__Int 0))) 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--7812-1698 (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--7790-1678 (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--7768-1655 (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--7746-1632 (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--7723-1608 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 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--7696-1586 (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--7676-1565 (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--7637-1520 (lambda (arg-0) (let ((sc0 arg-0)) (cond ((equal? sc0 0) #\;) (else #\:))))) +(define Options-Core-case--7893-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--7871-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--7849-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--7827-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--7804-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--7777-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--7757-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--7718-1525 (lambda (arg-0) (let ((sc0 arg-0)) (cond ((equal? sc0 0) #\;) (else #\:))))) +(define Options-Core-case--7709-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)))) @@ -2536,12 +2579,12 @@ (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 () #\/)) +(define Options-Core-sep (lambda () (Options-Core-case--7709-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--7637-1520 (Options-Core-isWindows)))) +(define Options-Core-pathSep (lambda () (Options-Core-case--7718-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)))) @@ -2583,8 +2626,9 @@ (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--4178-1838 (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--4167-1826-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--4167-1826-hashChars (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (Hash-Core-case--4178-1838 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-case--4241-1856 (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--4230-1844-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--4230-1844-hashChars (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (Hash-Core-case--4241-1856 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))) @@ -2593,32 +2637,33 @@ (define Hash-Core-hash_Hashable__C-40PiInfoC-32C-36tC-41 (lambda (arg-0 arg-1 ext-0) (Hash-Core-hashWithSalt_Hashable__C-40PiInfoC-32C-36tC-41 'erased arg-1 (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--4167-1826-hashChars arg-1 arg-0 arg-0 0 (Prelude-cast_Cast__Nat_Int (Prelude-length arg-1)) arg-1))) +(define Hash-Core-hashWithSalt_Hashable__String (lambda (arg-0 arg-1) (Hash-Core-n--4230-1844-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))) ((9) (let ((e-2 (vector-ref sc0 1))) (Hash-Core-hashWithSalt_Hashable__Int arg-0 e-2)))(else (Hash-Core-hashWithSalt_Hashable__String arg-0 (Name-Core-show_Show__Name arg-1))))))) +(define Hash-Core-hashWithSalt_Hashable__Name (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((2) (let ((e-0 (vector-ref sc0 1))) (Hash-Core-hashWithSalt_Hashable__String arg-0 e-0))) ((4) (let ((e-3 (vector-ref sc0 2))) (Hash-Core-hashWithSalt_Hashable__Name arg-0 e-3))) ((0) (let ((e-4 (vector-ref sc0 1))) (let ((e-5 (vector-ref sc0 2))) (Hash-Core-hashWithSalt_Hashable__Name (Hash-Core-hashWithSalt_Hashable__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1587) (Hash-Core-hash_Hashable__String arg-1587)) (lambda (arg-1588) (lambda (arg-1589) (Hash-Core-hashWithSalt_Hashable__String arg-1588 arg-1589)))) 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-1569) (Hash-Core-hash_Hashable__C-40TermC-32C-36varsC-41 'erased arg-1569)) (lambda (arg-1570) (lambda (arg-1571) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased arg-1570 arg-1571)))) (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-1569) (Hash-Core-hash_Hashable__C-40TermC-32C-36varsC-41 'erased arg-1569)) (lambda (arg-1570) (lambda (arg-1571) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased arg-1570 arg-1571)))) (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-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-1587) (Hash-Core-hash_Hashable__C-40TermC-32C-36varsC-41 'erased arg-1587)) (lambda (arg-1588) (lambda (arg-1589) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased arg-1588 arg-1589)))) (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-1587) (Hash-Core-hash_Hashable__C-40TermC-32C-36varsC-41 'erased arg-1587)) (lambda (arg-1588) (lambda (arg-1589) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased arg-1588 arg-1589)))) (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_Nat (lambda () (vector 0 (lambda (arg-1569) (Hash-Core-hash_Hashable__Nat arg-1569)) (lambda (arg-1570) (lambda (arg-1571) (Hash-Core-hashWithSalt_Hashable__Nat arg-1570 arg-1571)))))) -(define Hash-Core-__Impl_Hashable_Name (lambda () (vector 0 (lambda (arg-1569) (Hash-Core-hash_Hashable__Name arg-1569)) (lambda (arg-1570) (lambda (arg-1571) (Hash-Core-hashWithSalt_Hashable__Name arg-1570 arg-1571)))))) -(define Hash-Core-__Impl_Hashable_Integer (lambda () (vector 0 (lambda (arg-1569) (Hash-Core-hash_Hashable__Integer arg-1569)) (lambda (arg-1570) (lambda (arg-1571) (Hash-Core-hashWithSalt_Hashable__Integer arg-1570 arg-1571)))))) -(define Hash-Core-__Impl_Hashable_Int (lambda () (vector 0 (lambda (arg-1569) (Hash-Core-hash_Hashable__Int arg-1569)) (lambda (arg-1570) (lambda (arg-1571) (Hash-Core-hashWithSalt_Hashable__Int arg-1570 arg-1571)))))) -(define Hash-Core-__Impl_Hashable_C-40TermC-32C-36varsC-41 (lambda (arg-0) (vector 0 (lambda (arg-1569) (Hash-Core-hash_Hashable__C-40TermC-32C-36varsC-41 'erased arg-1569)) (lambda (arg-1570) (lambda (arg-1571) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased arg-1570 arg-1571)))))) -(define Hash-Core-__Impl_Hashable_C-40PiInfoC-32C-36tC-41 (lambda (arg-0 arg-1) (vector 0 (lambda (arg-1569) (Hash-Core-hash_Hashable__C-40PiInfoC-32C-36tC-41 'erased arg-1 arg-1569)) (lambda (arg-1570) (lambda (arg-1571) (Hash-Core-hashWithSalt_Hashable__C-40PiInfoC-32C-36tC-41 'erased arg-1 arg-1570 arg-1571)))))) -(define Hash-Core-__Impl_Hashable_C-40ListC-32C-36aC-41 (lambda (arg-0 arg-1) (vector 0 (lambda (arg-1569) (Hash-Core-hash_Hashable__C-40ListC-32C-36aC-41 'erased arg-1 arg-1569)) (lambda (arg-1570) (lambda (arg-1571) (Hash-Core-hashWithSalt_Hashable__C-40ListC-32C-36aC-41 'erased arg-1 arg-1570 arg-1571)))))) -(define Hash-Core-__Impl_Hashable_C-40BinderC-32C-36tyC-41 (lambda (arg-0 arg-1) (vector 0 (lambda (arg-1569) (Hash-Core-hash_Hashable__C-40BinderC-32C-36tyC-41 'erased arg-1 arg-1569)) (lambda (arg-1570) (lambda (arg-1571) (Hash-Core-hashWithSalt_Hashable__C-40BinderC-32C-36tyC-41 'erased arg-1 arg-1570 arg-1571)))))) +(define Hash-Core-__Impl_Hashable_String (lambda () (vector 0 (lambda (arg-1587) (Hash-Core-hash_Hashable__String arg-1587)) (lambda (arg-1588) (lambda (arg-1589) (Hash-Core-hashWithSalt_Hashable__String arg-1588 arg-1589)))))) +(define Hash-Core-__Impl_Hashable_Nat (lambda () (vector 0 (lambda (arg-1587) (Hash-Core-hash_Hashable__Nat arg-1587)) (lambda (arg-1588) (lambda (arg-1589) (Hash-Core-hashWithSalt_Hashable__Nat arg-1588 arg-1589)))))) +(define Hash-Core-__Impl_Hashable_Name (lambda () (vector 0 (lambda (arg-1587) (Hash-Core-hash_Hashable__Name arg-1587)) (lambda (arg-1588) (lambda (arg-1589) (Hash-Core-hashWithSalt_Hashable__Name arg-1588 arg-1589)))))) +(define Hash-Core-__Impl_Hashable_Integer (lambda () (vector 0 (lambda (arg-1587) (Hash-Core-hash_Hashable__Integer arg-1587)) (lambda (arg-1588) (lambda (arg-1589) (Hash-Core-hashWithSalt_Hashable__Integer arg-1588 arg-1589)))))) +(define Hash-Core-__Impl_Hashable_Int (lambda () (vector 0 (lambda (arg-1587) (Hash-Core-hash_Hashable__Int arg-1587)) (lambda (arg-1588) (lambda (arg-1589) (Hash-Core-hashWithSalt_Hashable__Int arg-1588 arg-1589)))))) +(define Hash-Core-__Impl_Hashable_C-40TermC-32C-36varsC-41 (lambda (arg-0) (vector 0 (lambda (arg-1587) (Hash-Core-hash_Hashable__C-40TermC-32C-36varsC-41 'erased arg-1587)) (lambda (arg-1588) (lambda (arg-1589) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased arg-1588 arg-1589)))))) +(define Hash-Core-__Impl_Hashable_C-40PiInfoC-32C-36tC-41 (lambda (arg-0 arg-1) (vector 0 (lambda (arg-1587) (Hash-Core-hash_Hashable__C-40PiInfoC-32C-36tC-41 'erased arg-1 arg-1587)) (lambda (arg-1588) (lambda (arg-1589) (Hash-Core-hashWithSalt_Hashable__C-40PiInfoC-32C-36tC-41 'erased arg-1 arg-1588 arg-1589)))))) +(define Hash-Core-__Impl_Hashable_C-40ListC-32C-36aC-41 (lambda (arg-0 arg-1) (vector 0 (lambda (arg-1587) (Hash-Core-hash_Hashable__C-40ListC-32C-36aC-41 'erased arg-1 arg-1587)) (lambda (arg-1588) (lambda (arg-1589) (Hash-Core-hashWithSalt_Hashable__C-40ListC-32C-36aC-41 'erased arg-1 arg-1588 arg-1589)))))) +(define Hash-Core-__Impl_Hashable_C-40BinderC-32C-36tyC-41 (lambda (arg-0 arg-1) (vector 0 (lambda (arg-1587) (Hash-Core-hash_Hashable__C-40BinderC-32C-36tyC-41 'erased arg-1 arg-1587)) (lambda (arg-1588) (lambda (arg-1589) (Hash-Core-hashWithSalt_Hashable__C-40BinderC-32C-36tyC-41 'erased arg-1 arg-1588 arg-1589)))))) (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--4696-1421 (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--4568-1344 (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--4125-882 (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--4454-1171-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--4454-1170-getAltSets 'erased arg-1 arg-2 arg-3 'erased arg-5 e-5))) ((1) (let ((e-7 (vector-ref sc0 1))) (((arg-3 'erased) arg-5) e-7))) ((2) arg-5) (else arg-5))))) -(define CaseTree-Core-n--4454-1170-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--4454-1170-getAltSets 'erased arg-1 arg-2 arg-3 'erased (CaseTree-Core-n--4454-1169-getAltSet 'erased arg-1 arg-2 arg-3 'erased arg-5 e-2) e-3)))))))) -(define CaseTree-Core-n--4454-1169-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--4454-1171-getSet 'erased arg-1 arg-2 arg-3 'erased arg-5 e-4))) ((1) (let ((e-8 (vector-ref sc0 3))) (CaseTree-Core-n--4454-1171-getSet 'erased arg-1 arg-2 arg-3 'erased arg-5 e-8))) ((2) (let ((e-11 (vector-ref sc0 2))) (CaseTree-Core-n--4454-1171-getSet 'erased arg-1 arg-2 arg-3 'erased arg-5 e-11))) (else (let ((e-13 (vector-ref sc0 1))) (CaseTree-Core-n--4454-1171-getSet 'erased arg-1 arg-2 arg-3 'erased arg-5 e-13))))))) +(define CaseTree-Core-case--4759-1421 (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--4631-1344 (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--4188-882 (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--4517-1171-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--4517-1170-getAltSets 'erased arg-1 arg-2 arg-3 'erased arg-5 e-5))) ((1) (let ((e-7 (vector-ref sc0 1))) (((arg-3 'erased) arg-5) e-7))) ((2) arg-5) (else arg-5))))) +(define CaseTree-Core-n--4517-1170-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--4517-1170-getAltSets 'erased arg-1 arg-2 arg-3 'erased (CaseTree-Core-n--4517-1169-getAltSet 'erased arg-1 arg-2 arg-3 'erased arg-5 e-2) e-3)))))))) +(define CaseTree-Core-n--4517-1169-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--4517-1171-getSet 'erased arg-1 arg-2 arg-3 'erased arg-5 e-4))) ((1) (let ((e-8 (vector-ref sc0 3))) (CaseTree-Core-n--4517-1171-getSet 'erased arg-1 arg-2 arg-3 'erased arg-5 e-8))) ((2) (let ((e-11 (vector-ref sc0 2))) (CaseTree-Core-n--4517-1171-getSet 'erased arg-1 arg-2 arg-3 'erased arg-5 e-11))) (else (let ((e-13 (vector-ref sc0 1))) (CaseTree-Core-n--4517-1171-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 "" (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) ")")))))))) @@ -2631,24 +2676,24 @@ (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--4696-1421 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--4568-1344 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--4125-882 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))) (vector 1 (TT-Core-insertNames arg-0 arg-1 arg-2 e-7)))) ((2) (let ((e-9 (vector-ref sc0 1))) (vector 2 e-9))) (else (vector 3 )))))) +(define CaseTree-Core-mkTerm (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 3))) (CaseTree-Core-mkTerm arg-0 e-2))) ((1) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (let ((e-5 (vector-ref sc0 3))) (let ((e-6 (vector-ref sc0 4))) (let ((e-7 (vector-ref sc0 5))) (TT-Core-apply 'erased e-3 (vector 1 e-3 (vector 2 e-5 e-6) e-4) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (CaseTree-Core-mkTerm arg-0 eta-0)) e-7)))))))) ((2) (let ((e-8 (vector-ref sc0 1))) (let ((e-9 (vector-ref sc0 2))) (let ((e-10 (vector-ref sc0 3))) (let ((e-11 (vector-ref sc0 4))) (TT-Core-apply 'erased e-8 (vector 1 e-8 (vector 3 0 e-10) e-9) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (CaseTree-Core-mkTerm arg-0 eta-0)) e-11))))))) ((3) (let ((e-12 (vector-ref sc0 1))) (let ((e-13 (vector-ref sc0 2))) (vector 9 e-12 e-13)))) ((4) (let ((e-14 (vector-ref sc0 1))) (let ((e-15 (vector-ref sc0 2))) (let ((e-16 (vector-ref sc0 3))) (let ((e-17 (vector-ref sc0 4))) (vector 3 e-14 e-15 (vector 2 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 1 ) (CaseTree-Core-mkTerm arg-0 e-16)) (CaseTree-Core-mkTerm (vector 1 e-15 arg-0) e-17))))))) ((5) (let ((e-18 (vector-ref sc0 1))) (let ((e-19 (vector-ref sc0 2))) (let ((e-20 (vector-ref sc0 3))) (let ((e-21 (vector-ref sc0 4))) (vector 7 e-18 e-19 (CaseTree-Core-mkTerm arg-0 e-20) (CaseTree-Core-mkTerm arg-0 e-21))))))) ((6) (let ((e-22 (vector-ref sc0 1))) (let ((e-23 (vector-ref sc0 2))) (CaseTree-Core-case--4759-1421 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--4631-1344 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--4188-882 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))) (vector 1 (TT-Core-insertNames arg-0 arg-1 arg-2 e-7)))) ((2) (let ((e-9 (vector-ref sc0 1))) (vector 2 e-9))) (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--4454-1171-getSet 'erased arg-3 arg-2 arg-1 'erased arg-2 arg-3))) +(define CaseTree-Core-getNames (lambda (arg-0 arg-1 arg-2 arg-3) (CaseTree-Core-n--4517-1171-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-1263) (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-16 (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-16))))))))(else 1)))))) ((1) (let ((e-7 (vector-ref sc0 1))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((1) (let ((e-18 (vector-ref sc1 1))) (TT-Core-eqTerm 'erased 'erased e-7 e-18)))(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-1253) (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--6509-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--6360-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--6328-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--6360-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--5419-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--5043-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--4674-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--4102-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--4040-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-case--6572-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--6423-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--6391-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--6423-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--5482-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--5106-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--4737-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--4165-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--4103-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)))))))) @@ -2669,26 +2714,26 @@ (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--4102-730 'erased arg-2 arg-1 (CompileExpr-Core-elem 'erased arg-1 arg-2)))) +(define CompileExpr-Core-uniqueName (lambda (arg-0 arg-1 arg-2) (CompileExpr-Core-case--4165-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--4674-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-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--4737-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--5419-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--6328-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-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--5482-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--6391-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--6509-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-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--6572-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--5043-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-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--5106-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)))))) @@ -2700,91 +2745,92 @@ (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--4040-685 'erased 'erased e-3 e-2 arg-1 (Name-Core-C-61C-61_Eq__Name arg-1 e-2))))))))) +(define CompileExpr-Core-elem (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) 1) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (CompileExpr-Core-case--4103-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--18215-12329 (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--18215-12093-repSub arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-1)))))) -(define Normalise-Core-case--18082-12057 (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--18082-11970-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--17986-11890 (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-4481) (lambda (arg-4482) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4481 arg-4482))) (lambda (arg-4483) (lambda (arg-4484) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4483 arg-4484)))) 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--17894-11804 (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-4481) (lambda (arg-4482) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4481 arg-4482))) (lambda (arg-4483) (lambda (arg-4484) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4483 arg-4484)))) 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--17802-11718 (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-4481) (lambda (arg-4482) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4481 arg-4482))) (lambda (arg-4483) (lambda (arg-4484) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4483 arg-4484)))) 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--17706-11630 (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-4481) (lambda (arg-4482) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4481 arg-4482))) (lambda (arg-4483) (lambda (arg-4484) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4483 arg-4484)))) 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--17314-11215 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (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--16486-11179 (lambda (arg-0 arg-1 arg-2 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--17167-11091 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (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--16486-11054 (lambda (arg-0 arg-1 arg-2 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--16486-10988 (lambda (arg-0 arg-1 arg-2 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--16486-10891 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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--16486-10809 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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--16486-10746 (lambda (arg-0 arg-1 arg-2 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--16486-10509 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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--14137-10377 (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--14137-10317 (lambda (arg-0 arg-1 arg-2 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--14137-10253 (lambda (arg-0 arg-1 arg-2 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--14133-10171 (lambda (arg-0 arg-1 arg-2 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--15260-9400 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 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--15147-9320 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 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--15260-9400 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 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--14130-8756-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--15037-9242 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 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--15147-9320 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 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--14130-8756-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--14936-9166 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 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--15037-9242 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 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--14130-8755-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--14852-9094 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 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--14936-9166 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 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--14130-8755-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--14780-9034 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 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--14852-9094 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 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--14710-8985 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-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--14780-9034 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--14646-8935 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-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--14780-9034 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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--14587-8889 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-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--14780-9034 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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--14538-8845 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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-29 (vector-ref sc4 1))) e-29))) 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-31 (vector-ref sc6 1))) e-31))) 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--14780-9034 arg-0 arg-1 arg-2 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--14130-8807 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (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-28 (vector-ref sc2 1))) e-28)) 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-34 (vector-ref sc7 1))) e-34))) 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-36 (vector-ref sc9 1))) e-36))) 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--14780-9034 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--14244-8607 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-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--14204-8562 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-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--14244-8607 arg-0 arg-1 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--14127-8532 (lambda (arg-0 arg-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--14244-8607 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--12668-7831 (lambda (arg-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--12653-7374 (lambda (arg-0 arg-1 arg-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--12891-7329 (lambda (arg-0 arg-1 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--12910-7270 (lambda (arg-0 arg-1 arg-2 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--12891-7194 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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--12653-7178-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--12653-7136 (lambda (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--12732-7082 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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--12211-6575 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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--9693-6537 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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--12211-6575 arg-0 arg-1 arg-2 arg-3 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--12069-6450 (lambda (arg-0 arg-1 arg-2 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--9692-6418 (lambda (arg-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--9692-6384-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--12069-6450 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--9691-6352 (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--11743-6229 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-8)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-7 (vector-ref sc0 8))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 (vector 1 arg-11) e-7))))))))))) -(define Normalise-Core-case--9689-6127 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((0) (Normalise-Core-evalWithOpts arg-3 arg-2 arg-0 arg-8 arg-10 arg-9 (TT-Core-embed 'erased 'erased arg-4) arg-6)) (else (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (cond ((equal? sc1 0) arg-5)(else (let ((e-3 (- e-2 1))) (let ((optsC-39 (let ((sc1 arg-8)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-9 (vector-ref sc1 3))) (let ((e-8 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-5 (vector-ref sc1 6))) (let ((e-7 (vector-ref sc1 8))) (vector 0 e-0 e-1 e-9 e-8 e-4 e-5 (vector 1 e-3) e-7))))))))))) (Normalise-Core-evalWithOpts arg-3 arg-2 arg-0 optsC-39 arg-10 arg-9 (TT-Core-embed 'erased 'erased arg-4) arg-6)))))))))))) -(define Normalise-Core-case--9687-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--9687-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--9687-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--9687-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--9687-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--10684-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--10641-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--10601-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--9684-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--10308-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--9681-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--10308-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--9679-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--9679-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--9679-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--9614-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--9523-4189-set arg-0 arg-1 arg-1 arg-2 e-7))))))))))))) -(define Normalise-Core-case--9600-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--9523-4189-set arg-0 arg-1 arg-1 e-3 e-7))))))))))))) eta-0)))))))))))) -(define Normalise-Core-case--9523-4255 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (Normalise-Core-case--9600-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--9527-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--9523-4189-set arg-0 arg-1 arg-6 arg-5 arg-4))))))) -(define Normalise-Core-case--9409-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--9430-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--9409-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--12668-7775-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-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (vector 0 e-1 (Value-Core-withHoles) e-3 e-4 e-5))))))(else arg-11))))) -(define Normalise-Core-n--9690-6262-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--9690-6262-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--9523-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--9527-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--18215-12093-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--18215-12093-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--18215-12092-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--18215-12092-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--18215-12092-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--18215-12093-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--18215-12093-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--18215-12093-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--18215-12092-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--18215-12093-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--18215-12092-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--14130-8756-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--14130-8756-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--12653-7178-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--12891-7194 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--12653-7178-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--14130-8755-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--9692-6384-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--9692-6384-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--18082-11970-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--18082-11970-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--18082-11970-dumpEnv arg-0 arg-1 arg-2 arg-3 arg-4 e-3 e-9) eta-0))))))))))))))))))) -(define Normalise-Core-n--9687-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--9679-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--9679-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--9680-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--9680-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--12653-7053-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--12732-7082 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--12653-7053-addLater arg-0 'erased arg-2 'erased arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased arg-13 e-3 'erased))))))))) +(define Normalise-Core-case--18357-12370 (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--18357-12134-repSub arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-1)))))) +(define Normalise-Core-case--18224-12098 (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--18224-12011-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--18128-11931 (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-4524) (lambda (arg-4525) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4526 arg-4527)))) 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--18036-11845 (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-4524) (lambda (arg-4525) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4526 arg-4527)))) 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--17944-11759 (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-4524) (lambda (arg-4525) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4526 arg-4527)))) 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--17848-11671 (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-4524) (lambda (arg-4525) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4526 arg-4527)))) 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--17456-11256 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (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--16628-11220 (lambda (arg-0 arg-1 arg-2 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--17309-11132 (lambda (arg-0 arg-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--16628-11095 (lambda (arg-0 arg-1 arg-2 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--16628-11029 (lambda (arg-0 arg-1 arg-2 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--16628-10932 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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--16628-10850 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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--16628-10787 (lambda (arg-0 arg-1 arg-2 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--16628-10550 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (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--14279-10418 (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--14279-10358 (lambda (arg-0 arg-1 arg-2 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--14279-10294 (lambda (arg-0 arg-1 arg-2 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--14275-10212 (lambda (arg-0 arg-1 arg-2 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--15402-9441 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 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--15289-9361 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 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--15402-9441 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 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--14272-8797-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--15179-9283 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 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--15289-9361 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 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--14272-8797-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--15078-9207 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 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--15179-9283 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 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--14272-8796-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--14994-9135 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 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--15078-9207 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 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--14272-8796-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--14922-9075 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 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--14994-9135 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 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--14852-9026 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-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--14922-9075 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--14788-8976 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-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--14922-9075 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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--14729-8930 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19) (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--14922-9075 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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--14680-8886 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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-29 (vector-ref sc4 1))) e-29))) 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-31 (vector-ref sc6 1))) e-31))) 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--14922-9075 arg-0 arg-1 arg-2 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--14272-8848 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (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-28 (vector-ref sc2 1))) e-28)) 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-34 (vector-ref sc7 1))) e-34))) 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-36 (vector-ref sc9 1))) e-36))) 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--14922-9075 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--14386-8648 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 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--14346-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) (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--14386-8648 arg-0 arg-1 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--14269-8573 (lambda (arg-0 arg-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--14386-8648 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--12754-7872 (lambda (arg-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--13639-7797 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 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--12739-7374 (lambda (arg-0 arg-1 arg-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--12977-7329 (lambda (arg-0 arg-1 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--12996-7270 (lambda (arg-0 arg-1 arg-2 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--12977-7194 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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--12739-7178-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--12739-7136 (lambda (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--12818-7082 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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--12297-6575 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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--9779-6537 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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--12297-6575 arg-0 arg-1 arg-2 arg-3 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--12155-6450 (lambda (arg-0 arg-1 arg-2 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--9778-6418 (lambda (arg-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--9778-6384-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--12155-6450 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--9777-6352 (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--11829-6229 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-8)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-7 (vector-ref sc0 8))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 (vector 1 arg-11) e-7))))))))))) +(define Normalise-Core-case--9775-6127 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((0) (Normalise-Core-evalWithOpts arg-3 arg-2 arg-0 arg-8 arg-10 arg-9 (TT-Core-embed 'erased 'erased arg-4) arg-6)) (else (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (cond ((equal? sc1 0) arg-5)(else (let ((e-3 (- e-2 1))) (let ((optsC-39 (let ((sc1 arg-8)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-9 (vector-ref sc1 3))) (let ((e-8 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-5 (vector-ref sc1 6))) (let ((e-7 (vector-ref sc1 8))) (vector 0 e-0 e-1 e-9 e-8 e-4 e-5 (vector 1 e-3) e-7))))))))))) (Normalise-Core-evalWithOpts arg-3 arg-2 arg-0 optsC-39 arg-10 arg-9 (TT-Core-embed 'erased 'erased arg-4) arg-6)))))))))))) +(define Normalise-Core-case--9773-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--9773-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--9773-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--9773-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--9773-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--10770-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--10727-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--10687-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--9770-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--10394-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--9767-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--10394-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--9765-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--9765-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--9765-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--9700-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--9609-4189-set arg-0 arg-1 arg-1 arg-2 e-7))))))))))))) +(define Normalise-Core-case--9686-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--9609-4189-set arg-0 arg-1 arg-1 e-3 e-7))))))))))))) eta-0)))))))))))) +(define Normalise-Core-case--9609-4255 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (Normalise-Core-case--9686-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--9613-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--9609-4189-set arg-0 arg-1 arg-6 arg-5 arg-4))))))) +(define Normalise-Core-case--9495-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--9516-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--9495-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--12754-7775-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--9776-6262-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--9776-6262-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--9609-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--9613-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--18357-12134-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--18357-12134-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--18357-12133-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--18357-12133-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--18357-12133-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--18357-12134-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--18357-12134-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--18357-12134-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--18357-12133-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--18357-12134-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--18357-12133-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--14272-8797-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--14272-8797-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--12739-7178-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--12977-7194 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--12739-7178-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--14272-8796-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--9778-6384-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--9778-6384-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--18224-12011-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--18224-12011-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--18224-12011-dumpEnv arg-0 arg-1 arg-2 arg-3 arg-4 e-3 e-9) eta-0))))))))))))))))))) +(define Normalise-Core-n--9773-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--9765-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--9765-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--9766-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--9766-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--12739-7053-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--12818-7082 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--12739-7053-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)))))))) @@ -2795,26 +2841,26 @@ (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--16486-10809 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--16486-10891 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--16486-10988 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--16486-11054 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--16486-11179 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--16486-10809 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--16486-10891 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--16486-10988 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--16486-11054 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--16486-11179 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--16486-10809 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--16486-10891 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--16486-10988 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--16486-11054 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--16486-11179 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--16486-10809 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--16486-10891 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--16486-10988 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--16486-11054 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--16486-11179 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__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--16628-10850 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--16628-10932 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--16628-11029 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--16628-11095 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--16628-11220 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--16628-10850 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--16628-10932 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--16628-11029 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--16628-11095 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--16628-11220 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--16628-10850 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--16628-10932 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--16628-11029 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--16628-11095 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--16628-11220 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--16628-10850 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--16628-10932 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--16628-11029 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--16628-11095 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--16628-11220 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-6840) (lambda (arg-6841) (lambda (arg-6843) (lambda (eta-0) (Normalise-Core-quote_Quote__Term vars arg-6840 arg-6841 arg-6843 eta-0)))))) (lambda (vars) (lambda (arg-6845) (lambda (arg-6847) (lambda (arg-6848) (lambda (arg-6850) (lambda (eta-0) (Normalise-Core-quoteGen_Quote__Term vars arg-6845 arg-6847 arg-6848 arg-6850 eta-0)))))))))) (define Normalise-Core-__Impl_Quote_NF (lambda () (vector 0 (lambda (vars) (lambda (arg-6840) (lambda (arg-6841) (lambda (arg-6843) (lambda (eta-0) (Normalise-Core-quote_Quote__NF vars arg-6840 arg-6841 arg-6843 eta-0)))))) (lambda (vars) (lambda (arg-6845) (lambda (arg-6847) (lambda (arg-6848) (lambda (arg-6850) (Normalise-Core-quoteGen_Quote__NF vars arg-6845 arg-6847 arg-6848 arg-6850))))))))) (define Normalise-Core-__Impl_Quote_Closure (lambda () (vector 0 (lambda (vars) (lambda (arg-6840) (lambda (arg-6841) (lambda (arg-6843) (lambda (eta-0) (Normalise-Core-quote_Quote__Closure vars arg-6840 arg-6841 arg-6843 eta-0)))))) (lambda (vars) (lambda (arg-6845) (lambda (arg-6847) (lambda (arg-6848) (lambda (arg-6850) (lambda (eta-0) (Normalise-Core-quoteGen_Quote__Closure vars arg-6845 arg-6847 arg-6848 arg-6850 eta-0)))))))))) -(define Normalise-Core-__Impl_Convert_Term (lambda () (vector 0 (lambda (vars) (lambda (arg-8327) (lambda (arg-8328) (lambda (arg-8330) (lambda (arg-8331) (lambda (eta-0) (Normalise-Core-convert_Convert__Term vars arg-8327 arg-8328 arg-8330 arg-8331 eta-0))))))) (lambda (vars) (lambda (arg-8333) (lambda (arg-8335) (lambda (arg-8336) (lambda (arg-8338) (lambda (arg-8339) (lambda (eta-0) (Normalise-Core-convGen_Convert__Term vars arg-8333 arg-8335 arg-8336 arg-8338 arg-8339 eta-0))))))))))) -(define Normalise-Core-__Impl_Convert_NF (lambda () (vector 0 (lambda (vars) (lambda (arg-8327) (lambda (arg-8328) (lambda (arg-8330) (lambda (arg-8331) (lambda (eta-0) (Normalise-Core-convert_Convert__NF vars arg-8327 arg-8328 arg-8330 arg-8331 eta-0))))))) (lambda (vars) (lambda (arg-8333) (lambda (arg-8335) (lambda (arg-8336) (lambda (arg-8338) (lambda (arg-8339) (Normalise-Core-convGen_Convert__NF vars arg-8333 arg-8335 arg-8336 arg-8338 arg-8339)))))))))) -(define Normalise-Core-__Impl_Convert_Closure (lambda () (vector 0 (lambda (vars) (lambda (arg-8327) (lambda (arg-8328) (lambda (arg-8330) (lambda (arg-8331) (lambda (eta-0) (Normalise-Core-convert_Convert__Closure vars arg-8327 arg-8328 arg-8330 arg-8331 eta-0))))))) (lambda (vars) (lambda (arg-8333) (lambda (arg-8335) (lambda (arg-8336) (lambda (arg-8338) (lambda (arg-8339) (lambda (eta-0) (Normalise-Core-convGen_Convert__Closure vars arg-8333 arg-8335 arg-8336 arg-8338 arg-8339 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--9409-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--9409-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-__Impl_Convert_Term (lambda () (vector 0 (lambda (vars) (lambda (arg-8368) (lambda (arg-8369) (lambda (arg-8371) (lambda (arg-8372) (lambda (eta-0) (Normalise-Core-convert_Convert__Term vars arg-8368 arg-8369 arg-8371 arg-8372 eta-0))))))) (lambda (vars) (lambda (arg-8374) (lambda (arg-8376) (lambda (arg-8377) (lambda (arg-8379) (lambda (arg-8380) (lambda (eta-0) (Normalise-Core-convGen_Convert__Term vars arg-8374 arg-8376 arg-8377 arg-8379 arg-8380 eta-0))))))))))) +(define Normalise-Core-__Impl_Convert_NF (lambda () (vector 0 (lambda (vars) (lambda (arg-8368) (lambda (arg-8369) (lambda (arg-8371) (lambda (arg-8372) (lambda (eta-0) (Normalise-Core-convert_Convert__NF vars arg-8368 arg-8369 arg-8371 arg-8372 eta-0))))))) (lambda (vars) (lambda (arg-8374) (lambda (arg-8376) (lambda (arg-8377) (lambda (arg-8379) (lambda (arg-8380) (Normalise-Core-convGen_Convert__NF vars arg-8374 arg-8376 arg-8377 arg-8379 arg-8380)))))))))) +(define Normalise-Core-__Impl_Convert_Closure (lambda () (vector 0 (lambda (vars) (lambda (arg-8368) (lambda (arg-8369) (lambda (arg-8371) (lambda (arg-8372) (lambda (eta-0) (Normalise-Core-convert_Convert__Closure vars arg-8368 arg-8369 arg-8371 arg-8372 eta-0))))))) (lambda (vars) (lambda (arg-8374) (lambda (arg-8376) (lambda (arg-8377) (lambda (arg-8379) (lambda (arg-8380) (lambda (eta-0) (Normalise-Core-convGen_Convert__Closure vars arg-8374 arg-8376 arg-8377 arg-8379 arg-8380 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--9495-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--9495-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--9523-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--9687-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--9687-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--9687-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--9687-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--9687-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--9687-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--9687-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--9687-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--9687-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--9687-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--9687-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--9687-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--9687-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--9687-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--9687-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--9687-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--9687-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--9687-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--9687-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--9687-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--9687-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--9687-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--9687-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--9687-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--9687-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--9687-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--9687-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--9687-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--9687-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--9687-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--9687-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--9687-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--9687-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--9687-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--9687-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--9687-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--9687-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--9687-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--9687-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--9687-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-updateLimit (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((1) (Normalise-Core-case--9609-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--9773-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--9773-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--9773-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--9773-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--9773-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--9773-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--9773-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--9773-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--9773-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--9773-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--9773-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--9773-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--9773-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--9773-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--9773-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--9773-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--9773-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--9773-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--9773-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--9773-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--9773-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--9773-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--9773-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--9773-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--9773-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--9773-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--9773-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--9773-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--9773-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--9773-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--9773-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--9773-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--9773-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--9773-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--9773-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--9773-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--9773-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--9773-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--9773-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--9773-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--9690-6262-takeStk arg-0 arg-1 'erased arg-4 arg-3 'erased arg-3 arg-4 (vector 0 )))) +(define Normalise-Core-takeFromStack (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (Normalise-Core-n--9776-6262-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--18215-12093-repSub arg-0 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 arg-6) ext-0))))))))))) +(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--18357-12134-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--12653-7136 arg-1 'erased e-3 'erased e-2 arg-6 arg-0 arg-5 arg-4 arg-3 arg-2 (Normalise-Core-n--12653-7053-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--12653-7374 arg-0 arg-1 e-13 e-12 arg-6 arg-5 arg-4 arg-3 arg-2 (Normalise-Core-n--12653-7178-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--12668-7775-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--12668-7775-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-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--12739-7136 arg-1 'erased e-3 'erased e-2 arg-6 arg-0 arg-5 arg-4 arg-3 arg-2 (Normalise-Core-n--12739-7053-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--12739-7374 arg-0 arg-1 e-13 e-12 arg-6 arg-5 arg-4 arg-3 arg-2 (Normalise-Core-n--12739-7178-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--12754-7775-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--12754-7775-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)))))))))))))))))))))))) @@ -2828,11 +2874,11 @@ (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--17802-11718 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--17706-11630 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--17986-11890 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--17894-11804 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--18082-12057 arg-0 arg-4 arg-3 arg-2 arg-1 e-5 (Prelude-C-62C-61_Ord__Nat (let ((sc1 e-5)) (let ((e-4 (vector-ref sc1 5))) e-4)) arg-2)) ext-0)))))))) +(define Normalise-Core-logTermNF (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((act-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--17944-11759 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--17848-11671 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--18128-11931 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--18036-11845 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--18224-12098 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)))))) @@ -2846,27 +2892,27 @@ (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))) (Normalise-Core-case--9689-6127 arg-0 arg-1 arg-2 arg-3 e-7 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-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))) (Normalise-Core-case--9775-6127 arg-0 arg-1 arg-2 arg-3 e-7 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--9692-6418 arg-0 arg-1 arg-3 arg-6 arg-5 arg-2 arg-4 (Normalise-Core-takeFromStack arg-0 arg-1 'erased arg-2 arg-5)))) +(define Normalise-Core-evalOp (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (Normalise-Core-case--9778-6418 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--9681-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--9680-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--9693-6537 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-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--9767-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--9766-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--9779-6537 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--9679-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--9679-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-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))))))))))(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--9679-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-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--9765-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--9765-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--9765-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--14137-10253 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--14137-10377 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--14137-10317 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--14137-10377 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--14137-10377 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--14244-8607 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--14133-10171 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-33 (vector-ref sc5 1))) e-33)) 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-39 (vector-ref sc10 1))) e-39))) 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-41 (vector-ref sc12 1))) e-41))) 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--14780-9034 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-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--14279-10294 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--14279-10418 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--14279-10358 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--14279-10418 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--14279-10418 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--14386-8648 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--14275-10212 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-33 (vector-ref sc5 1))) e-33)) 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-39 (vector-ref sc10 1))) e-39))) 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-41 (vector-ref sc12 1))) e-41))) 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--14922-9075 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--9738-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-case--9824-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)))) @@ -2876,7 +2922,7 @@ (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--9738-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-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--9824-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 )))))) @@ -2927,51 +2973,51 @@ (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-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 (+ 1 0)) (vector 7 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 (+ 1 0)) (vector 8 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 (+ 1 0)) (vector 9 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 (+ 1 0)) (vector 10 t) (Primitives-Core-arithTy t) (TT-Core-notCovering))) (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-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--16602-11595 (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-1237) (lambda (arg-1239) (TTImp-TTImp-toBuf_TTC__FnOpt arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__FnOpt arg-1240 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-1237) (lambda (arg-1239) (TTImp-TTImp-toBuf_TTC__ImpClause arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__ImpClause arg-1240 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-1237) (lambda (arg-1239) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1238) (lambda (arg-1240) (TTC-Core-toBuf_TTC__Name arg-1238 arg-1240))) (lambda (arg-1240) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-1240 eta-1)))) (vector 0 (lambda (arg-1238) (lambda (arg-1240) (TTImp-TTImp-toBuf_TTC__RawImp arg-1238 arg-1240))) (lambda (arg-1240) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__RawImp arg-1240 eta-1))))) arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1237) (lambda (arg-1239) (TTC-Core-toBuf_TTC__Name arg-1237 arg-1239))) (lambda (arg-1241) (lambda (eta-2) (TTC-Core-fromBuf_TTC__Name arg-1241 eta-2)))) (vector 0 (lambda (arg-1237) (lambda (arg-1239) (TTImp-TTImp-toBuf_TTC__RawImp arg-1237 arg-1239))) (lambda (arg-1241) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__RawImp arg-1241 eta-2))))) arg-1240 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-1237) (lambda (arg-1239) (TTImp-TTImp-toBuf_TTC__ImpDecl arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__ImpDecl arg-1240 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-1237) (lambda (arg-1239) (Binary-Utils-toBuf_TTC__String arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-1240 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-1237) (lambda (arg-1239) (Binary-Utils-toBuf_TTC__String arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-1240 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-1237) (lambda (arg-1239) (TTImp-TTImp-toBuf_TTC__ImpDecl arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__ImpDecl arg-1240 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--16384-11217 (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 1 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 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))) ((equal? sc0 4) (lambda (eta-0) (let ((act-15 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1237) (lambda (arg-1239) (TTImp-TTImp-toBuf_TTC__RawImp arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__RawImp arg-1240 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 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 (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 6 (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 6 (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 7 )) 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-1237) (lambda (arg-1239) (TTC-Core-toBuf_TTC__Name arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-1240 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 8 e-5)) eta-0))))))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "FnOpt" eta-0))))))) -(define TTImp-TTImp-case--16025-10835 (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-1237) (lambda (arg-1239) (TTImp-TTImp-toBuf_TTC__DataOpt arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__DataOpt arg-1240 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-1237) (lambda (arg-1239) (TTImp-TTImp-toBuf_TTC__ImpTy arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__ImpTy arg-1240 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--15921-10695 (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-1237) (lambda (arg-1239) (TTC-Core-toBuf_TTC__Name arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-1240 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--15749-10565 (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-1237) (lambda (arg-1239) (TTImp-TTImp-toBuf_TTC__ImpClause arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__ImpClause arg-1240 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--15623-10381 (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--15547-10305 (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--15441-10217 (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-1237) (lambda (arg-1239) (Binary-Utils-toBuf_TTC__String arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-1240 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-1237) (lambda (arg-1239) (Binary-Utils-toBuf_TTC__String arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-1240 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--14077-9511 (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-1237) (lambda (arg-1239) (TTImp-TTImp-toBuf_TTC__RawImp arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__RawImp arg-1240 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-1237) (lambda (arg-1239) (TTC-Core-toBuf_TTC__Name arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-1240 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-1237) (lambda (arg-1239) (TTImp-TTImp-toBuf_TTC__RawImp arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__RawImp arg-1240 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-1237) (lambda (arg-1239) (TTC-Core-toBuf_TTC__Name arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-1240 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-1237) (lambda (arg-1239) (TTImp-TTImp-toBuf_TTC__ImpClause arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__ImpClause arg-1240 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-1237) (lambda (arg-1239) (TTImp-TTImp-toBuf_TTC__ImpDecl arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__ImpDecl arg-1240 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-1237) (lambda (arg-1239) (TTImp-TTImp-toBuf_TTC__IFieldUpdate arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__IFieldUpdate arg-1240 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-1237) (lambda (arg-1239) (TTC-Core-toBuf_TTC__Name arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-1240 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-1237) (lambda (arg-1239) (TTImp-TTImp-toBuf_TTC__RawImp arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__RawImp arg-1240 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)))))))))))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "RawImp" eta-0))))))) -(define TTImp-TTImp-case--13203-8302 (lambda (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--13203-7937-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--13203-7938-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--13235-8158 (lambda (arg-0 arg-1 arg-2 arg-3 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--13203-7937-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--13203-7937-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--13235-8054 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-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--13203-7937-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--13203-7937-findImps arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-2 e-5) eta-0))))))))))))) -(define TTImp-TTImp-case--13234-7960 (lambda (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--13203-7936-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--12961-7764 (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--11865-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--13203-7936-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--13234-7960 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--13694-8497-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--13199-7908-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--13199-7908-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--13199-7908-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--13199-7908-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--13203-7937-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--13203-7938-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--13203-7938-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--13203-7938-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--13203-7938-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--13203-7938-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--13203-7938-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--13203-7938-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--13203-7938-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--13203-7938-impAs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-3 arg-8))))))))))(else (TTImp-TTImp-n--13203-7938-impAs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-3 arg-8))))))))))) -(define TTImp-TTImp-n--13688-8366-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--13688-8367-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--13694-8498-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--13688-8367-getFieldName arg-0 arg-1 eta-0)) arg-6))) -(define TTImp-TTImp-n--13694-8499-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--13694-8497-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--13694-8498-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--13694-8496-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--13203-7937-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--13203-7937-findImps arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5) eta-0)))))))) ((2) (TTImp-TTImp-case--13235-8054 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--13203-7936-updateNs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-2 arg-6)))(else (TTImp-TTImp-case--13235-8158 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--13688-8368-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--13688-8369-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--13688-8368-expandNS arg-0 arg-1 arg-2 (TTImp-TTImp-n--13688-8366-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--13688-8368-expandNS arg-0 arg-1 arg-2 e-19) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (TTImp-TTImp-n--13688-8368-expandNS arg-0 arg-1 arg-2 eta-0)) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (TTImp-TTImp-n--13688-8366-getName arg-0 arg-1 eta-0)) e-22)))))) ((1) (let ((e-24 (vector-ref sc1 2))) (vector 1 (TTImp-TTImp-n--13688-8368-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-2851) (lambda (arg-2852) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-2851 arg-2852))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (eta-0) (TTImp-TTImp-n--13688-8369-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-2851) (lambda (arg-2852) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-2851 arg-2852))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (eta-0) (TTImp-TTImp-n--13688-8369-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--13688-8368-expandNS arg-0 arg-1 arg-2 e-29) (TTImp-TTImp-n--13694-8500-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--13694-8500-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--13688-8368-expandNS arg-0 arg-1 arg-10 arg-8) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (TTImp-TTImp-n--13688-8368-expandNS arg-0 arg-1 (TTImp-TTImp-n--13694-8496-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--13694-8499-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--13694-8498-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--11865-6701-wknName arg-0 arg-1 arg-2 eta-0)) arg-2))) +(define TTImp-TTImp-case--16772-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--16542-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--16183-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--16079-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--15907-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--15781-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--15705-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--15599-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--14190-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--13311-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--13311-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--13311-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--13343-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--13311-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--13311-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--13343-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--13311-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--13311-7955-findImps arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-2 e-5) eta-0))))))))))))) +(define TTImp-TTImp-case--13342-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--13311-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--13069-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--11954-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--13311-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--13342-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--13802-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--13307-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--13307-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--13307-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--13307-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--13311-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--13311-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--13311-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--13311-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--13311-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--13311-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--13311-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--13311-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--13311-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--13311-7956-impAs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-3 arg-8))))))))))(else (TTImp-TTImp-n--13311-7956-impAs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-3 arg-8))))))))))) +(define TTImp-TTImp-n--13796-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--13796-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--13802-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--13796-8385-getFieldName arg-0 arg-1 eta-0)) arg-6))) +(define TTImp-TTImp-n--13802-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--13802-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--13802-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--13802-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--13311-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--13311-7955-findImps arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5) eta-0)))))))) ((2) (TTImp-TTImp-case--13343-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--13311-7954-updateNs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-2 arg-6)))(else (TTImp-TTImp-case--13343-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--13796-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--13796-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--13796-8386-expandNS arg-0 arg-1 arg-2 (TTImp-TTImp-n--13796-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--13796-8386-expandNS arg-0 arg-1 arg-2 e-19) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (TTImp-TTImp-n--13796-8386-expandNS arg-0 arg-1 arg-2 eta-0)) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (TTImp-TTImp-n--13796-8384-getName arg-0 arg-1 eta-0)) e-22)))))) ((1) (let ((e-24 (vector-ref sc1 2))) (vector 1 (TTImp-TTImp-n--13796-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-2851) (lambda (arg-2852) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-2851 arg-2852))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (eta-0) (TTImp-TTImp-n--13796-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-2851) (lambda (arg-2852) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-2851 arg-2852))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (eta-0) (TTImp-TTImp-n--13796-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--13796-8386-expandNS arg-0 arg-1 arg-2 e-29) (TTImp-TTImp-n--13802-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--13802-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--13796-8386-expandNS arg-0 arg-1 arg-10 arg-8) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (TTImp-TTImp-n--13796-8386-expandNS arg-0 arg-1 (TTImp-TTImp-n--13802-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--13802-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--13802-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--11954-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-1237) (lambda (arg-1239) (TTImp-TTImp-toBuf_TTC__RawImp arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__RawImp arg-1240 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-1237) (lambda (arg-1239) (TTC-Core-toBuf_TTC__Name arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-1240 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-1237) (lambda (arg-1239) (TTImp-TTImp-toBuf_TTC__RawImp arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__RawImp arg-1240 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-1237) (lambda (arg-1239) (TTC-Core-toBuf_TTC__Name arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-1240 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-1237) (lambda (arg-1239) (TTImp-TTImp-toBuf_TTC__ImpClause arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__ImpClause arg-1240 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-1237) (lambda (arg-1239) (TTImp-TTImp-toBuf_TTC__ImpDecl arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__ImpDecl arg-1240 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-1237) (lambda (arg-1239) (TTImp-TTImp-toBuf_TTC__IFieldUpdate arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__IFieldUpdate arg-1240 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-1237) (lambda (arg-1239) (TTC-Core-toBuf_TTC__Name arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-1240 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-1237) (lambda (arg-1239) (TTImp-TTImp-toBuf_TTC__RawImp arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__RawImp arg-1240 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))) (else (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))))))))))))))))) +(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-1237) (lambda (arg-1239) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1238) (lambda (arg-1240) (TTC-Core-toBuf_TTC__Name arg-1238 arg-1240))) (lambda (arg-1240) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-1240 eta-1)))) (vector 0 (lambda (arg-1238) (lambda (arg-1240) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1241) (lambda (arg-1242) (TTC-Core-toBuf_TTC__RigCount arg-1241 arg-1242))) (lambda (arg-1241) (lambda (eta-1) (TTC-Core-fromBuf_TTC__RigCount arg-1241 eta-1)))) (vector 0 (lambda (arg-1241) (lambda (arg-1242) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1243) (lambda (arg-1244) (TTC-Core-toBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-1245) (lambda (arg-1246) (TTImp-TTImp-toBuf_TTC__RawImp arg-1245 arg-1246))) (lambda (arg-1245) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__RawImp arg-1245 eta-1)))) arg-1243 arg-1244))) (lambda (arg-1243) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-1244) (lambda (arg-1245) (TTImp-TTImp-toBuf_TTC__RawImp arg-1244 arg-1245))) (lambda (arg-1244) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__RawImp arg-1244 eta-2)))) arg-1243 eta-1)))) (vector 0 (lambda (arg-1243) (lambda (arg-1244) (TTImp-TTImp-toBuf_TTC__RawImp arg-1243 arg-1244))) (lambda (arg-1243) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__RawImp arg-1243 eta-1))))) arg-1241 arg-1242))) (lambda (arg-1241) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1242) (lambda (arg-1243) (TTC-Core-toBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-1244) (lambda (arg-1245) (TTImp-TTImp-toBuf_TTC__RawImp arg-1244 arg-1245))) (lambda (arg-1244) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__RawImp arg-1244 eta-2)))) arg-1242 arg-1243))) (lambda (arg-1242) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-1243) (lambda (arg-1244) (TTImp-TTImp-toBuf_TTC__RawImp arg-1243 arg-1244))) (lambda (arg-1243) (lambda (eta-3) (TTImp-TTImp-fromBuf_TTC__RawImp arg-1243 eta-3)))) arg-1242 eta-2)))) (vector 0 (lambda (arg-1242) (lambda (arg-1243) (TTImp-TTImp-toBuf_TTC__RawImp arg-1242 arg-1243))) (lambda (arg-1242) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__RawImp arg-1242 eta-2))))) arg-1241 eta-1))))) arg-1238 arg-1240))) (lambda (arg-1240) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1238) (lambda (arg-1241) (TTC-Core-toBuf_TTC__RigCount arg-1238 arg-1241))) (lambda (arg-1241) (lambda (eta-2) (TTC-Core-fromBuf_TTC__RigCount arg-1241 eta-2)))) (vector 0 (lambda (arg-1238) (lambda (arg-1241) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1242) (lambda (arg-1243) (TTC-Core-toBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-1244) (lambda (arg-1245) (TTImp-TTImp-toBuf_TTC__RawImp arg-1244 arg-1245))) (lambda (arg-1244) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__RawImp arg-1244 eta-2)))) arg-1242 arg-1243))) (lambda (arg-1242) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-1243) (lambda (arg-1244) (TTImp-TTImp-toBuf_TTC__RawImp arg-1243 arg-1244))) (lambda (arg-1243) (lambda (eta-3) (TTImp-TTImp-fromBuf_TTC__RawImp arg-1243 eta-3)))) arg-1242 eta-2)))) (vector 0 (lambda (arg-1242) (lambda (arg-1243) (TTImp-TTImp-toBuf_TTC__RawImp arg-1242 arg-1243))) (lambda (arg-1242) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__RawImp arg-1242 eta-2))))) arg-1238 arg-1241))) (lambda (arg-1241) (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-1238) (lambda (arg-1242) (TTC-Core-toBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-1243) (lambda (arg-1244) (TTImp-TTImp-toBuf_TTC__RawImp arg-1243 arg-1244))) (lambda (arg-1243) (lambda (eta-3) (TTImp-TTImp-fromBuf_TTC__RawImp arg-1243 eta-3)))) arg-1238 arg-1242))) (lambda (arg-1242) (lambda (eta-3) (TTC-Core-fromBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-1238) (lambda (arg-1243) (TTImp-TTImp-toBuf_TTC__RawImp arg-1238 arg-1243))) (lambda (arg-1243) (lambda (eta-4) (TTImp-TTImp-fromBuf_TTC__RawImp arg-1243 eta-4)))) arg-1242 eta-3)))) (vector 0 (lambda (arg-1238) (lambda (arg-1242) (TTImp-TTImp-toBuf_TTC__RawImp arg-1238 arg-1242))) (lambda (arg-1242) (lambda (eta-3) (TTImp-TTImp-fromBuf_TTC__RawImp arg-1242 eta-3))))) arg-1241 eta-2))))) arg-1240 eta-1))))) arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1237) (lambda (arg-1239) (TTC-Core-toBuf_TTC__Name arg-1237 arg-1239))) (lambda (arg-1241) (lambda (eta-2) (TTC-Core-fromBuf_TTC__Name arg-1241 eta-2)))) (vector 0 (lambda (arg-1237) (lambda (arg-1239) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1238) (lambda (arg-1241) (TTC-Core-toBuf_TTC__RigCount arg-1238 arg-1241))) (lambda (arg-1241) (lambda (eta-2) (TTC-Core-fromBuf_TTC__RigCount arg-1241 eta-2)))) (vector 0 (lambda (arg-1238) (lambda (arg-1241) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1242) (lambda (arg-1243) (TTC-Core-toBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-1244) (lambda (arg-1245) (TTImp-TTImp-toBuf_TTC__RawImp arg-1244 arg-1245))) (lambda (arg-1244) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__RawImp arg-1244 eta-2)))) arg-1242 arg-1243))) (lambda (arg-1242) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-1243) (lambda (arg-1244) (TTImp-TTImp-toBuf_TTC__RawImp arg-1243 arg-1244))) (lambda (arg-1243) (lambda (eta-3) (TTImp-TTImp-fromBuf_TTC__RawImp arg-1243 eta-3)))) arg-1242 eta-2)))) (vector 0 (lambda (arg-1242) (lambda (arg-1243) (TTImp-TTImp-toBuf_TTC__RawImp arg-1242 arg-1243))) (lambda (arg-1242) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__RawImp arg-1242 eta-2))))) arg-1238 arg-1241))) (lambda (arg-1241) (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-1238) (lambda (arg-1242) (TTC-Core-toBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-1243) (lambda (arg-1244) (TTImp-TTImp-toBuf_TTC__RawImp arg-1243 arg-1244))) (lambda (arg-1243) (lambda (eta-3) (TTImp-TTImp-fromBuf_TTC__RawImp arg-1243 eta-3)))) arg-1238 arg-1242))) (lambda (arg-1242) (lambda (eta-3) (TTC-Core-fromBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-1238) (lambda (arg-1243) (TTImp-TTImp-toBuf_TTC__RawImp arg-1238 arg-1243))) (lambda (arg-1243) (lambda (eta-4) (TTImp-TTImp-fromBuf_TTC__RawImp arg-1243 eta-4)))) arg-1242 eta-3)))) (vector 0 (lambda (arg-1238) (lambda (arg-1242) (TTImp-TTImp-toBuf_TTC__RawImp arg-1238 arg-1242))) (lambda (arg-1242) (lambda (eta-3) (TTImp-TTImp-fromBuf_TTC__RawImp arg-1242 eta-3))))) arg-1241 eta-2))))) arg-1237 arg-1239))) (lambda (arg-1241) (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-1237) (lambda (arg-1239) (TTC-Core-toBuf_TTC__RigCount arg-1237 arg-1239))) (lambda (arg-1242) (lambda (eta-3) (TTC-Core-fromBuf_TTC__RigCount arg-1242 eta-3)))) (vector 0 (lambda (arg-1237) (lambda (arg-1239) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1238) (lambda (arg-1242) (TTC-Core-toBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-1243) (lambda (arg-1244) (TTImp-TTImp-toBuf_TTC__RawImp arg-1243 arg-1244))) (lambda (arg-1243) (lambda (eta-3) (TTImp-TTImp-fromBuf_TTC__RawImp arg-1243 eta-3)))) arg-1238 arg-1242))) (lambda (arg-1242) (lambda (eta-3) (TTC-Core-fromBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-1238) (lambda (arg-1243) (TTImp-TTImp-toBuf_TTC__RawImp arg-1238 arg-1243))) (lambda (arg-1243) (lambda (eta-4) (TTImp-TTImp-fromBuf_TTC__RawImp arg-1243 eta-4)))) arg-1242 eta-3)))) (vector 0 (lambda (arg-1238) (lambda (arg-1242) (TTImp-TTImp-toBuf_TTC__RawImp arg-1238 arg-1242))) (lambda (arg-1242) (lambda (eta-3) (TTImp-TTImp-fromBuf_TTC__RawImp arg-1242 eta-3))))) arg-1237 arg-1239))) (lambda (arg-1242) (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-1237) (lambda (arg-1239) (TTC-Core-toBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-1238) (lambda (arg-1243) (TTImp-TTImp-toBuf_TTC__RawImp arg-1238 arg-1243))) (lambda (arg-1243) (lambda (eta-4) (TTImp-TTImp-fromBuf_TTC__RawImp arg-1243 eta-4)))) arg-1237 arg-1239))) (lambda (arg-1243) (lambda (eta-4) (TTC-Core-fromBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-1237) (lambda (arg-1239) (TTImp-TTImp-toBuf_TTC__RawImp arg-1237 arg-1239))) (lambda (arg-1244) (lambda (eta-5) (TTImp-TTImp-fromBuf_TTC__RawImp arg-1244 eta-5)))) arg-1243 eta-4)))) (vector 0 (lambda (arg-1237) (lambda (arg-1239) (TTImp-TTImp-toBuf_TTC__RawImp arg-1237 arg-1239))) (lambda (arg-1243) (lambda (eta-4) (TTImp-TTImp-fromBuf_TTC__RawImp arg-1243 eta-4))))) arg-1242 eta-3))))) arg-1241 eta-2))))) arg-1240 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-1237) (lambda (arg-1239) (TTImp-TTImp-toBuf_TTC__IField arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__IField arg-1240 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-1237) (lambda (arg-1239) (TTImp-TTImp-toBuf_TTC__FnOpt arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__FnOpt arg-1240 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-1237) (lambda (arg-1239) (TTImp-TTImp-toBuf_TTC__ImpClause arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__ImpClause arg-1240 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-1237) (lambda (arg-1239) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1238) (lambda (arg-1240) (TTC-Core-toBuf_TTC__Name arg-1238 arg-1240))) (lambda (arg-1240) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-1240 eta-1)))) (vector 0 (lambda (arg-1238) (lambda (arg-1240) (TTImp-TTImp-toBuf_TTC__RawImp arg-1238 arg-1240))) (lambda (arg-1240) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__RawImp arg-1240 eta-1))))) arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1237) (lambda (arg-1239) (TTC-Core-toBuf_TTC__Name arg-1237 arg-1239))) (lambda (arg-1241) (lambda (eta-2) (TTC-Core-fromBuf_TTC__Name arg-1241 eta-2)))) (vector 0 (lambda (arg-1237) (lambda (arg-1239) (TTImp-TTImp-toBuf_TTC__RawImp arg-1237 arg-1239))) (lambda (arg-1241) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__RawImp arg-1241 eta-2))))) arg-1240 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-1237) (lambda (arg-1239) (TTImp-TTImp-toBuf_TTC__ImpDecl arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__ImpDecl arg-1240 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-1237) (lambda (arg-1239) (Binary-Utils-toBuf_TTC__String arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-1240 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-1237) (lambda (arg-1239) (Binary-Utils-toBuf_TTC__String arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-1240 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-1237) (lambda (arg-1239) (TTImp-TTImp-toBuf_TTC__ImpDecl arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__ImpDecl arg-1240 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-1237) (lambda (arg-1239) (TTImp-TTImp-toBuf_TTC__DataOpt arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__DataOpt arg-1240 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-1237) (lambda (arg-1239) (TTImp-TTImp-toBuf_TTC__ImpTy arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__ImpTy arg-1240 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-1237) (lambda (arg-1239) (TTImp-TTImp-toBuf_TTC__ImpClause arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__ImpClause arg-1240 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-1237) (lambda (arg-1239) (Binary-Utils-toBuf_TTC__String arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-1240 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-1237) (lambda (arg-1239) (Binary-Utils-toBuf_TTC__String arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-1240 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-1237) (lambda (arg-1239) (TTImp-TTImp-toBuf_TTC__RawImp arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__RawImp arg-1240 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) (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)))))))) ((2) (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)))))))) ((3) (lambda (eta-0) (Binary-Utils-tag arg-0 3 eta-0))) ((4) (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-1237) (lambda (arg-1239) (TTImp-TTImp-toBuf_TTC__RawImp arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__RawImp arg-1240 eta-1)))) arg-0 e-2 eta-0)))))))) ((5) (lambda (eta-0) (Binary-Utils-tag arg-0 5 eta-0))) ((6) (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))))))) ((7) (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-1237) (lambda (arg-1239) (TTC-Core-toBuf_TTC__Name arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-1240 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-1237) (lambda (arg-1239) (TTC-Core-toBuf_TTC__Name arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-1240 eta-1)))) arg-0 e-0 eta-0)))))))) ((1) (lambda (eta-0) (Binary-Utils-tag arg-0 1 eta-0))) ((2) (lambda (eta-0) (Binary-Utils-tag arg-0 2 eta-0))) ((3) (lambda (eta-0) (Binary-Utils-tag arg-0 3 eta-0))) (else (lambda (eta-0) (Binary-Utils-tag arg-0 4 eta-0))))))) +(define TTImp-TTImp-toBuf_TTC__ImpRecord (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-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") (else (let ((e-91 (vector-ref sc0 2))) (let ((sc1 e-91)) (cond ((equal? sc1 0) "_") (else "?"))))))))) +(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 "\u000a\u0009" (Strings-Prelude-C-43C-43 (Name-Core-showSep "\u000a\u0009" (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (TTImp-TTImp-show_Show__IField eta-0)) e-4)) "\u000a"))))))))))))))) (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 "\u000a\u0009" (Name-Core-showSep "\u000a\u0009" (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 "\u000a" (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)))))))) @@ -2979,38 +3025,38 @@ (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 "\u000a\u0009" (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) (let ((e-0 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "%hint " (Prelude-show_Show__Bool e-0)))) ((2) (let ((e-1 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "%globalhint " (Prelude-show_Show__Bool e-1)))) ((3) "%extern") ((4) (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))))) ((5) "%invertible") ((6) (let ((e-3 (vector-ref sc0 1))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((0) "total") ((1) "covering") (else "partial"))))) ((7) "%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-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-1237) (lambda (arg-1239) (TTImp-TTImp-toBuf_TTC__RawImp arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__RawImp arg-1240 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-1237) (lambda (arg-1239) (TTC-Core-toBuf_TTC__Name arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-1240 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-1237) (lambda (arg-1239) (TTImp-TTImp-toBuf_TTC__RawImp arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__RawImp arg-1240 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-1237) (lambda (arg-1239) (TTC-Core-toBuf_TTC__Name arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-1240 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-1237) (lambda (arg-1239) (TTImp-TTImp-toBuf_TTC__ImpClause arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__ImpClause arg-1240 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-1237) (lambda (arg-1239) (TTImp-TTImp-toBuf_TTC__ImpDecl arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__ImpDecl arg-1240 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-1237) (lambda (arg-1239) (TTImp-TTImp-toBuf_TTC__IFieldUpdate arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__IFieldUpdate arg-1240 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-1237) (lambda (arg-1239) (TTC-Core-toBuf_TTC__Name arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-1240 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-1237) (lambda (arg-1239) (TTImp-TTImp-toBuf_TTC__RawImp arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__RawImp arg-1240 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))))))))))))(else (Binary-Utils-corrupt 'erased "RawImp" ext-0))))))))))) +(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-1237) (lambda (arg-1239) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1238) (lambda (arg-1240) (TTC-Core-toBuf_TTC__Name arg-1238 arg-1240))) (lambda (arg-1240) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-1240 eta-0)))) (vector 0 (lambda (arg-1238) (lambda (arg-1240) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1241) (lambda (arg-1242) (TTC-Core-toBuf_TTC__RigCount arg-1241 arg-1242))) (lambda (arg-1241) (lambda (eta-0) (TTC-Core-fromBuf_TTC__RigCount arg-1241 eta-0)))) (vector 0 (lambda (arg-1241) (lambda (arg-1242) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1243) (lambda (arg-1244) (TTC-Core-toBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-1245) (lambda (arg-1246) (TTImp-TTImp-toBuf_TTC__RawImp arg-1245 arg-1246))) (lambda (arg-1245) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__RawImp arg-1245 eta-0)))) arg-1243 arg-1244))) (lambda (arg-1243) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-1244) (lambda (arg-1245) (TTImp-TTImp-toBuf_TTC__RawImp arg-1244 arg-1245))) (lambda (arg-1244) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__RawImp arg-1244 eta-1)))) arg-1243 eta-0)))) (vector 0 (lambda (arg-1243) (lambda (arg-1244) (TTImp-TTImp-toBuf_TTC__RawImp arg-1243 arg-1244))) (lambda (arg-1243) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__RawImp arg-1243 eta-0))))) arg-1241 arg-1242))) (lambda (arg-1241) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1242) (lambda (arg-1243) (TTC-Core-toBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-1244) (lambda (arg-1245) (TTImp-TTImp-toBuf_TTC__RawImp arg-1244 arg-1245))) (lambda (arg-1244) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__RawImp arg-1244 eta-1)))) arg-1242 arg-1243))) (lambda (arg-1242) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-1243) (lambda (arg-1244) (TTImp-TTImp-toBuf_TTC__RawImp arg-1243 arg-1244))) (lambda (arg-1243) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__RawImp arg-1243 eta-2)))) arg-1242 eta-1)))) (vector 0 (lambda (arg-1242) (lambda (arg-1243) (TTImp-TTImp-toBuf_TTC__RawImp arg-1242 arg-1243))) (lambda (arg-1242) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__RawImp arg-1242 eta-1))))) arg-1241 eta-0))))) arg-1238 arg-1240))) (lambda (arg-1240) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1238) (lambda (arg-1241) (TTC-Core-toBuf_TTC__RigCount arg-1238 arg-1241))) (lambda (arg-1241) (lambda (eta-1) (TTC-Core-fromBuf_TTC__RigCount arg-1241 eta-1)))) (vector 0 (lambda (arg-1238) (lambda (arg-1241) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1242) (lambda (arg-1243) (TTC-Core-toBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-1244) (lambda (arg-1245) (TTImp-TTImp-toBuf_TTC__RawImp arg-1244 arg-1245))) (lambda (arg-1244) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__RawImp arg-1244 eta-1)))) arg-1242 arg-1243))) (lambda (arg-1242) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-1243) (lambda (arg-1244) (TTImp-TTImp-toBuf_TTC__RawImp arg-1243 arg-1244))) (lambda (arg-1243) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__RawImp arg-1243 eta-2)))) arg-1242 eta-1)))) (vector 0 (lambda (arg-1242) (lambda (arg-1243) (TTImp-TTImp-toBuf_TTC__RawImp arg-1242 arg-1243))) (lambda (arg-1242) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__RawImp arg-1242 eta-1))))) arg-1238 arg-1241))) (lambda (arg-1241) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1238) (lambda (arg-1242) (TTC-Core-toBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-1243) (lambda (arg-1244) (TTImp-TTImp-toBuf_TTC__RawImp arg-1243 arg-1244))) (lambda (arg-1243) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__RawImp arg-1243 eta-2)))) arg-1238 arg-1242))) (lambda (arg-1242) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-1238) (lambda (arg-1243) (TTImp-TTImp-toBuf_TTC__RawImp arg-1238 arg-1243))) (lambda (arg-1243) (lambda (eta-3) (TTImp-TTImp-fromBuf_TTC__RawImp arg-1243 eta-3)))) arg-1242 eta-2)))) (vector 0 (lambda (arg-1238) (lambda (arg-1242) (TTImp-TTImp-toBuf_TTC__RawImp arg-1238 arg-1242))) (lambda (arg-1242) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__RawImp arg-1242 eta-2))))) arg-1241 eta-1))))) arg-1240 eta-0))))) arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1237) (lambda (arg-1239) (TTC-Core-toBuf_TTC__Name arg-1237 arg-1239))) (lambda (arg-1241) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-1241 eta-1)))) (vector 0 (lambda (arg-1237) (lambda (arg-1239) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1238) (lambda (arg-1241) (TTC-Core-toBuf_TTC__RigCount arg-1238 arg-1241))) (lambda (arg-1241) (lambda (eta-1) (TTC-Core-fromBuf_TTC__RigCount arg-1241 eta-1)))) (vector 0 (lambda (arg-1238) (lambda (arg-1241) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1242) (lambda (arg-1243) (TTC-Core-toBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-1244) (lambda (arg-1245) (TTImp-TTImp-toBuf_TTC__RawImp arg-1244 arg-1245))) (lambda (arg-1244) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__RawImp arg-1244 eta-1)))) arg-1242 arg-1243))) (lambda (arg-1242) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-1243) (lambda (arg-1244) (TTImp-TTImp-toBuf_TTC__RawImp arg-1243 arg-1244))) (lambda (arg-1243) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__RawImp arg-1243 eta-2)))) arg-1242 eta-1)))) (vector 0 (lambda (arg-1242) (lambda (arg-1243) (TTImp-TTImp-toBuf_TTC__RawImp arg-1242 arg-1243))) (lambda (arg-1242) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__RawImp arg-1242 eta-1))))) arg-1238 arg-1241))) (lambda (arg-1241) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1238) (lambda (arg-1242) (TTC-Core-toBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-1243) (lambda (arg-1244) (TTImp-TTImp-toBuf_TTC__RawImp arg-1243 arg-1244))) (lambda (arg-1243) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__RawImp arg-1243 eta-2)))) arg-1238 arg-1242))) (lambda (arg-1242) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-1238) (lambda (arg-1243) (TTImp-TTImp-toBuf_TTC__RawImp arg-1238 arg-1243))) (lambda (arg-1243) (lambda (eta-3) (TTImp-TTImp-fromBuf_TTC__RawImp arg-1243 eta-3)))) arg-1242 eta-2)))) (vector 0 (lambda (arg-1238) (lambda (arg-1242) (TTImp-TTImp-toBuf_TTC__RawImp arg-1238 arg-1242))) (lambda (arg-1242) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__RawImp arg-1242 eta-2))))) arg-1241 eta-1))))) arg-1237 arg-1239))) (lambda (arg-1241) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1237) (lambda (arg-1239) (TTC-Core-toBuf_TTC__RigCount arg-1237 arg-1239))) (lambda (arg-1242) (lambda (eta-2) (TTC-Core-fromBuf_TTC__RigCount arg-1242 eta-2)))) (vector 0 (lambda (arg-1237) (lambda (arg-1239) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1238) (lambda (arg-1242) (TTC-Core-toBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-1243) (lambda (arg-1244) (TTImp-TTImp-toBuf_TTC__RawImp arg-1243 arg-1244))) (lambda (arg-1243) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__RawImp arg-1243 eta-2)))) arg-1238 arg-1242))) (lambda (arg-1242) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-1238) (lambda (arg-1243) (TTImp-TTImp-toBuf_TTC__RawImp arg-1238 arg-1243))) (lambda (arg-1243) (lambda (eta-3) (TTImp-TTImp-fromBuf_TTC__RawImp arg-1243 eta-3)))) arg-1242 eta-2)))) (vector 0 (lambda (arg-1238) (lambda (arg-1242) (TTImp-TTImp-toBuf_TTC__RawImp arg-1238 arg-1242))) (lambda (arg-1242) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__RawImp arg-1242 eta-2))))) arg-1237 arg-1239))) (lambda (arg-1242) (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-1237) (lambda (arg-1239) (TTC-Core-toBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-1238) (lambda (arg-1243) (TTImp-TTImp-toBuf_TTC__RawImp arg-1238 arg-1243))) (lambda (arg-1243) (lambda (eta-3) (TTImp-TTImp-fromBuf_TTC__RawImp arg-1243 eta-3)))) arg-1237 arg-1239))) (lambda (arg-1243) (lambda (eta-3) (TTC-Core-fromBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-1237) (lambda (arg-1239) (TTImp-TTImp-toBuf_TTC__RawImp arg-1237 arg-1239))) (lambda (arg-1244) (lambda (eta-4) (TTImp-TTImp-fromBuf_TTC__RawImp arg-1244 eta-4)))) arg-1243 eta-3)))) (vector 0 (lambda (arg-1237) (lambda (arg-1239) (TTImp-TTImp-toBuf_TTC__RawImp arg-1237 arg-1239))) (lambda (arg-1243) (lambda (eta-3) (TTImp-TTImp-fromBuf_TTC__RawImp arg-1243 eta-3))))) arg-1242 eta-2))))) arg-1241 eta-1))))) arg-1240 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-1237) (lambda (arg-1239) (TTImp-TTImp-toBuf_TTC__IField arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__IField arg-1240 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-1237) (lambda (arg-1239) (TTImp-TTImp-toBuf_TTC__FnOpt arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__FnOpt arg-1240 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-1237) (lambda (arg-1239) (TTImp-TTImp-toBuf_TTC__ImpClause arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__ImpClause arg-1240 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-1237) (lambda (arg-1239) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1238) (lambda (arg-1240) (TTC-Core-toBuf_TTC__Name arg-1238 arg-1240))) (lambda (arg-1240) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-1240 eta-0)))) (vector 0 (lambda (arg-1238) (lambda (arg-1240) (TTImp-TTImp-toBuf_TTC__RawImp arg-1238 arg-1240))) (lambda (arg-1240) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__RawImp arg-1240 eta-0))))) arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1237) (lambda (arg-1239) (TTC-Core-toBuf_TTC__Name arg-1237 arg-1239))) (lambda (arg-1241) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-1241 eta-1)))) (vector 0 (lambda (arg-1237) (lambda (arg-1239) (TTImp-TTImp-toBuf_TTC__RawImp arg-1237 arg-1239))) (lambda (arg-1241) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__RawImp arg-1241 eta-1))))) arg-1240 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-1237) (lambda (arg-1239) (TTImp-TTImp-toBuf_TTC__ImpDecl arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__ImpDecl arg-1240 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-1237) (lambda (arg-1239) (Binary-Utils-toBuf_TTC__String arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__String arg-1240 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-1237) (lambda (arg-1239) (Binary-Utils-toBuf_TTC__String arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__String arg-1240 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-1237) (lambda (arg-1239) (TTImp-TTImp-toBuf_TTC__ImpDecl arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__ImpDecl arg-1240 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-1237) (lambda (arg-1239) (TTImp-TTImp-toBuf_TTC__DataOpt arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__DataOpt arg-1240 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-1237) (lambda (arg-1239) (TTImp-TTImp-toBuf_TTC__ImpTy arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__ImpTy arg-1240 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-1237) (lambda (arg-1239) (TTImp-TTImp-toBuf_TTC__ImpClause arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__ImpClause arg-1240 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-1237) (lambda (arg-1239) (Binary-Utils-toBuf_TTC__String arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__String arg-1240 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-1237) (lambda (arg-1239) (Binary-Utils-toBuf_TTC__String arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__String arg-1240 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-1237) (lambda (arg-1239) (TTImp-TTImp-toBuf_TTC__RawImp arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__RawImp arg-1240 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 1 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 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)) ((equal? sc1 4) (let ((act-16 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1237) (lambda (arg-1239) (TTImp-TTImp-toBuf_TTC__RawImp arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__RawImp arg-1240 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 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 (vector 0 ))) ext-0)) ((equal? sc1 7) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 6 (vector 1 ))) ext-0)) ((equal? sc1 8) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 6 (vector 2 ))) ext-0)) ((equal? sc1 9) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 7 )) ext-0)) ((equal? sc1 10) (let ((act-16 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1237) (lambda (arg-1239) (TTC-Core-toBuf_TTC__Name arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-1240 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 8 e-6)) 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-1237) (lambda (arg-1239) (TTC-Core-toBuf_TTC__Name arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-1240 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__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-1237) (lambda (arg-1239) (TTImp-TTImp-toBuf_TTC__RawImp arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__RawImp arg-1240 eta-0)))))) -(define TTImp-TTImp-__Impl_TTC_ImpTy (lambda () (vector 0 (lambda (arg-1237) (lambda (arg-1239) (TTImp-TTImp-toBuf_TTC__ImpTy arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__ImpTy arg-1240 eta-0)))))) -(define TTImp-TTImp-__Impl_TTC_ImpRecord (lambda () (vector 0 (lambda (arg-1237) (lambda (arg-1239) (TTImp-TTImp-toBuf_TTC__ImpRecord arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__ImpRecord arg-1240 eta-0)))))) -(define TTImp-TTImp-__Impl_TTC_ImpDecl (lambda () (vector 0 (lambda (arg-1237) (lambda (arg-1239) (TTImp-TTImp-toBuf_TTC__ImpDecl arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__ImpDecl arg-1240 eta-0)))))) -(define TTImp-TTImp-__Impl_TTC_ImpData (lambda () (vector 0 (lambda (arg-1237) (lambda (arg-1239) (TTImp-TTImp-toBuf_TTC__ImpData arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__ImpData arg-1240 eta-0)))))) -(define TTImp-TTImp-__Impl_TTC_ImpClause (lambda () (vector 0 (lambda (arg-1237) (lambda (arg-1239) (TTImp-TTImp-toBuf_TTC__ImpClause arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__ImpClause arg-1240 eta-0)))))) -(define TTImp-TTImp-__Impl_TTC_IFieldUpdate (lambda () (vector 0 (lambda (arg-1237) (lambda (arg-1239) (TTImp-TTImp-toBuf_TTC__IFieldUpdate arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__IFieldUpdate arg-1240 eta-0)))))) -(define TTImp-TTImp-__Impl_TTC_IField (lambda () (vector 0 (lambda (arg-1237) (lambda (arg-1239) (TTImp-TTImp-toBuf_TTC__IField arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__IField arg-1240 eta-0)))))) -(define TTImp-TTImp-__Impl_TTC_FnOpt (lambda () (vector 0 (lambda (arg-1237) (lambda (arg-1239) (TTImp-TTImp-toBuf_TTC__FnOpt arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__FnOpt arg-1240 eta-0)))))) -(define TTImp-TTImp-__Impl_TTC_DataOpt (lambda () (vector 0 (lambda (arg-1237) (lambda (arg-1239) (TTImp-TTImp-toBuf_TTC__DataOpt arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__DataOpt arg-1240 eta-0)))))) -(define TTImp-TTImp-__Impl_TTC_BindMode (lambda () (vector 0 (lambda (arg-1237) (lambda (arg-1239) (TTImp-TTImp-toBuf_TTC__BindMode arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__BindMode arg-1240 eta-0)))))) -(define TTImp-TTImp-__Impl_TTC_AltType (lambda () (vector 0 (lambda (arg-1237) (lambda (arg-1239) (TTImp-TTImp-toBuf_TTC__AltType arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__AltType arg-1240 eta-0)))))) +(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)))))) @@ -3021,215 +3067,215 @@ (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--12961-7764 '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--13199-7908-setAs arg-2 arg-1 arg-0 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (vector 1 eta-0)) (List-Prelude-C-43C-43 'erased arg-1 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (vector 1 eta-0)) (TTImp-TTImp-findIBinds arg-2)))) arg-2))) +(define TTImp-TTImp-lhsInCurrentNS (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((8) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-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--13069-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--13307-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)) (else (let ((e-90 (vector-ref sc0 1))) e-90)))))) +(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-2851) (lambda (arg-2852) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-2851 arg-2852))) (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-2851) (lambda (arg-2852) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-2851 arg-2852))) (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-2851) (lambda (arg-2852) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-2851 arg-2852))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (eta-0) (TTImp-TTImp-n--13688-8369-defName arg-1 arg-0 arg-0 eta-0))) arg-1))) +(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-2851) (lambda (arg-2852) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-2851 arg-2852))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (eta-0) (TTImp-TTImp-n--13796-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--16396-10294 (lambda (arg-0 arg-1 arg-2 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-1237) (lambda (arg-1239) (Binary-Utils-toBuf_TTC__Nat arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-1240 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-1237) (lambda (arg-1239) (Binary-Utils-toBuf_TTC__Nat arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-1240 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-1237) (lambda (arg-1239) (Binary-Utils-toBuf_TTC__Nat arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-1240 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-1237) (lambda (arg-1239) (Binary-Utils-toBuf_TTC__Nat arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-1240 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-1237) (lambda (arg-1239) (TTC-Core-toBuf_TTC__Name arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-1240 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-1237) (lambda (arg-1239) (TTC-Core-toBuf_TTC__DefFlag arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-1) (TTC-Core-fromBuf_TTC__DefFlag arg-1240 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-1237) (lambda (arg-1239) (lambda (eta-1) (TTC-Core-toBuf_TTC__SCCall arg-1237 arg-1239 eta-1)))) (lambda (arg-1240) (lambda (eta-1) (TTC-Core-fromBuf_TTC__SCCall arg-1240 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--16272-9952 (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--16133-9846 (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)))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "DefFlag" eta-0))))))) -(define TTC-Core-case--16068-9750 (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--15463-9437 (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-1237) (lambda (arg-1239) (TTC-Core-toBuf_TTC__Name arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-1240 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-1237) (lambda (arg-1239) (Binary-Utils-toBuf_TTC__C-40C-40DPairC-32C-36aC-41C-32C-36pC-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1238) (lambda (arg-1240) (lambda (eta-1) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1241) (lambda (arg-1242) (TTC-Core-toBuf_TTC__Name arg-1241 arg-1242))) (lambda (arg-1241) (lambda (eta-2) (TTC-Core-fromBuf_TTC__Name arg-1241 eta-2)))) arg-1238 arg-1240 eta-1)))) (lambda (arg-1240) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1238) (lambda (arg-1241) (TTC-Core-toBuf_TTC__Name arg-1238 arg-1241))) (lambda (arg-1241) (lambda (eta-2) (TTC-Core-fromBuf_TTC__Name arg-1241 eta-2)))) arg-1240 eta-1)))) (lambda (y) (vector 0 (lambda (arg-1238) (lambda (arg-1240) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1241) (lambda (arg-1242) (TTC-Core-toBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 y arg-1241 arg-1242))) (lambda (arg-1241) (TTC-Core-fromBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 y arg-1241))) (vector 0 (lambda (arg-1241) (lambda (arg-1242) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1243) (lambda (arg-1244) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-1243 arg-1244))) (lambda (arg-1243) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-1243 eta-1)))) (vector 0 (lambda (arg-1243) (lambda (arg-1244) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-1243 arg-1244))) (lambda (arg-1243) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-1243 eta-1))))) arg-1241 arg-1242))) (lambda (arg-1241) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1242) (lambda (arg-1243) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-1242 arg-1243))) (lambda (arg-1242) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-1242 eta-2)))) (vector 0 (lambda (arg-1242) (lambda (arg-1243) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-1242 arg-1243))) (lambda (arg-1242) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-1242 eta-2))))) arg-1241 eta-1))))) arg-1238 arg-1240))) (lambda (arg-1240) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1238) (lambda (arg-1241) (TTC-Core-toBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 y arg-1238 arg-1241))) (lambda (arg-1241) (TTC-Core-fromBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 y arg-1241))) (vector 0 (lambda (arg-1238) (lambda (arg-1241) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1242) (lambda (arg-1243) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-1242 arg-1243))) (lambda (arg-1242) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-1242 eta-2)))) (vector 0 (lambda (arg-1242) (lambda (arg-1243) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-1242 arg-1243))) (lambda (arg-1242) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-1242 eta-2))))) arg-1238 arg-1241))) (lambda (arg-1241) (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-1238) (lambda (arg-1242) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-1238 arg-1242))) (lambda (arg-1242) (lambda (eta-3) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-1242 eta-3)))) (vector 0 (lambda (arg-1238) (lambda (arg-1242) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-1238 arg-1242))) (lambda (arg-1242) (lambda (eta-3) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-1242 eta-3))))) arg-1241 eta-2))))) arg-1240 eta-1)))))) arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-40DPairC-32C-36aC-41C-32C-36pC-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1237) (lambda (arg-1239) (lambda (eta-2) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1238) (lambda (arg-1241) (TTC-Core-toBuf_TTC__Name arg-1238 arg-1241))) (lambda (arg-1241) (lambda (eta-3) (TTC-Core-fromBuf_TTC__Name arg-1241 eta-3)))) arg-1237 arg-1239 eta-2)))) (lambda (arg-1241) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1237) (lambda (arg-1239) (TTC-Core-toBuf_TTC__Name arg-1237 arg-1239))) (lambda (arg-1242) (lambda (eta-3) (TTC-Core-fromBuf_TTC__Name arg-1242 eta-3)))) arg-1241 eta-2)))) (lambda (y) (vector 0 (lambda (arg-1237) (lambda (arg-1239) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1238) (lambda (arg-1241) (TTC-Core-toBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 y arg-1238 arg-1241))) (lambda (arg-1241) (TTC-Core-fromBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 y arg-1241))) (vector 0 (lambda (arg-1238) (lambda (arg-1241) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1242) (lambda (arg-1243) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-1242 arg-1243))) (lambda (arg-1242) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-1242 eta-2)))) (vector 0 (lambda (arg-1242) (lambda (arg-1243) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-1242 arg-1243))) (lambda (arg-1242) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-1242 eta-2))))) arg-1238 arg-1241))) (lambda (arg-1241) (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-1238) (lambda (arg-1242) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-1238 arg-1242))) (lambda (arg-1242) (lambda (eta-3) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-1242 eta-3)))) (vector 0 (lambda (arg-1238) (lambda (arg-1242) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-1238 arg-1242))) (lambda (arg-1242) (lambda (eta-3) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-1242 eta-3))))) arg-1241 eta-2))))) arg-1237 arg-1239))) (lambda (arg-1241) (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-1237) (lambda (arg-1239) (TTC-Core-toBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 y arg-1237 arg-1239))) (lambda (arg-1242) (TTC-Core-fromBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 y arg-1242))) (vector 0 (lambda (arg-1237) (lambda (arg-1239) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1238) (lambda (arg-1242) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-1238 arg-1242))) (lambda (arg-1242) (lambda (eta-3) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-1242 eta-3)))) (vector 0 (lambda (arg-1238) (lambda (arg-1242) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-1238 arg-1242))) (lambda (arg-1242) (lambda (eta-3) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-1242 eta-3))))) arg-1237 arg-1239))) (lambda (arg-1242) (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-1237) (lambda (arg-1239) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-1237 arg-1239))) (lambda (arg-1243) (lambda (eta-4) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-1243 eta-4)))) (vector 0 (lambda (arg-1237) (lambda (arg-1239) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-1237 arg-1239))) (lambda (arg-1243) (lambda (eta-4) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-1243 eta-4))))) arg-1242 eta-3))))) arg-1241 eta-2)))))) arg-1240 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-1237) (lambda (arg-1239) (Binary-Utils-toBuf_TTC__String arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-1240 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-1237) (lambda (arg-1239) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1238) (lambda (arg-1240) (Binary-Utils-toBuf_TTC__Bool arg-1238 arg-1240))) (lambda (arg-1240) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-1240 eta-1)))) (vector 0 (lambda (arg-1238) (lambda (arg-1240) (Binary-Utils-toBuf_TTC__Nat arg-1238 arg-1240))) (lambda (arg-1240) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-1240 eta-1))))) arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1237) (lambda (arg-1239) (Binary-Utils-toBuf_TTC__Bool arg-1237 arg-1239))) (lambda (arg-1241) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Bool arg-1241 eta-2)))) (vector 0 (lambda (arg-1237) (lambda (arg-1239) (Binary-Utils-toBuf_TTC__Nat arg-1237 arg-1239))) (lambda (arg-1241) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Nat arg-1241 eta-2))))) arg-1240 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-1237) (lambda (arg-1239) (Binary-Utils-toBuf_TTC__Nat arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-1240 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-1237) (lambda (arg-1239) (Binary-Utils-toBuf_TTC__Nat arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-1240 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-1237) (lambda (arg-1239) (TTC-Core-toBuf_TTC__Name arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-1240 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-1237) (lambda (arg-1239) (TTC-Core-toBuf_TTC__Name arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-1240 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-1237) (lambda (arg-1239) (lambda (eta-1) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1238) (lambda (arg-1240) (Binary-Utils-toBuf_TTC__Nat arg-1238 arg-1240))) (lambda (arg-1240) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Nat arg-1240 eta-2)))) arg-1237 arg-1239 eta-1)))) (lambda (arg-1240) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1237) (lambda (arg-1239) (Binary-Utils-toBuf_TTC__Nat arg-1237 arg-1239))) (lambda (arg-1241) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Nat arg-1241 eta-2)))) arg-1240 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-1237) (lambda (arg-1239) (lambda (eta-1) (Binary-Utils-toBuf_TTC__Int arg-1237 arg-1239 eta-1)))) (lambda (arg-1240) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Int arg-1240 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--15324-9007 (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--15114-8794 (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--14906-8665 (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-1237) (lambda (arg-1239) (TTC-Core-toBuf_TTC__Name arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-1240 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-1237) (lambda (arg-1239) (lambda (eta-1) (Binary-Utils-toBuf_TTC__Int arg-1237 arg-1239 eta-1)))) (lambda (arg-1240) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Int arg-1240 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-1237) (lambda (arg-1239) (Binary-Utils-toBuf_TTC__Nat arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-1240 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-1237) (lambda (arg-1239) (Binary-Utils-toBuf_TTC__String arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-1240 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-1237) (lambda (arg-1239) (TTC-Core-toBuf_TTC__CFType arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-1) (TTC-Core-fromBuf_TTC__CFType arg-1240 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--14642-8419 (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-1237) (lambda (arg-1239) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1238) (lambda (arg-1240) (Binary-Utils-toBuf_TTC__String arg-1238 arg-1240))) (lambda (arg-1240) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-1240 eta-1)))) (vector 0 (lambda (arg-1238) (lambda (arg-1240) (TTC-Core-toBuf_TTC__CFType arg-1238 arg-1240))) (lambda (arg-1240) (lambda (eta-1) (TTC-Core-fromBuf_TTC__CFType arg-1240 eta-1))))) arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1237) (lambda (arg-1239) (Binary-Utils-toBuf_TTC__String arg-1237 arg-1239))) (lambda (arg-1241) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__String arg-1241 eta-2)))) (vector 0 (lambda (arg-1237) (lambda (arg-1239) (TTC-Core-toBuf_TTC__CFType arg-1237 arg-1239))) (lambda (arg-1241) (lambda (eta-2) (TTC-Core-fromBuf_TTC__CFType arg-1241 eta-2))))) arg-1240 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-1237) (lambda (arg-1239) (TTC-Core-toBuf_TTC__CFType arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-1) (TTC-Core-fromBuf_TTC__CFType arg-1240 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--14032-7714 (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--13565-7693 (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--14032-7714 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-1237) (lambda (arg-1239) (TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-1240 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-1237) (lambda (arg-1239) (lambda (eta-1) (Binary-Utils-toBuf_TTC__Int arg-1237 arg-1239 eta-1)))) (lambda (arg-1240) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Int arg-1240 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-1237) (lambda (arg-1239) (TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-1240 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-1237) (lambda (arg-1239) (TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-1240 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-1237) (lambda (arg-1239) (TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-1240 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-1237) (lambda (arg-1239) (TTC-Core-toBuf_TTC__C-40CConAltC-32C-36varsC-41 arg-0 arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40CConAltC-32C-36varsC-41 arg-0 arg-1240 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-1237) (lambda (arg-1239) (TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-1240 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-1237) (lambda (arg-1239) (TTC-Core-toBuf_TTC__C-40CConstAltC-32C-36varsC-41 arg-0 arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40CConstAltC-32C-36varsC-41 arg-0 arg-1240 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-1237) (lambda (arg-1239) (TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-1240 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--12691-7177 (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--12691-6686-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--12691-6687-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--12691-6688-fromBuf3 arg-0 arg-1 eta-0)))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "PrimFn" eta-0))))))))))))))))))) -(define TTC-Core-case--13043-7149 (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)))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 36 )) eta-0))))))) -(define TTC-Core-case--13042-6885 (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))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 37 )) eta-0))))))) -(define TTC-Core-case--13041-6698 (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--12552-6221 (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-1237) (lambda (arg-1239) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-1240 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-1237) (lambda (arg-1239) (TTC-Core-toBuf_TTC__Name arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-1240 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--12475-6133 (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--12379-6048 (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-1237) (lambda (arg-1239) (TTC-Core-toBuf_TTC__Name arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-1240 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-1237) (lambda (arg-1239) (TTC-Core-toBuf_TTC__Name arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-1240 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--12314-5966 (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--12004-5754 (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-1237) (lambda (arg-1239) (TTC-Core-toBuf_TTC__Name arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-1240 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--11822-5540 (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-1237) (lambda (arg-1239) (TTC-Core-toBuf_TTC__C-40CaseAltC-32C-36varsC-41 arg-0 arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40CaseAltC-32C-36varsC-41 arg-0 arg-1240 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 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--11032-4961 (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--10687-4655 (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-1237) (lambda (arg-1239) (Binary-Utils-toBuf_TTC__Bool arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-1240 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-1237) (lambda (arg-1239) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 arg-1 arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-1 arg-1240 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-1237) (lambda (arg-1239) (Binary-Utils-toBuf_TTC__Bool arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-1240 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--11032-4961 arg-0 arg-1 arg-2 bind-0 e-5 idx (TTC-Core-getName idx arg-1)) eta-0)))))))))))))) -(define TTC-Core-case--10685-4336 (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-1237) (lambda (arg-1239) (Binary-Utils-toBuf_TTC__Bool arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-1240 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-1237) (lambda (arg-1239) (Binary-Utils-toBuf_TTC__Bool arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-1240 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--10635-4287 (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--10272-4076 (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-1237) (lambda (arg-1239) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-1240 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-1237) (lambda (arg-1239) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-1240 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-1237) (lambda (arg-1239) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-1240 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--10110-3800 (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--10045-3703 (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--9816-3551 (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--9671-3373 (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--9593-3258 (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--9250-3055 (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-1237) (lambda (arg-1239) (Binary-Utils-toBuf_TTC__String arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-1240 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-1237) (lambda (arg-1239) (lambda (eta-1) (Binary-Utils-toBuf_TTC__Int arg-1237 arg-1239 eta-1)))) (lambda (arg-1240) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Int arg-1240 eta-1)))) (vector 0 (lambda (arg-1237) (lambda (arg-1239) (lambda (eta-1) (Binary-Utils-toBuf_TTC__Int arg-1237 arg-1239 eta-1)))) (lambda (arg-1240) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Int arg-1240 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--9133-2809 (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-1237) (lambda (arg-1239) (lambda (eta-1) (Binary-Utils-toBuf_TTC__Int arg-1237 arg-1239 eta-1)))) (lambda (arg-1240) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Int arg-1240 eta-1)))) (vector 0 (lambda (arg-1237) (lambda (arg-1239) (lambda (eta-1) (Binary-Utils-toBuf_TTC__Int arg-1237 arg-1239 eta-1)))) (lambda (arg-1240) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Int arg-1240 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-1237) (lambda (arg-1239) (lambda (eta-1) (Binary-Utils-toBuf_TTC__Int arg-1237 arg-1239 eta-1)))) (lambda (arg-1240) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Int arg-1240 eta-1)))) (vector 0 (lambda (arg-1237) (lambda (arg-1239) (lambda (eta-1) (Binary-Utils-toBuf_TTC__Int arg-1237 arg-1239 eta-1)))) (lambda (arg-1240) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Int arg-1240 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--12691-6688-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))(else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 36 )) ext-0))))))))))) -(define TTC-Core-n--12691-6687-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)))))))(else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 37 )) ext-0))))))))))) -(define TTC-Core-n--12691-6686-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--16394-10053-cwName (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((7) 0) ((8) 0)(else 1))))) +(define TTC-Core-case--16494-10339 (lambda (arg-0 arg-1 arg-2 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--16370-9997 (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--16219-9884 (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--16154-9783 (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--15549-9470 (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--15410-9040 (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--15200-8827 (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--14992-8698 (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--14728-8452 (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--14118-7747 (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--13651-7726 (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--14118-7747 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--12777-7210 (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--12777-6719-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--12777-6720-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--12777-6721-fromBuf3 arg-0 arg-1 eta-0)))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "PrimFn" eta-0))))))))))))))))))) +(define TTC-Core-case--13129-7182 (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--13128-6918 (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--13127-6731 (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--12638-6254 (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--12561-6166 (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--12465-6081 (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--12400-5999 (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--12090-5787 (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--11908-5573 (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 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--11118-4994 (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--10773-4688 (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--11118-4994 arg-0 arg-1 arg-2 bind-0 e-5 idx (TTC-Core-getName idx arg-1)) eta-0)))))))))))))) +(define TTC-Core-case--10771-4369 (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--10721-4320 (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--10358-4109 (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--10196-3833 (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--10131-3736 (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--9902-3584 (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--9757-3406 (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--9679-3291 (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--9336-3088 (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--9219-2842 (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--12777-6721-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--12777-6720-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--12777-6719-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--16492-10098-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-1237) (lambda (arg-1239) (TTC-Core-toBuf_TTC__Name arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-1240 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__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-1237) (lambda (arg-1239) (Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-1238) (lambda (arg-1240) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1241) (lambda (arg-1242) (Binary-Utils-toBuf_TTC__Nat arg-1241 arg-1242))) (lambda (arg-1241) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Nat arg-1241 eta-0)))) (vector 0 (lambda (arg-1241) (lambda (arg-1242) (TTC-Core-toBuf_TTC__SizeChange arg-1241 arg-1242))) (lambda (arg-1241) (lambda (eta-0) (TTC-Core-fromBuf_TTC__SizeChange arg-1241 eta-0))))) arg-1238 arg-1240))) (lambda (arg-1240) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1238) (lambda (arg-1241) (Binary-Utils-toBuf_TTC__Nat arg-1238 arg-1241))) (lambda (arg-1241) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-1241 eta-1)))) (vector 0 (lambda (arg-1238) (lambda (arg-1241) (TTC-Core-toBuf_TTC__SizeChange arg-1238 arg-1241))) (lambda (arg-1241) (lambda (eta-1) (TTC-Core-fromBuf_TTC__SizeChange arg-1241 eta-1))))) arg-1240 eta-0)))) arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-1237) (lambda (arg-1239) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1238) (lambda (arg-1241) (Binary-Utils-toBuf_TTC__Nat arg-1238 arg-1241))) (lambda (arg-1241) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-1241 eta-1)))) (vector 0 (lambda (arg-1238) (lambda (arg-1241) (TTC-Core-toBuf_TTC__SizeChange arg-1238 arg-1241))) (lambda (arg-1241) (lambda (eta-1) (TTC-Core-fromBuf_TTC__SizeChange arg-1241 eta-1))))) arg-1237 arg-1239))) (lambda (arg-1241) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1237) (lambda (arg-1239) (Binary-Utils-toBuf_TTC__Nat arg-1237 arg-1239))) (lambda (arg-1242) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Nat arg-1242 eta-2)))) (vector 0 (lambda (arg-1237) (lambda (arg-1239) (TTC-Core-toBuf_TTC__SizeChange arg-1237 arg-1239))) (lambda (arg-1242) (lambda (eta-2) (TTC-Core-fromBuf_TTC__SizeChange arg-1242 eta-2))))) arg-1241 eta-1)))) arg-1240 eta-0)))) arg-0 (let ((sc1 arg-1)) (let ((e-1 (vector-ref sc1 2))) e-1)) ext-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-1237) (lambda (arg-1239) (TTC-Core-toBuf_TTC__Name arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-1240 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-1237) (lambda (arg-1239) (TTC-Core-toBuf_TTC__Name arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-1240 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-1237) (lambda (arg-1239) (TTC-Core-toBuf_TTC__Name arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-1240 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-1237) (lambda (arg-1239) (TTC-Core-toBuf_TTC__Name arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-1240 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-1237) (lambda (arg-1239) (TTC-Core-toBuf_TTC__Name arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-1240 eta-1)))) arg-0 e-1 eta-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-1237) (lambda (arg-1239) (Binary-Utils-toBuf_TTC__String arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-1240 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-1237) (lambda (arg-1239) (lambda (eta-1) (Binary-Utils-toBuf_TTC__Int arg-1237 arg-1239 eta-1)))) (lambda (arg-1240) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Int arg-1240 eta-1)))) (vector 0 (lambda (arg-1237) (lambda (arg-1239) (lambda (eta-1) (Binary-Utils-toBuf_TTC__Int arg-1237 arg-1239 eta-1)))) (lambda (arg-1240) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Int arg-1240 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__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-1237) (lambda (arg-1239) (TTC-Core-toBuf_TTC__CDef arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-0) (TTC-Core-fromBuf_TTC__CDef arg-1240 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-1237) (lambda (arg-1239) (lambda (eta-0) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1238) (lambda (arg-1240) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1241) (lambda (arg-1242) (TTC-Core-toBuf_TTC__Name arg-1241 arg-1242))) (lambda (arg-1241) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-1241 eta-1)))) (vector 0 (lambda (arg-1241) (lambda (arg-1242) (Binary-Utils-toBuf_TTC__Bool arg-1241 arg-1242))) (lambda (arg-1241) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-1241 eta-1))))) arg-1238 arg-1240))) (lambda (arg-1240) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1238) (lambda (arg-1241) (TTC-Core-toBuf_TTC__Name arg-1238 arg-1241))) (lambda (arg-1241) (lambda (eta-2) (TTC-Core-fromBuf_TTC__Name arg-1241 eta-2)))) (vector 0 (lambda (arg-1238) (lambda (arg-1241) (Binary-Utils-toBuf_TTC__Bool arg-1238 arg-1241))) (lambda (arg-1241) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Bool arg-1241 eta-2))))) arg-1240 eta-1)))) arg-1237 arg-1239 eta-0)))) (lambda (arg-1240) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1237) (lambda (arg-1239) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1238) (lambda (arg-1241) (TTC-Core-toBuf_TTC__Name arg-1238 arg-1241))) (lambda (arg-1241) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-1241 eta-1)))) (vector 0 (lambda (arg-1238) (lambda (arg-1241) (Binary-Utils-toBuf_TTC__Bool arg-1238 arg-1241))) (lambda (arg-1241) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-1241 eta-1))))) arg-1237 arg-1239))) (lambda (arg-1241) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1237) (lambda (arg-1239) (TTC-Core-toBuf_TTC__Name arg-1237 arg-1239))) (lambda (arg-1242) (lambda (eta-2) (TTC-Core-fromBuf_TTC__Name arg-1242 eta-2)))) (vector 0 (lambda (arg-1237) (lambda (arg-1239) (Binary-Utils-toBuf_TTC__Bool arg-1237 arg-1239))) (lambda (arg-1242) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Bool arg-1242 eta-2))))) arg-1241 eta-1)))) arg-1240 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-1237) (lambda (arg-1239) (lambda (eta-0) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1238) (lambda (arg-1240) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1241) (lambda (arg-1242) (TTC-Core-toBuf_TTC__Name arg-1241 arg-1242))) (lambda (arg-1241) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-1241 eta-1)))) (vector 0 (lambda (arg-1241) (lambda (arg-1242) (Binary-Utils-toBuf_TTC__Bool arg-1241 arg-1242))) (lambda (arg-1241) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-1241 eta-1))))) arg-1238 arg-1240))) (lambda (arg-1240) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1238) (lambda (arg-1241) (TTC-Core-toBuf_TTC__Name arg-1238 arg-1241))) (lambda (arg-1241) (lambda (eta-2) (TTC-Core-fromBuf_TTC__Name arg-1241 eta-2)))) (vector 0 (lambda (arg-1238) (lambda (arg-1241) (Binary-Utils-toBuf_TTC__Bool arg-1238 arg-1241))) (lambda (arg-1241) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Bool arg-1241 eta-2))))) arg-1240 eta-1)))) arg-1237 arg-1239 eta-0)))) (lambda (arg-1240) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1237) (lambda (arg-1239) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1238) (lambda (arg-1241) (TTC-Core-toBuf_TTC__Name arg-1238 arg-1241))) (lambda (arg-1241) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-1241 eta-1)))) (vector 0 (lambda (arg-1238) (lambda (arg-1241) (Binary-Utils-toBuf_TTC__Bool arg-1238 arg-1241))) (lambda (arg-1241) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-1241 eta-1))))) arg-1237 arg-1239))) (lambda (arg-1241) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1237) (lambda (arg-1239) (TTC-Core-toBuf_TTC__Name arg-1237 arg-1239))) (lambda (arg-1242) (lambda (eta-2) (TTC-Core-fromBuf_TTC__Name arg-1242 eta-2)))) (vector 0 (lambda (arg-1237) (lambda (arg-1239) (Binary-Utils-toBuf_TTC__Bool arg-1237 arg-1239))) (lambda (arg-1242) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Bool arg-1242 eta-2))))) arg-1241 eta-1)))) arg-1240 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--16394-10053-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-1237) (lambda (arg-1239) (Binary-Utils-toBuf_TTC__Nat arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Nat arg-1240 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-1237) (lambda (arg-1239) (Binary-Utils-toBuf_TTC__Nat arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Nat arg-1240 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-1237) (lambda (arg-1239) (Binary-Utils-toBuf_TTC__Nat arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Nat arg-1240 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-1237) (lambda (arg-1239) (Binary-Utils-toBuf_TTC__Nat arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Nat arg-1240 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-1237) (lambda (arg-1239) (TTC-Core-toBuf_TTC__Name arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-1240 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-1237) (lambda (arg-1239) (TTC-Core-toBuf_TTC__DefFlag arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-0) (TTC-Core-fromBuf_TTC__DefFlag arg-1240 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-1237) (lambda (arg-1239) (lambda (eta-0) (TTC-Core-toBuf_TTC__SCCall arg-1237 arg-1239 eta-0)))) (lambda (arg-1240) (lambda (eta-0) (TTC-Core-fromBuf_TTC__SCCall arg-1240 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-1237) (lambda (arg-1239) (lambda (eta-1) (Binary-Utils-toBuf_TTC__Int arg-1237 arg-1239 eta-1)))) (lambda (arg-1240) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Int arg-1240 eta-1)))) (vector 0 (lambda (arg-1237) (lambda (arg-1239) (lambda (eta-1) (Binary-Utils-toBuf_TTC__Int arg-1237 arg-1239 eta-1)))) (lambda (arg-1240) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Int arg-1240 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-1237) (lambda (arg-1239) (lambda (eta-1) (Binary-Utils-toBuf_TTC__Int arg-1237 arg-1239 eta-1)))) (lambda (arg-1240) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Int arg-1240 eta-1)))) (vector 0 (lambda (arg-1237) (lambda (arg-1239) (lambda (eta-1) (Binary-Utils-toBuf_TTC__Int arg-1237 arg-1239 eta-1)))) (lambda (arg-1240) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Int arg-1240 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))) (else (lambda (eta-0) (Binary-Utils-tag arg-0 9 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-1237) (lambda (arg-1239) (TTC-Core-toBuf_TTC__Name arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-1240 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-1237) (lambda (arg-1239) (Binary-Utils-toBuf_TTC__C-40C-40DPairC-32C-36aC-41C-32C-36pC-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1238) (lambda (arg-1240) (lambda (eta-1) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1241) (lambda (arg-1242) (TTC-Core-toBuf_TTC__Name arg-1241 arg-1242))) (lambda (arg-1241) (lambda (eta-2) (TTC-Core-fromBuf_TTC__Name arg-1241 eta-2)))) arg-1238 arg-1240 eta-1)))) (lambda (arg-1240) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1238) (lambda (arg-1241) (TTC-Core-toBuf_TTC__Name arg-1238 arg-1241))) (lambda (arg-1241) (lambda (eta-2) (TTC-Core-fromBuf_TTC__Name arg-1241 eta-2)))) arg-1240 eta-1)))) (lambda (y) (vector 0 (lambda (arg-1238) (lambda (arg-1240) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1241) (lambda (arg-1242) (TTC-Core-toBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 y arg-1241 arg-1242))) (lambda (arg-1241) (TTC-Core-fromBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 y arg-1241))) (vector 0 (lambda (arg-1241) (lambda (arg-1242) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1243) (lambda (arg-1244) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-1243 arg-1244))) (lambda (arg-1243) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-1243 eta-1)))) (vector 0 (lambda (arg-1243) (lambda (arg-1244) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-1243 arg-1244))) (lambda (arg-1243) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-1243 eta-1))))) arg-1241 arg-1242))) (lambda (arg-1241) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1242) (lambda (arg-1243) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-1242 arg-1243))) (lambda (arg-1242) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-1242 eta-2)))) (vector 0 (lambda (arg-1242) (lambda (arg-1243) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-1242 arg-1243))) (lambda (arg-1242) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-1242 eta-2))))) arg-1241 eta-1))))) arg-1238 arg-1240))) (lambda (arg-1240) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1238) (lambda (arg-1241) (TTC-Core-toBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 y arg-1238 arg-1241))) (lambda (arg-1241) (TTC-Core-fromBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 y arg-1241))) (vector 0 (lambda (arg-1238) (lambda (arg-1241) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1242) (lambda (arg-1243) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-1242 arg-1243))) (lambda (arg-1242) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-1242 eta-2)))) (vector 0 (lambda (arg-1242) (lambda (arg-1243) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-1242 arg-1243))) (lambda (arg-1242) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-1242 eta-2))))) arg-1238 arg-1241))) (lambda (arg-1241) (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-1238) (lambda (arg-1242) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-1238 arg-1242))) (lambda (arg-1242) (lambda (eta-3) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-1242 eta-3)))) (vector 0 (lambda (arg-1238) (lambda (arg-1242) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-1238 arg-1242))) (lambda (arg-1242) (lambda (eta-3) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-1242 eta-3))))) arg-1241 eta-2))))) arg-1240 eta-1)))))) arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-40DPairC-32C-36aC-41C-32C-36pC-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1237) (lambda (arg-1239) (lambda (eta-2) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1238) (lambda (arg-1241) (TTC-Core-toBuf_TTC__Name arg-1238 arg-1241))) (lambda (arg-1241) (lambda (eta-3) (TTC-Core-fromBuf_TTC__Name arg-1241 eta-3)))) arg-1237 arg-1239 eta-2)))) (lambda (arg-1241) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1237) (lambda (arg-1239) (TTC-Core-toBuf_TTC__Name arg-1237 arg-1239))) (lambda (arg-1242) (lambda (eta-3) (TTC-Core-fromBuf_TTC__Name arg-1242 eta-3)))) arg-1241 eta-2)))) (lambda (y) (vector 0 (lambda (arg-1237) (lambda (arg-1239) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1238) (lambda (arg-1241) (TTC-Core-toBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 y arg-1238 arg-1241))) (lambda (arg-1241) (TTC-Core-fromBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 y arg-1241))) (vector 0 (lambda (arg-1238) (lambda (arg-1241) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1242) (lambda (arg-1243) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-1242 arg-1243))) (lambda (arg-1242) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-1242 eta-2)))) (vector 0 (lambda (arg-1242) (lambda (arg-1243) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-1242 arg-1243))) (lambda (arg-1242) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-1242 eta-2))))) arg-1238 arg-1241))) (lambda (arg-1241) (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-1238) (lambda (arg-1242) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-1238 arg-1242))) (lambda (arg-1242) (lambda (eta-3) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-1242 eta-3)))) (vector 0 (lambda (arg-1238) (lambda (arg-1242) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-1238 arg-1242))) (lambda (arg-1242) (lambda (eta-3) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-1242 eta-3))))) arg-1241 eta-2))))) arg-1237 arg-1239))) (lambda (arg-1241) (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-1237) (lambda (arg-1239) (TTC-Core-toBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 y arg-1237 arg-1239))) (lambda (arg-1242) (TTC-Core-fromBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 y arg-1242))) (vector 0 (lambda (arg-1237) (lambda (arg-1239) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1238) (lambda (arg-1242) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-1238 arg-1242))) (lambda (arg-1242) (lambda (eta-3) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-1242 eta-3)))) (vector 0 (lambda (arg-1238) (lambda (arg-1242) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-1238 arg-1242))) (lambda (arg-1242) (lambda (eta-3) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-1242 eta-3))))) arg-1237 arg-1239))) (lambda (arg-1242) (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-1237) (lambda (arg-1239) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-1237 arg-1239))) (lambda (arg-1243) (lambda (eta-4) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-1243 eta-4)))) (vector 0 (lambda (arg-1237) (lambda (arg-1239) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-1237 arg-1239))) (lambda (arg-1243) (lambda (eta-4) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-1243 eta-4))))) arg-1242 eta-3))))) arg-1241 eta-2)))))) arg-1240 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-1237) (lambda (arg-1239) (Binary-Utils-toBuf_TTC__String arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-1240 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-1237) (lambda (arg-1239) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1238) (lambda (arg-1240) (Binary-Utils-toBuf_TTC__Bool arg-1238 arg-1240))) (lambda (arg-1240) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-1240 eta-1)))) (vector 0 (lambda (arg-1238) (lambda (arg-1240) (Binary-Utils-toBuf_TTC__Nat arg-1238 arg-1240))) (lambda (arg-1240) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-1240 eta-1))))) arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1237) (lambda (arg-1239) (Binary-Utils-toBuf_TTC__Bool arg-1237 arg-1239))) (lambda (arg-1241) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Bool arg-1241 eta-2)))) (vector 0 (lambda (arg-1237) (lambda (arg-1239) (Binary-Utils-toBuf_TTC__Nat arg-1237 arg-1239))) (lambda (arg-1241) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Nat arg-1241 eta-2))))) arg-1240 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-1237) (lambda (arg-1239) (Binary-Utils-toBuf_TTC__Nat arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-1240 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-1237) (lambda (arg-1239) (Binary-Utils-toBuf_TTC__Nat arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-1240 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-1237) (lambda (arg-1239) (TTC-Core-toBuf_TTC__Name arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-1240 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-1237) (lambda (arg-1239) (TTC-Core-toBuf_TTC__Name arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-1240 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-1237) (lambda (arg-1239) (lambda (eta-1) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1238) (lambda (arg-1240) (Binary-Utils-toBuf_TTC__Nat arg-1238 arg-1240))) (lambda (arg-1240) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Nat arg-1240 eta-2)))) arg-1237 arg-1239 eta-1)))) (lambda (arg-1240) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1237) (lambda (arg-1239) (Binary-Utils-toBuf_TTC__Nat arg-1237 arg-1239))) (lambda (arg-1241) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Nat arg-1241 eta-2)))) arg-1240 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-1237) (lambda (arg-1239) (lambda (eta-1) (Binary-Utils-toBuf_TTC__Int arg-1237 arg-1239 eta-1)))) (lambda (arg-1240) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Int arg-1240 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-1237) (lambda (arg-1239) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-1240 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-1237) (lambda (arg-1239) (TTC-Core-toBuf_TTC__Name arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-1240 eta-1)))) arg-0 e-1 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--16492-10098-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-1237) (lambda (arg-1239) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1238) (lambda (arg-1240) (Binary-Utils-toBuf_TTC__String arg-1238 arg-1240))) (lambda (arg-1240) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-1240 eta-1)))) (vector 0 (lambda (arg-1238) (lambda (arg-1240) (TTC-Core-toBuf_TTC__CFType arg-1238 arg-1240))) (lambda (arg-1240) (lambda (eta-1) (TTC-Core-fromBuf_TTC__CFType arg-1240 eta-1))))) arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1237) (lambda (arg-1239) (Binary-Utils-toBuf_TTC__String arg-1237 arg-1239))) (lambda (arg-1241) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__String arg-1241 eta-2)))) (vector 0 (lambda (arg-1237) (lambda (arg-1239) (TTC-Core-toBuf_TTC__CFType arg-1237 arg-1239))) (lambda (arg-1241) (lambda (eta-2) (TTC-Core-fromBuf_TTC__CFType arg-1241 eta-2))))) arg-1240 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-1237) (lambda (arg-1239) (TTC-Core-toBuf_TTC__CFType arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-1) (TTC-Core-fromBuf_TTC__CFType arg-1240 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-1237) (lambda (arg-1239) (TTC-Core-toBuf_TTC__Name arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-1240 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-1237) (lambda (arg-1239) (lambda (eta-1) (Binary-Utils-toBuf_TTC__Int arg-1237 arg-1239 eta-1)))) (lambda (arg-1240) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Int arg-1240 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-1237) (lambda (arg-1239) (Binary-Utils-toBuf_TTC__Nat arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-1240 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-1237) (lambda (arg-1239) (Binary-Utils-toBuf_TTC__String arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-1240 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-1237) (lambda (arg-1239) (TTC-Core-toBuf_TTC__CFType arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-1) (TTC-Core-fromBuf_TTC__CFType arg-1240 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--10685-4336 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-1237) (lambda (arg-1239) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-1240 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__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--10771-4369 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-1237) (lambda (arg-1239) (TTC-Core-toBuf_TTC__C-40CaseAltC-32C-36varsC-41 arg-0 arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40CaseAltC-32C-36varsC-41 arg-0 arg-1240 eta-1)))) arg-1 e-5 eta-0)))))))))))))))))) ((1) (let ((e-7 (vector-ref sc0 1))) (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-7) eta-0)))))))) ((2) (let ((e-9 (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-9) 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-1237) (lambda (arg-1239) (TTC-Core-toBuf_TTC__Name arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-1240 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-1237) (lambda (arg-1239) (TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-1240 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-1237) (lambda (arg-1239) (lambda (eta-1) (Binary-Utils-toBuf_TTC__Int arg-1237 arg-1239 eta-1)))) (lambda (arg-1240) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Int arg-1240 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-1237) (lambda (arg-1239) (TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-1240 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-1237) (lambda (arg-1239) (TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-1240 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-1237) (lambda (arg-1239) (TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-1240 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-1237) (lambda (arg-1239) (TTC-Core-toBuf_TTC__C-40CConAltC-32C-36varsC-41 arg-0 arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40CConAltC-32C-36varsC-41 arg-0 arg-1240 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-1237) (lambda (arg-1239) (TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-1240 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-1237) (lambda (arg-1239) (TTC-Core-toBuf_TTC__C-40CConstAltC-32C-36varsC-41 arg-0 arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40CConstAltC-32C-36varsC-41 arg-0 arg-1240 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-1237) (lambda (arg-1239) (TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-1240 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-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-7 (vector-ref sc0 1))) (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-7) eta-0)))))))) ((2) (let ((e-9 (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-9) 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-1237) (lambda (arg-1239) (lambda (eta-1) (Binary-Utils-toBuf_TTC__Int arg-1237 arg-1239 eta-1)))) (lambda (arg-1240) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Int arg-1240 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-1237) (lambda (arg-1239) (TTC-Core-toBuf_TTC__Name arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-1240 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-1237) (lambda (arg-1239) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-1240 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-1237) (lambda (arg-1239) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-1240 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-1237) (lambda (arg-1239) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-1240 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-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-1237) (lambda (arg-1239) (TTC-Core-toBuf_TTC__Name arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-1240 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__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-1237) (lambda (arg-1239) (Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-1238) (lambda (arg-1240) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1241) (lambda (arg-1242) (Binary-Utils-toBuf_TTC__Nat arg-1241 arg-1242))) (lambda (arg-1241) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Nat arg-1241 eta-0)))) (vector 0 (lambda (arg-1241) (lambda (arg-1242) (TTC-Core-toBuf_TTC__SizeChange arg-1241 arg-1242))) (lambda (arg-1241) (lambda (eta-0) (TTC-Core-fromBuf_TTC__SizeChange arg-1241 eta-0))))) arg-1238 arg-1240))) (lambda (arg-1240) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1238) (lambda (arg-1241) (Binary-Utils-toBuf_TTC__Nat arg-1238 arg-1241))) (lambda (arg-1241) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-1241 eta-1)))) (vector 0 (lambda (arg-1238) (lambda (arg-1241) (TTC-Core-toBuf_TTC__SizeChange arg-1238 arg-1241))) (lambda (arg-1241) (lambda (eta-1) (TTC-Core-fromBuf_TTC__SizeChange arg-1241 eta-1))))) arg-1240 eta-0)))) arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-1237) (lambda (arg-1239) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1238) (lambda (arg-1241) (Binary-Utils-toBuf_TTC__Nat arg-1238 arg-1241))) (lambda (arg-1241) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-1241 eta-1)))) (vector 0 (lambda (arg-1238) (lambda (arg-1241) (TTC-Core-toBuf_TTC__SizeChange arg-1238 arg-1241))) (lambda (arg-1241) (lambda (eta-1) (TTC-Core-fromBuf_TTC__SizeChange arg-1241 eta-1))))) arg-1237 arg-1239))) (lambda (arg-1241) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1237) (lambda (arg-1239) (Binary-Utils-toBuf_TTC__Nat arg-1237 arg-1239))) (lambda (arg-1242) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Nat arg-1242 eta-2)))) (vector 0 (lambda (arg-1237) (lambda (arg-1239) (TTC-Core-toBuf_TTC__SizeChange arg-1237 arg-1239))) (lambda (arg-1242) (lambda (eta-2) (TTC-Core-fromBuf_TTC__SizeChange arg-1242 eta-2))))) arg-1241 eta-1)))) arg-1240 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__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-1237) (lambda (arg-1239) (TTC-Core-toBuf_TTC__Name arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-1240 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-1237) (lambda (arg-1239) (TTC-Core-toBuf_TTC__Name arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-1240 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-1237) (lambda (arg-1239) (TTC-Core-toBuf_TTC__Name arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-1240 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-1237) (lambda (arg-1239) (TTC-Core-toBuf_TTC__Name arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-1240 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-1237) (lambda (arg-1239) (TTC-Core-toBuf_TTC__Name arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-1240 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__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-1237) (lambda (arg-1239) (Binary-Utils-toBuf_TTC__String arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__String arg-1240 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-1237) (lambda (arg-1239) (lambda (eta-0) (Binary-Utils-toBuf_TTC__Int arg-1237 arg-1239 eta-0)))) (lambda (arg-1240) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Int arg-1240 eta-0)))) (vector 0 (lambda (arg-1237) (lambda (arg-1239) (lambda (eta-0) (Binary-Utils-toBuf_TTC__Int arg-1237 arg-1239 eta-0)))) (lambda (arg-1240) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Int arg-1240 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__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-1237) (lambda (arg-1239) (TTC-Core-toBuf_TTC__CDef arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-0) (TTC-Core-fromBuf_TTC__CDef arg-1240 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-1237) (lambda (arg-1239) (lambda (eta-0) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1238) (lambda (arg-1240) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1241) (lambda (arg-1242) (TTC-Core-toBuf_TTC__Name arg-1241 arg-1242))) (lambda (arg-1241) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-1241 eta-1)))) (vector 0 (lambda (arg-1241) (lambda (arg-1242) (Binary-Utils-toBuf_TTC__Bool arg-1241 arg-1242))) (lambda (arg-1241) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-1241 eta-1))))) arg-1238 arg-1240))) (lambda (arg-1240) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1238) (lambda (arg-1241) (TTC-Core-toBuf_TTC__Name arg-1238 arg-1241))) (lambda (arg-1241) (lambda (eta-2) (TTC-Core-fromBuf_TTC__Name arg-1241 eta-2)))) (vector 0 (lambda (arg-1238) (lambda (arg-1241) (Binary-Utils-toBuf_TTC__Bool arg-1238 arg-1241))) (lambda (arg-1241) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Bool arg-1241 eta-2))))) arg-1240 eta-1)))) arg-1237 arg-1239 eta-0)))) (lambda (arg-1240) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1237) (lambda (arg-1239) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1238) (lambda (arg-1241) (TTC-Core-toBuf_TTC__Name arg-1238 arg-1241))) (lambda (arg-1241) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-1241 eta-1)))) (vector 0 (lambda (arg-1238) (lambda (arg-1241) (Binary-Utils-toBuf_TTC__Bool arg-1238 arg-1241))) (lambda (arg-1241) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-1241 eta-1))))) arg-1237 arg-1239))) (lambda (arg-1241) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1237) (lambda (arg-1239) (TTC-Core-toBuf_TTC__Name arg-1237 arg-1239))) (lambda (arg-1242) (lambda (eta-2) (TTC-Core-fromBuf_TTC__Name arg-1242 eta-2)))) (vector 0 (lambda (arg-1237) (lambda (arg-1239) (Binary-Utils-toBuf_TTC__Bool arg-1237 arg-1239))) (lambda (arg-1242) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Bool arg-1242 eta-2))))) arg-1241 eta-1)))) arg-1240 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-1237) (lambda (arg-1239) (lambda (eta-0) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1238) (lambda (arg-1240) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1241) (lambda (arg-1242) (TTC-Core-toBuf_TTC__Name arg-1241 arg-1242))) (lambda (arg-1241) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-1241 eta-1)))) (vector 0 (lambda (arg-1241) (lambda (arg-1242) (Binary-Utils-toBuf_TTC__Bool arg-1241 arg-1242))) (lambda (arg-1241) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-1241 eta-1))))) arg-1238 arg-1240))) (lambda (arg-1240) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1238) (lambda (arg-1241) (TTC-Core-toBuf_TTC__Name arg-1238 arg-1241))) (lambda (arg-1241) (lambda (eta-2) (TTC-Core-fromBuf_TTC__Name arg-1241 eta-2)))) (vector 0 (lambda (arg-1238) (lambda (arg-1241) (Binary-Utils-toBuf_TTC__Bool arg-1238 arg-1241))) (lambda (arg-1241) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Bool arg-1241 eta-2))))) arg-1240 eta-1)))) arg-1237 arg-1239 eta-0)))) (lambda (arg-1240) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1237) (lambda (arg-1239) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1238) (lambda (arg-1241) (TTC-Core-toBuf_TTC__Name arg-1238 arg-1241))) (lambda (arg-1241) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-1241 eta-1)))) (vector 0 (lambda (arg-1238) (lambda (arg-1241) (Binary-Utils-toBuf_TTC__Bool arg-1238 arg-1241))) (lambda (arg-1241) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-1241 eta-1))))) arg-1237 arg-1239))) (lambda (arg-1241) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1237) (lambda (arg-1239) (TTC-Core-toBuf_TTC__Name arg-1237 arg-1239))) (lambda (arg-1242) (lambda (eta-2) (TTC-Core-fromBuf_TTC__Name arg-1242 eta-2)))) (vector 0 (lambda (arg-1237) (lambda (arg-1239) (Binary-Utils-toBuf_TTC__Bool arg-1237 arg-1239))) (lambda (arg-1242) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Bool arg-1242 eta-2))))) arg-1241 eta-1)))) arg-1240 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--16396-10294 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-1237) (lambda (arg-1239) (lambda (eta-0) (Binary-Utils-toBuf_TTC__Int arg-1237 arg-1239 eta-0)))) (lambda (arg-1240) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Int arg-1240 eta-0)))) (vector 0 (lambda (arg-1237) (lambda (arg-1239) (lambda (eta-0) (Binary-Utils-toBuf_TTC__Int arg-1237 arg-1239 eta-0)))) (lambda (arg-1240) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Int arg-1240 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-1237) (lambda (arg-1239) (lambda (eta-0) (Binary-Utils-toBuf_TTC__Int arg-1237 arg-1239 eta-0)))) (lambda (arg-1240) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Int arg-1240 eta-0)))) (vector 0 (lambda (arg-1237) (lambda (arg-1239) (lambda (eta-0) (Binary-Utils-toBuf_TTC__Int arg-1237 arg-1239 eta-0)))) (lambda (arg-1240) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Int arg-1240 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))(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-1237) (lambda (arg-1239) (TTC-Core-toBuf_TTC__Name arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-1240 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-1237) (lambda (arg-1239) (Binary-Utils-toBuf_TTC__C-40C-40DPairC-32C-36aC-41C-32C-36pC-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1238) (lambda (arg-1240) (lambda (eta-0) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1241) (lambda (arg-1242) (TTC-Core-toBuf_TTC__Name arg-1241 arg-1242))) (lambda (arg-1241) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-1241 eta-1)))) arg-1238 arg-1240 eta-0)))) (lambda (arg-1240) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1238) (lambda (arg-1241) (TTC-Core-toBuf_TTC__Name arg-1238 arg-1241))) (lambda (arg-1241) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-1241 eta-1)))) arg-1240 eta-0)))) (lambda (y) (vector 0 (lambda (arg-1238) (lambda (arg-1240) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1241) (lambda (arg-1242) (TTC-Core-toBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 y arg-1241 arg-1242))) (lambda (arg-1241) (TTC-Core-fromBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 y arg-1241))) (vector 0 (lambda (arg-1241) (lambda (arg-1242) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1243) (lambda (arg-1244) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-1243 arg-1244))) (lambda (arg-1243) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-1243 eta-0)))) (vector 0 (lambda (arg-1243) (lambda (arg-1244) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-1243 arg-1244))) (lambda (arg-1243) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-1243 eta-0))))) arg-1241 arg-1242))) (lambda (arg-1241) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1242) (lambda (arg-1243) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-1242 arg-1243))) (lambda (arg-1242) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-1242 eta-1)))) (vector 0 (lambda (arg-1242) (lambda (arg-1243) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-1242 arg-1243))) (lambda (arg-1242) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-1242 eta-1))))) arg-1241 eta-0))))) arg-1238 arg-1240))) (lambda (arg-1240) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1238) (lambda (arg-1241) (TTC-Core-toBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 y arg-1238 arg-1241))) (lambda (arg-1241) (TTC-Core-fromBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 y arg-1241))) (vector 0 (lambda (arg-1238) (lambda (arg-1241) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1242) (lambda (arg-1243) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-1242 arg-1243))) (lambda (arg-1242) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-1242 eta-1)))) (vector 0 (lambda (arg-1242) (lambda (arg-1243) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-1242 arg-1243))) (lambda (arg-1242) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-1242 eta-1))))) arg-1238 arg-1241))) (lambda (arg-1241) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1238) (lambda (arg-1242) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-1238 arg-1242))) (lambda (arg-1242) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-1242 eta-2)))) (vector 0 (lambda (arg-1238) (lambda (arg-1242) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-1238 arg-1242))) (lambda (arg-1242) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-1242 eta-2))))) arg-1241 eta-1))))) arg-1240 eta-0)))))) arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-40DPairC-32C-36aC-41C-32C-36pC-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1237) (lambda (arg-1239) (lambda (eta-1) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1238) (lambda (arg-1241) (TTC-Core-toBuf_TTC__Name arg-1238 arg-1241))) (lambda (arg-1241) (lambda (eta-2) (TTC-Core-fromBuf_TTC__Name arg-1241 eta-2)))) arg-1237 arg-1239 eta-1)))) (lambda (arg-1241) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1237) (lambda (arg-1239) (TTC-Core-toBuf_TTC__Name arg-1237 arg-1239))) (lambda (arg-1242) (lambda (eta-2) (TTC-Core-fromBuf_TTC__Name arg-1242 eta-2)))) arg-1241 eta-1)))) (lambda (y) (vector 0 (lambda (arg-1237) (lambda (arg-1239) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1238) (lambda (arg-1241) (TTC-Core-toBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 y arg-1238 arg-1241))) (lambda (arg-1241) (TTC-Core-fromBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 y arg-1241))) (vector 0 (lambda (arg-1238) (lambda (arg-1241) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1242) (lambda (arg-1243) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-1242 arg-1243))) (lambda (arg-1242) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-1242 eta-1)))) (vector 0 (lambda (arg-1242) (lambda (arg-1243) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-1242 arg-1243))) (lambda (arg-1242) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-1242 eta-1))))) arg-1238 arg-1241))) (lambda (arg-1241) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1238) (lambda (arg-1242) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-1238 arg-1242))) (lambda (arg-1242) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-1242 eta-2)))) (vector 0 (lambda (arg-1238) (lambda (arg-1242) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-1238 arg-1242))) (lambda (arg-1242) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-1242 eta-2))))) arg-1241 eta-1))))) arg-1237 arg-1239))) (lambda (arg-1241) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1237) (lambda (arg-1239) (TTC-Core-toBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 y arg-1237 arg-1239))) (lambda (arg-1242) (TTC-Core-fromBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 y arg-1242))) (vector 0 (lambda (arg-1237) (lambda (arg-1239) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1238) (lambda (arg-1242) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-1238 arg-1242))) (lambda (arg-1242) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-1242 eta-2)))) (vector 0 (lambda (arg-1238) (lambda (arg-1242) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-1238 arg-1242))) (lambda (arg-1242) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-1242 eta-2))))) arg-1237 arg-1239))) (lambda (arg-1242) (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-1237) (lambda (arg-1239) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-1237 arg-1239))) (lambda (arg-1243) (lambda (eta-3) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-1243 eta-3)))) (vector 0 (lambda (arg-1237) (lambda (arg-1239) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-1237 arg-1239))) (lambda (arg-1243) (lambda (eta-3) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-1243 eta-3))))) arg-1242 eta-2))))) arg-1241 eta-1)))))) arg-1240 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-1237) (lambda (arg-1239) (Binary-Utils-toBuf_TTC__String arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__String arg-1240 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-1237) (lambda (arg-1239) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1238) (lambda (arg-1240) (Binary-Utils-toBuf_TTC__Bool arg-1238 arg-1240))) (lambda (arg-1240) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Bool arg-1240 eta-0)))) (vector 0 (lambda (arg-1238) (lambda (arg-1240) (Binary-Utils-toBuf_TTC__Nat arg-1238 arg-1240))) (lambda (arg-1240) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Nat arg-1240 eta-0))))) arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1237) (lambda (arg-1239) (Binary-Utils-toBuf_TTC__Bool arg-1237 arg-1239))) (lambda (arg-1241) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-1241 eta-1)))) (vector 0 (lambda (arg-1237) (lambda (arg-1239) (Binary-Utils-toBuf_TTC__Nat arg-1237 arg-1239))) (lambda (arg-1241) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-1241 eta-1))))) arg-1240 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-1237) (lambda (arg-1239) (Binary-Utils-toBuf_TTC__Nat arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Nat arg-1240 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-1237) (lambda (arg-1239) (Binary-Utils-toBuf_TTC__Nat arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Nat arg-1240 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-1237) (lambda (arg-1239) (TTC-Core-toBuf_TTC__Name arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-1240 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-1237) (lambda (arg-1239) (TTC-Core-toBuf_TTC__Name arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-1240 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-1237) (lambda (arg-1239) (lambda (eta-0) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1238) (lambda (arg-1240) (Binary-Utils-toBuf_TTC__Nat arg-1238 arg-1240))) (lambda (arg-1240) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-1240 eta-1)))) arg-1237 arg-1239 eta-0)))) (lambda (arg-1240) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1237) (lambda (arg-1239) (Binary-Utils-toBuf_TTC__Nat arg-1237 arg-1239))) (lambda (arg-1241) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-1241 eta-1)))) arg-1240 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-1237) (lambda (arg-1239) (lambda (eta-0) (Binary-Utils-toBuf_TTC__Int arg-1237 arg-1239 eta-0)))) (lambda (arg-1240) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Int arg-1240 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-1237) (lambda (arg-1239) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-1240 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-1237) (lambda (arg-1239) (TTC-Core-toBuf_TTC__Name arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-1240 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__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--16494-10339 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-1237) (lambda (arg-1239) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1238) (lambda (arg-1240) (Binary-Utils-toBuf_TTC__String arg-1238 arg-1240))) (lambda (arg-1240) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__String arg-1240 eta-0)))) (vector 0 (lambda (arg-1238) (lambda (arg-1240) (TTC-Core-toBuf_TTC__CFType arg-1238 arg-1240))) (lambda (arg-1240) (lambda (eta-0) (TTC-Core-fromBuf_TTC__CFType arg-1240 eta-0))))) arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1237) (lambda (arg-1239) (Binary-Utils-toBuf_TTC__String arg-1237 arg-1239))) (lambda (arg-1241) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-1241 eta-1)))) (vector 0 (lambda (arg-1237) (lambda (arg-1239) (TTC-Core-toBuf_TTC__CFType arg-1237 arg-1239))) (lambda (arg-1241) (lambda (eta-1) (TTC-Core-fromBuf_TTC__CFType arg-1241 eta-1))))) arg-1240 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-1237) (lambda (arg-1239) (TTC-Core-toBuf_TTC__CFType arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-0) (TTC-Core-fromBuf_TTC__CFType arg-1240 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-1237) (lambda (arg-1239) (TTC-Core-toBuf_TTC__Name arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-1240 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-1237) (lambda (arg-1239) (lambda (eta-0) (Binary-Utils-toBuf_TTC__Int arg-1237 arg-1239 eta-0)))) (lambda (arg-1240) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Int arg-1240 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-1237) (lambda (arg-1239) (Binary-Utils-toBuf_TTC__Nat arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Nat arg-1240 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-1237) (lambda (arg-1239) (Binary-Utils-toBuf_TTC__String arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__String arg-1240 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-1237) (lambda (arg-1239) (TTC-Core-toBuf_TTC__CFType arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-0) (TTC-Core-fromBuf_TTC__CFType arg-1240 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-1237) (lambda (arg-1239) (Binary-Utils-toBuf_TTC__Bool arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Bool arg-1240 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-1237) (lambda (arg-1239) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-1240 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-1237) (lambda (arg-1239) (Binary-Utils-toBuf_TTC__Bool arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Bool arg-1240 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--11032-4961 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--12691-6686-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--12691-6687-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--12691-6688-fromBuf3 arg-1 arg-0 eta-0)))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "PrimFn" eta-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--11118-4994 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--12777-6719-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--12777-6720-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--12777-6721-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-1237) (lambda (arg-1239) (TTC-Core-toBuf_TTC__C-40CaseAltC-32C-36varsC-41 arg-0 arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40CaseAltC-32C-36varsC-41 arg-0 arg-1240 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 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-1237) (lambda (arg-1239) (TTC-Core-toBuf_TTC__Name arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-1240 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--14032-7714 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-1237) (lambda (arg-1239) (TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-1240 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-1237) (lambda (arg-1239) (lambda (eta-0) (Binary-Utils-toBuf_TTC__Int arg-1237 arg-1239 eta-0)))) (lambda (arg-1240) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Int arg-1240 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-1237) (lambda (arg-1239) (TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-1240 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-1237) (lambda (arg-1239) (TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-1240 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-1237) (lambda (arg-1239) (TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-1240 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-1237) (lambda (arg-1239) (TTC-Core-toBuf_TTC__C-40CConAltC-32C-36varsC-41 arg-0 arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40CConAltC-32C-36varsC-41 arg-0 arg-1240 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-1237) (lambda (arg-1239) (TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-1240 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-1237) (lambda (arg-1239) (TTC-Core-toBuf_TTC__C-40CConstAltC-32C-36varsC-41 arg-0 arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40CConstAltC-32C-36varsC-41 arg-0 arg-1240 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-1237) (lambda (arg-1239) (TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-1240 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-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 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--14118-7747 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-1237) (lambda (arg-1239) (lambda (eta-0) (Binary-Utils-toBuf_TTC__Int arg-1237 arg-1239 eta-0)))) (lambda (arg-1240) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Int arg-1240 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-1237) (lambda (arg-1239) (TTC-Core-toBuf_TTC__Name arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-1240 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-1237) (lambda (arg-1239) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-1240 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-1237) (lambda (arg-1239) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-1240 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-1237) (lambda (arg-1239) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-1240 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-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-1237) (lambda (arg-1239) (TTC-Core-toBuf_TTC__Visibility arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Visibility arg-1240 eta-0)))))) -(define TTC-Core-__Impl_TTC_UseSide (lambda () (vector 0 (lambda (arg-1237) (lambda (arg-1239) (TTC-Core-toBuf_TTC__UseSide arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-0) (TTC-Core-fromBuf_TTC__UseSide arg-1240 eta-0)))))) -(define TTC-Core-__Impl_TTC_TypeFlags (lambda () (vector 0 (lambda (arg-1237) (lambda (arg-1239) (lambda (eta-0) (TTC-Core-toBuf_TTC__TypeFlags arg-1237 arg-1239 eta-0)))) (lambda (arg-1240) (lambda (eta-0) (TTC-Core-fromBuf_TTC__TypeFlags arg-1240 eta-0)))))) -(define TTC-Core-__Impl_TTC_Transform (lambda () (vector 0 (lambda (arg-1237) (lambda (arg-1239) (TTC-Core-toBuf_TTC__Transform arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Transform arg-1240 eta-0)))))) -(define TTC-Core-__Impl_TTC_TotalReq (lambda () (vector 0 (lambda (arg-1237) (lambda (arg-1239) (TTC-Core-toBuf_TTC__TotalReq arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-0) (TTC-Core-fromBuf_TTC__TotalReq arg-1240 eta-0)))))) -(define TTC-Core-__Impl_TTC_SizeChange (lambda () (vector 0 (lambda (arg-1237) (lambda (arg-1239) (TTC-Core-toBuf_TTC__SizeChange arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-0) (TTC-Core-fromBuf_TTC__SizeChange arg-1240 eta-0)))))) -(define TTC-Core-__Impl_TTC_SCCall (lambda () (vector 0 (lambda (arg-1237) (lambda (arg-1239) (lambda (eta-0) (TTC-Core-toBuf_TTC__SCCall arg-1237 arg-1239 eta-0)))) (lambda (arg-1240) (lambda (eta-0) (TTC-Core-fromBuf_TTC__SCCall arg-1240 eta-0)))))) -(define TTC-Core-__Impl_TTC_RigCount (lambda () (vector 0 (lambda (arg-1237) (lambda (arg-1239) (TTC-Core-toBuf_TTC__RigCount arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-0) (TTC-Core-fromBuf_TTC__RigCount arg-1240 eta-0)))))) -(define TTC-Core-__Impl_TTC_RewriteNames (lambda () (vector 0 (lambda (arg-1237) (lambda (arg-1239) (lambda (eta-0) (TTC-Core-toBuf_TTC__RewriteNames arg-1237 arg-1239 eta-0)))) (lambda (arg-1240) (lambda (eta-0) (TTC-Core-fromBuf_TTC__RewriteNames arg-1240 eta-0)))))) -(define TTC-Core-__Impl_TTC_PartialReason (lambda () (vector 0 (lambda (arg-1237) (lambda (arg-1239) (TTC-Core-toBuf_TTC__PartialReason arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-0) (TTC-Core-fromBuf_TTC__PartialReason arg-1240 eta-0)))))) -(define TTC-Core-__Impl_TTC_PairNames (lambda () (vector 0 (lambda (arg-1237) (lambda (arg-1239) (lambda (eta-0) (TTC-Core-toBuf_TTC__PairNames arg-1237 arg-1239 eta-0)))) (lambda (arg-1240) (lambda (eta-0) (TTC-Core-fromBuf_TTC__PairNames arg-1240 eta-0)))))) -(define TTC-Core-__Impl_TTC_PMDefInfo (lambda () (vector 0 (lambda (arg-1237) (lambda (arg-1239) (lambda (eta-0) (TTC-Core-toBuf_TTC__PMDefInfo arg-1237 arg-1239 eta-0)))) (lambda (arg-1240) (lambda (eta-0) (TTC-Core-fromBuf_TTC__PMDefInfo arg-1240 eta-0)))))) -(define TTC-Core-__Impl_TTC_NameType (lambda () (vector 0 (lambda (arg-1237) (lambda (arg-1239) (TTC-Core-toBuf_TTC__NameType arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-0) (TTC-Core-fromBuf_TTC__NameType arg-1240 eta-0)))))) -(define TTC-Core-__Impl_TTC_Name (lambda () (vector 0 (lambda (arg-1237) (lambda (arg-1239) (TTC-Core-toBuf_TTC__Name arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-1240 eta-0)))))) -(define TTC-Core-__Impl_TTC_LazyReason (lambda () (vector 0 (lambda (arg-1237) (lambda (arg-1239) (TTC-Core-toBuf_TTC__LazyReason arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-0) (TTC-Core-fromBuf_TTC__LazyReason arg-1240 eta-0)))))) -(define TTC-Core-__Impl_TTC_FC (lambda () (vector 0 (lambda (arg-1237) (lambda (arg-1239) (TTC-Core-toBuf_TTC__FC arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-0) (TTC-Core-fromBuf_TTC__FC arg-1240 eta-0)))))) -(define TTC-Core-__Impl_TTC_DefFlag (lambda () (vector 0 (lambda (arg-1237) (lambda (arg-1239) (TTC-Core-toBuf_TTC__DefFlag arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-0) (TTC-Core-fromBuf_TTC__DefFlag arg-1240 eta-0)))))) -(define TTC-Core-__Impl_TTC_Constant (lambda () (vector 0 (lambda (arg-1237) (lambda (arg-1239) (TTC-Core-toBuf_TTC__Constant arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Constant arg-1240 eta-0)))))) -(define TTC-Core-__Impl_TTC_CG (lambda () (vector 0 (lambda (arg-1237) (lambda (arg-1239) (TTC-Core-toBuf_TTC__CG arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-0) (TTC-Core-fromBuf_TTC__CG arg-1240 eta-0)))))) -(define TTC-Core-__Impl_TTC_CFType (lambda () (vector 0 (lambda (arg-1237) (lambda (arg-1239) (TTC-Core-toBuf_TTC__CFType arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-0) (TTC-Core-fromBuf_TTC__CFType arg-1240 eta-0)))))) -(define TTC-Core-__Impl_TTC_CDef (lambda () (vector 0 (lambda (arg-1237) (lambda (arg-1239) (TTC-Core-toBuf_TTC__CDef arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-0) (TTC-Core-fromBuf_TTC__CDef arg-1240 eta-0)))))) -(define TTC-Core-__Impl_TTC_C-40TermC-32C-36varsC-41 (lambda (arg-0) (vector 0 (lambda (arg-1237) (lambda (arg-1239) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-1240 eta-0)))))) -(define TTC-Core-__Impl_TTC_C-40PrimFnC-32C-36nC-41 (lambda (arg-0) (vector 0 (lambda (arg-1237) (lambda (arg-1239) (TTC-Core-toBuf_TTC__C-40PrimFnC-32C-36nC-41 arg-0 arg-1237 arg-1239))) (lambda (arg-1240) (TTC-Core-fromBuf_TTC__C-40PrimFnC-32C-36nC-41 arg-0 arg-1240))))) -(define TTC-Core-__Impl_TTC_C-40PiInfoC-32C-36tC-41 (lambda (arg-0 arg-1) (vector 0 (lambda (arg-1237) (lambda (arg-1239) (TTC-Core-toBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased arg-1 arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased arg-1 arg-1240 eta-0)))))) -(define TTC-Core-__Impl_TTC_C-40CaseTreeC-32C-36varsC-41 (lambda (arg-0) (vector 0 (lambda (arg-1237) (lambda (arg-1239) (TTC-Core-toBuf_TTC__C-40CaseTreeC-32C-36varsC-41 arg-0 arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40CaseTreeC-32C-36varsC-41 arg-0 arg-1240 eta-0)))))) -(define TTC-Core-__Impl_TTC_C-40CaseAltC-32C-36varsC-41 (lambda (arg-0) (vector 0 (lambda (arg-1237) (lambda (arg-1239) (TTC-Core-toBuf_TTC__C-40CaseAltC-32C-36varsC-41 arg-0 arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40CaseAltC-32C-36varsC-41 arg-0 arg-1240 eta-0)))))) -(define TTC-Core-__Impl_TTC_C-40CExpC-32C-36varsC-41 (lambda (arg-0) (vector 0 (lambda (arg-1237) (lambda (arg-1239) (TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-1240 eta-0)))))) -(define TTC-Core-__Impl_TTC_C-40CConstAltC-32C-36varsC-41 (lambda (arg-0) (vector 0 (lambda (arg-1237) (lambda (arg-1239) (TTC-Core-toBuf_TTC__C-40CConstAltC-32C-36varsC-41 arg-0 arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40CConstAltC-32C-36varsC-41 arg-0 arg-1240 eta-0)))))) -(define TTC-Core-__Impl_TTC_C-40CConAltC-32C-36varsC-41 (lambda (arg-0) (vector 0 (lambda (arg-1237) (lambda (arg-1239) (TTC-Core-toBuf_TTC__C-40CConAltC-32C-36varsC-41 arg-0 arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40CConAltC-32C-36varsC-41 arg-0 arg-1240 eta-0)))))) -(define TTC-Core-__Impl_TTC_C-40BinderC-32C-40TermC-32C-36varsC-41C-41 (lambda (arg-0) (vector 0 (lambda (arg-1237) (lambda (arg-1239) (TTC-Core-toBuf_TTC__C-40BinderC-32C-40TermC-32C-36varsC-41C-41 arg-0 arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40BinderC-32C-40TermC-32C-36varsC-41C-41 arg-0 arg-1240 eta-0)))))) -(define TTC-Core-__Impl_TTC_C-40C-40EnvC-32TermC-41C-32C-36varsC-41 (lambda (arg-0) (vector 0 (lambda (arg-1237) (lambda (arg-1239) (TTC-Core-toBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 arg-0 arg-1237 arg-1239))) (lambda (arg-1240) (TTC-Core-fromBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 arg-0 arg-1240))))) +(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--16286-19927 (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--16227-19869 (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--15448-19718 (lambda (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))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 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))))))))))))))))))))))))))))) -(define Binary-Core-case--15657-19590 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 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--15496-19307 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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--15496-19210 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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--15448-19168 (lambda (arg-0 arg-1 arg-2 arg-3 arg-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--15496-19210 '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--15496-19307 '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--15392-19127 (lambda (arg-0 arg-1 arg-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))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 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))))))))))))))))))))))))))) 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--15496-19210 '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--15496-19307 '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--15190-19017 (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))) (vector 0 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))))))))))))))))))))))))))))) -(define Binary-Core-case--15190-18946 (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))) (vector 0 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))))))))))))))))))))))))))))) -(define Binary-Core-case--15176-18895 (lambda (arg-0 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))) (vector 0 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))))))))))))))))))))))))))) 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-25 (vector-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))) (vector 0 e-0 e-1 e-25 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))))))))))))))))))))))))))) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0))))))))) -(define Binary-Core-case--15095-18860 (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))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 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)))))))))))))))))))))))))))) -(define Binary-Core-case--15018-18795 (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))) (vector 0 e-0 e-1 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))))))))))))))))))))))))))))) -(define Binary-Core-case--14959-18730 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((sc1 e-4)) (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))) (let ((e-30 (vector-ref sc1 6))) (let ((e-31 (vector-ref sc1 7))) (let ((e-32 (vector-ref sc1 8))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-25 e-26 e-27 e-28 e-29 e-30 (Binary-Core-updatePrimNames arg-0 e-31) e-32) e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24)))))))))))))))))))))))))))))))))))))) -(define Binary-Core-case--14935-18664 (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--14872-18645 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((sc1 e-4)) (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))) (let ((e-30 (vector-ref sc1 6))) (let ((e-31 (vector-ref sc1 7))) (let ((e-32 (vector-ref sc1 8))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-25 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-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24)))))))))))))))))))))))))))))))))))))) -(define Binary-Core-case--14809-18584 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((sc1 e-4)) (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))) (let ((e-30 (vector-ref sc1 6))) (let ((e-31 (vector-ref sc1 7))) (let ((e-32 (vector-ref sc1 8))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-25 e-26 e-27 e-28 (Prelude-C-60C-43C-62_Semigroup__C-40MaybeC-32C-36aC-41 'erased arg-0 e-29) e-30 e-31 e-32) e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24)))))))))))))))))))))))))))))))))))))) -(define Binary-Core-case--14595-18423 (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--14607-18355 (lambda (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--14411-18256 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-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--14302-18078 (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--14283-18065 (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--14302-18078 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--13728-17493 (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--12937-16741-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--12937-16741-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--13342-17309-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--13342-17310-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-4481) (lambda (arg-4482) (Context-Core-full_HasNames__Name arg-4481 arg-4482))) (lambda (arg-4483) (lambda (arg-4484) (Context-Core-resolved_HasNames__Name arg-4483 arg-4484)))) 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-4481) (lambda (arg-4482) (Context-Core-full_HasNames__Name arg-4481 arg-4482))) (lambda (arg-4483) (lambda (arg-4484) (Context-Core-resolved_HasNames__Name arg-4483 arg-4484)))) 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-4481) (lambda (arg-4482) (Context-Core-full_HasNames__Name arg-4481 arg-4482))) (lambda (arg-4483) (lambda (arg-4484) (Context-Core-resolved_HasNames__Name arg-4483 arg-4484)))) 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--13342-17308-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--12936-16713-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--12936-16713-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--13341-17131-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--13341-17132-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-4481) (lambda (arg-4482) (Context-Core-full_HasNames__Name arg-4481 arg-4482))) (lambda (arg-4483) (lambda (arg-4484) (Context-Core-resolved_HasNames__Name arg-4483 arg-4484)))) 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-4481) (lambda (arg-4482) (Context-Core-full_HasNames__Name arg-4481 arg-4482))) (lambda (arg-4483) (lambda (arg-4484) (Context-Core-resolved_HasNames__Name arg-4483 arg-4484)))) 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-4481) (lambda (arg-4482) (Context-Core-full_HasNames__Name arg-4481 arg-4482))) (lambda (arg-4483) (lambda (arg-4484) (Context-Core-resolved_HasNames__Name arg-4483 arg-4484)))) 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--13341-17130-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--14595-18346-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--14607-18355 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--15159-18880-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--15176-18895 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-case--16375-19972 (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--16316-19914 (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--15537-19763 (lambda (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))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 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))))))))))))))))))))))))))))) +(define Binary-Core-case--15746-19635 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 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--15585-19352 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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--15585-19255 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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--15537-19213 (lambda (arg-0 arg-1 arg-2 arg-3 arg-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--15585-19255 '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--15585-19352 '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--15481-19172 (lambda (arg-0 arg-1 arg-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))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 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))))))))))))))))))))))))))) 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--15585-19255 '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--15585-19352 '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--15279-19062 (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))) (vector 0 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))))))))))))))))))))))))))))) +(define Binary-Core-case--15279-18991 (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))) (vector 0 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))))))))))))))))))))))))))))) +(define Binary-Core-case--15265-18940 (lambda (arg-0 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))) (vector 0 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))))))))))))))))))))))))))) 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-25 (vector-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))) (vector 0 e-0 e-1 e-25 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))))))))))))))))))))))))))) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0))))))))) +(define Binary-Core-case--15184-18905 (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))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 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)))))))))))))))))))))))))))) +(define Binary-Core-case--15107-18840 (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))) (vector 0 e-0 e-1 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))))))))))))))))))))))))))))) +(define Binary-Core-case--15048-18775 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((sc1 e-4)) (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))) (let ((e-30 (vector-ref sc1 6))) (let ((e-31 (vector-ref sc1 7))) (let ((e-32 (vector-ref sc1 8))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-25 e-26 e-27 e-28 e-29 e-30 (Binary-Core-updatePrimNames arg-0 e-31) e-32) e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24)))))))))))))))))))))))))))))))))))))) +(define Binary-Core-case--15024-18709 (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--14961-18690 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((sc1 e-4)) (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))) (let ((e-30 (vector-ref sc1 6))) (let ((e-31 (vector-ref sc1 7))) (let ((e-32 (vector-ref sc1 8))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-25 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-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24)))))))))))))))))))))))))))))))))))))) +(define Binary-Core-case--14898-18629 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((sc1 e-4)) (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))) (let ((e-30 (vector-ref sc1 6))) (let ((e-31 (vector-ref sc1 7))) (let ((e-32 (vector-ref sc1 8))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-25 e-26 e-27 e-28 (Prelude-C-60C-43C-62_Semigroup__C-40MaybeC-32C-36aC-41 'erased arg-0 e-29) e-30 e-31 e-32) e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24)))))))))))))))))))))))))))))))))))))) +(define Binary-Core-case--14684-18468 (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--14696-18400 (lambda (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--14500-18301 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-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--14391-18123 (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--14372-18110 (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--14391-18123 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--13817-17538 (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--13026-16786-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--13026-16786-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--13431-17354-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--13431-17355-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-4524) (lambda (arg-4525) (Context-Core-full_HasNames__Name arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__Name arg-4526 arg-4527)))) 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-4524) (lambda (arg-4525) (Context-Core-full_HasNames__Name arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__Name arg-4526 arg-4527)))) 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-4524) (lambda (arg-4525) (Context-Core-full_HasNames__Name arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__Name arg-4526 arg-4527)))) 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--13431-17353-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--13025-16758-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--13025-16758-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--13430-17176-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--13430-17177-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-4524) (lambda (arg-4525) (Context-Core-full_HasNames__Name arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__Name arg-4526 arg-4527)))) 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-4524) (lambda (arg-4525) (Context-Core-full_HasNames__Name arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__Name arg-4526 arg-4527)))) 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-4524) (lambda (arg-4525) (Context-Core-full_HasNames__Name arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__Name arg-4526 arg-4527)))) 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--13430-17175-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--14684-18391-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--14696-18400 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--15248-18925-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--15265-18940 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--13342-17308-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--13342-17309-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--13342-17310-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-4481) (lambda (arg-4482) (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-4481 arg-4482))) (lambda (arg-4483) (lambda (arg-4484) (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-4483 arg-4484)))) 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-4481) (lambda (arg-4482) (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-4481 arg-4482))) (lambda (arg-4483) (lambda (arg-4484) (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-4483 arg-4484)))) 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--12937-16741-resolved_aux 'erased arg-1 arg-3 arg-2 arg-2 (vector 0 ) arg-3))) +(define Binary-Core-resolved_HasNames__C-40TTCFileC-32C-36eC-41 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (let ((e-6 (vector-ref sc0 6))) (let ((e-7 (vector-ref sc0 7))) (let ((e-8 (vector-ref sc0 8))) (let ((e-9 (vector-ref sc0 9))) (let ((e-10 (vector-ref sc0 10))) (let ((e-11 (vector-ref sc0 11))) (let ((e-12 (vector-ref sc0 12))) (let ((e-13 (vector-ref sc0 13))) (let ((e-14 (vector-ref sc0 14))) (let ((e-15 (vector-ref sc0 15))) (let ((e-16 (vector-ref sc0 16))) (let ((e-17 (vector-ref sc0 17))) (let ((e-18 (vector-ref sc0 18))) (lambda (eta-0) (let ((act-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--13431-17353-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--13431-17354-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--13431-17355-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-4524) (lambda (arg-4525) (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-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (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-4526 arg-4527)))) 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-4524) (lambda (arg-4525) (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-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (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-4526 arg-4527)))) 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--13026-16786-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--13341-17130-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--13341-17131-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--13341-17132-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-4481) (lambda (arg-4482) (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-4481 arg-4482))) (lambda (arg-4483) (lambda (arg-4484) (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-4483 arg-4484)))) 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-4481) (lambda (arg-4482) (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-4481 arg-4482))) (lambda (arg-4483) (lambda (arg-4484) (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-4483 arg-4484)))) 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--12936-16713-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-4481) (lambda (arg-4482) (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-4481 arg-4482))) (lambda (arg-4483) (lambda (arg-4484) (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-4483 arg-4484)))))) -(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-4481) (lambda (arg-4482) (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-4481 arg-4482))) (lambda (arg-4483) (lambda (arg-4484) (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-4483 arg-4484)))))) -(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-4481) (lambda (arg-4482) (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-4481 arg-4482))) (lambda (arg-4483) (lambda (arg-4484) (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-4483 arg-4484)))))) -(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-4481) (lambda (arg-4482) (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-4481 arg-4482))) (lambda (arg-4483) (lambda (arg-4484) (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-4483 arg-4484)))))) -(define Binary-Core-__Impl_HasNames_C-40TTCFileC-32C-36eC-41 (lambda (arg-0 arg-1) (vector 0 (lambda (arg-4481) (lambda (arg-4482) (Binary-Core-full_HasNames__C-40TTCFileC-32C-36eC-41 'erased arg-1 arg-4481 arg-4482))) (lambda (arg-4483) (lambda (arg-4484) (Binary-Core-resolved_HasNames__C-40TTCFileC-32C-36eC-41 'erased arg-1 arg-4483 arg-4484)))))) -(define Binary-Core-__Impl_HasNames_C-40ListC-32C-36aC-41 (lambda (arg-0 arg-1) (vector 0 (lambda (arg-4481) (lambda (arg-4482) (Binary-Core-full_HasNames__C-40ListC-32C-36aC-41 'erased arg-1 arg-4481 arg-4482))) (lambda (arg-4483) (lambda (arg-4484) (Binary-Core-resolved_HasNames__C-40ListC-32C-36aC-41 'erased arg-1 arg-4483 arg-4484)))))) +(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--13430-17175-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--13430-17176-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--13430-17177-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-4524) (lambda (arg-4525) (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-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (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-4526 arg-4527)))) 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-4524) (lambda (arg-4525) (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-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (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-4526 arg-4527)))) 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--13025-16758-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-4524) (lambda (arg-4525) (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-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (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-4526 arg-4527)))))) +(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-4524) (lambda (arg-4525) (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-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (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-4526 arg-4527)))))) +(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-4524) (lambda (arg-4525) (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-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (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-4526 arg-4527)))))) +(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-4524) (lambda (arg-4525) (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-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (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-4526 arg-4527)))))) +(define Binary-Core-__Impl_HasNames_C-40TTCFileC-32C-36eC-41 (lambda (arg-0 arg-1) (vector 0 (lambda (arg-4524) (lambda (arg-4525) (Binary-Core-full_HasNames__C-40TTCFileC-32C-36eC-41 'erased arg-1 arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Binary-Core-resolved_HasNames__C-40TTCFileC-32C-36eC-41 'erased arg-1 arg-4526 arg-4527)))))) +(define Binary-Core-__Impl_HasNames_C-40ListC-32C-36aC-41 (lambda (arg-0 arg-1) (vector 0 (lambda (arg-4524) (lambda (arg-4525) (Binary-Core-full_HasNames__C-40ListC-32C-36aC-41 'erased arg-1 arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Binary-Core-resolved_HasNames__C-40ListC-32C-36aC-41 'erased arg-1 arg-4526 arg-4527)))))) (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-27 (vector-ref sc3 6))) e-27))) (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-4481) (lambda (arg-4482) (Binary-Core-full_HasNames__C-40TTCFileC-32C-36eC-41 'erased (Builtin-fst 'erased 'erased arg-1) arg-4481 arg-4482))) (lambda (arg-4483) (lambda (arg-4484) (Binary-Core-resolved_HasNames__C-40TTCFileC-32C-36eC-41 'erased (Builtin-fst 'erased 'erased arg-1) arg-4483 arg-4484)))) 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-1237) (lambda (arg-1239) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1238) (lambda (arg-1240) (lambda (eta-0) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1241) (lambda (arg-1242) (Binary-Utils-toBuf_TTC__String arg-1241 arg-1242))) (lambda (arg-1241) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-1241 eta-1)))) arg-1238 arg-1240 eta-0)))) (lambda (arg-1240) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1238) (lambda (arg-1241) (Binary-Utils-toBuf_TTC__String arg-1238 arg-1241))) (lambda (arg-1241) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-1241 eta-1)))) arg-1240 eta-0)))) (vector 0 (lambda (arg-1238) (lambda (arg-1240) (lambda (eta-0) (Binary-Utils-toBuf_TTC__Int arg-1238 arg-1240 eta-0)))) (lambda (arg-1240) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Int arg-1240 eta-0))))) arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1237) (lambda (arg-1239) (lambda (eta-1) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1238) (lambda (arg-1241) (Binary-Utils-toBuf_TTC__String arg-1238 arg-1241))) (lambda (arg-1241) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__String arg-1241 eta-2)))) arg-1237 arg-1239 eta-1)))) (lambda (arg-1241) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1237) (lambda (arg-1239) (Binary-Utils-toBuf_TTC__String arg-1237 arg-1239))) (lambda (arg-1242) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__String arg-1242 eta-2)))) arg-1241 eta-1)))) (vector 0 (lambda (arg-1237) (lambda (arg-1239) (lambda (eta-1) (Binary-Utils-toBuf_TTC__Int arg-1237 arg-1239 eta-1)))) (lambda (arg-1241) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Int arg-1241 eta-1))))) arg-1240 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-1237) (lambda (arg-1239) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1238) (lambda (arg-1240) (TTC-Core-toBuf_TTC__Name arg-1238 arg-1240))) (lambda (arg-1240) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-1240 eta-0)))) (vector 0 (lambda (arg-1238) (lambda (arg-1240) (Binary-Utils-toBuf_TTC__Binary arg-1238 arg-1240))) (lambda (arg-1240) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Binary arg-1240 eta-0))))) arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1237) (lambda (arg-1239) (TTC-Core-toBuf_TTC__Name arg-1237 arg-1239))) (lambda (arg-1241) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-1241 eta-1)))) (vector 0 (lambda (arg-1237) (lambda (arg-1239) (Binary-Utils-toBuf_TTC__Binary arg-1237 arg-1239))) (lambda (arg-1241) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Binary arg-1241 eta-1))))) arg-1240 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-1237) (lambda (arg-1239) (TTC-Core-toBuf_TTC__Name arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-1240 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-1237) (lambda (arg-1239) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1238) (lambda (arg-1240) (TTC-Core-toBuf_TTC__Name arg-1238 arg-1240))) (lambda (arg-1240) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-1240 eta-0)))) (vector 0 (lambda (arg-1238) (lambda (arg-1240) (Binary-Utils-toBuf_TTC__Bool arg-1238 arg-1240))) (lambda (arg-1240) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Bool arg-1240 eta-0))))) arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1237) (lambda (arg-1239) (TTC-Core-toBuf_TTC__Name arg-1237 arg-1239))) (lambda (arg-1241) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-1241 eta-1)))) (vector 0 (lambda (arg-1237) (lambda (arg-1239) (Binary-Utils-toBuf_TTC__Bool arg-1237 arg-1239))) (lambda (arg-1241) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-1241 eta-1))))) arg-1240 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-1237) (lambda (arg-1239) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1238) (lambda (arg-1240) (TTC-Core-toBuf_TTC__Name arg-1238 arg-1240))) (lambda (arg-1240) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-1240 eta-0)))) (vector 0 (lambda (arg-1238) (lambda (arg-1240) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1241) (lambda (arg-1242) (TTC-Core-toBuf_TTC__Name arg-1241 arg-1242))) (lambda (arg-1241) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-1241 eta-0)))) (vector 0 (lambda (arg-1241) (lambda (arg-1242) (Binary-Utils-toBuf_TTC__Bool arg-1241 arg-1242))) (lambda (arg-1241) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Bool arg-1241 eta-0))))) arg-1238 arg-1240))) (lambda (arg-1240) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1238) (lambda (arg-1241) (TTC-Core-toBuf_TTC__Name arg-1238 arg-1241))) (lambda (arg-1241) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-1241 eta-1)))) (vector 0 (lambda (arg-1238) (lambda (arg-1241) (Binary-Utils-toBuf_TTC__Bool arg-1238 arg-1241))) (lambda (arg-1241) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-1241 eta-1))))) arg-1240 eta-0))))) arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1237) (lambda (arg-1239) (TTC-Core-toBuf_TTC__Name arg-1237 arg-1239))) (lambda (arg-1241) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-1241 eta-1)))) (vector 0 (lambda (arg-1237) (lambda (arg-1239) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1238) (lambda (arg-1241) (TTC-Core-toBuf_TTC__Name arg-1238 arg-1241))) (lambda (arg-1241) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-1241 eta-1)))) (vector 0 (lambda (arg-1238) (lambda (arg-1241) (Binary-Utils-toBuf_TTC__Bool arg-1238 arg-1241))) (lambda (arg-1241) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-1241 eta-1))))) arg-1237 arg-1239))) (lambda (arg-1241) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1237) (lambda (arg-1239) (TTC-Core-toBuf_TTC__Name arg-1237 arg-1239))) (lambda (arg-1242) (lambda (eta-2) (TTC-Core-fromBuf_TTC__Name arg-1242 eta-2)))) (vector 0 (lambda (arg-1237) (lambda (arg-1239) (Binary-Utils-toBuf_TTC__Bool arg-1237 arg-1239))) (lambda (arg-1242) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Bool arg-1242 eta-2))))) arg-1241 eta-1))))) arg-1240 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-1237) (lambda (arg-1239) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1238) (lambda (arg-1240) (lambda (eta-0) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1241) (lambda (arg-1242) (Binary-Utils-toBuf_TTC__String arg-1241 arg-1242))) (lambda (arg-1241) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-1241 eta-1)))) arg-1238 arg-1240 eta-0)))) (lambda (arg-1240) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1238) (lambda (arg-1241) (Binary-Utils-toBuf_TTC__String arg-1238 arg-1241))) (lambda (arg-1241) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-1241 eta-1)))) arg-1240 eta-0)))) (vector 0 (lambda (arg-1238) (lambda (arg-1240) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1241) (lambda (arg-1242) (Binary-Utils-toBuf_TTC__Bool arg-1241 arg-1242))) (lambda (arg-1241) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Bool arg-1241 eta-0)))) (vector 0 (lambda (arg-1241) (lambda (arg-1242) (lambda (eta-0) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1243) (lambda (arg-1244) (Binary-Utils-toBuf_TTC__String arg-1243 arg-1244))) (lambda (arg-1243) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-1243 eta-1)))) arg-1241 arg-1242 eta-0)))) (lambda (arg-1241) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1242) (lambda (arg-1243) (Binary-Utils-toBuf_TTC__String arg-1242 arg-1243))) (lambda (arg-1242) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-1242 eta-1)))) arg-1241 eta-0))))) arg-1238 arg-1240))) (lambda (arg-1240) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1238) (lambda (arg-1241) (Binary-Utils-toBuf_TTC__Bool arg-1238 arg-1241))) (lambda (arg-1241) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-1241 eta-1)))) (vector 0 (lambda (arg-1238) (lambda (arg-1241) (lambda (eta-1) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1242) (lambda (arg-1243) (Binary-Utils-toBuf_TTC__String arg-1242 arg-1243))) (lambda (arg-1242) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__String arg-1242 eta-2)))) arg-1238 arg-1241 eta-1)))) (lambda (arg-1241) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1238) (lambda (arg-1242) (Binary-Utils-toBuf_TTC__String arg-1238 arg-1242))) (lambda (arg-1242) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__String arg-1242 eta-2)))) arg-1241 eta-1))))) arg-1240 eta-0))))) arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1237) (lambda (arg-1239) (lambda (eta-1) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1238) (lambda (arg-1241) (Binary-Utils-toBuf_TTC__String arg-1238 arg-1241))) (lambda (arg-1241) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__String arg-1241 eta-2)))) arg-1237 arg-1239 eta-1)))) (lambda (arg-1241) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1237) (lambda (arg-1239) (Binary-Utils-toBuf_TTC__String arg-1237 arg-1239))) (lambda (arg-1242) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__String arg-1242 eta-2)))) arg-1241 eta-1)))) (vector 0 (lambda (arg-1237) (lambda (arg-1239) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1238) (lambda (arg-1241) (Binary-Utils-toBuf_TTC__Bool arg-1238 arg-1241))) (lambda (arg-1241) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-1241 eta-1)))) (vector 0 (lambda (arg-1238) (lambda (arg-1241) (lambda (eta-1) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1242) (lambda (arg-1243) (Binary-Utils-toBuf_TTC__String arg-1242 arg-1243))) (lambda (arg-1242) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__String arg-1242 eta-2)))) arg-1238 arg-1241 eta-1)))) (lambda (arg-1241) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1238) (lambda (arg-1242) (Binary-Utils-toBuf_TTC__String arg-1238 arg-1242))) (lambda (arg-1242) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__String arg-1242 eta-2)))) arg-1241 eta-1))))) arg-1237 arg-1239))) (lambda (arg-1241) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1237) (lambda (arg-1239) (Binary-Utils-toBuf_TTC__Bool arg-1237 arg-1239))) (lambda (arg-1242) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Bool arg-1242 eta-2)))) (vector 0 (lambda (arg-1237) (lambda (arg-1239) (lambda (eta-2) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1238) (lambda (arg-1242) (Binary-Utils-toBuf_TTC__String arg-1238 arg-1242))) (lambda (arg-1242) (lambda (eta-3) (Binary-Utils-fromBuf_TTC__String arg-1242 eta-3)))) arg-1237 arg-1239 eta-2)))) (lambda (arg-1242) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1237) (lambda (arg-1239) (Binary-Utils-toBuf_TTC__String arg-1237 arg-1239))) (lambda (arg-1243) (lambda (eta-3) (Binary-Utils-fromBuf_TTC__String arg-1243 eta-3)))) arg-1242 eta-2))))) arg-1241 eta-1))))) arg-1240 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-1237) (lambda (arg-1239) (Binary-Utils-toBuf_TTC__String arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__String arg-1240 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-1237) (lambda (arg-1239) (lambda (eta-0) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1238) (lambda (arg-1240) (Binary-Utils-toBuf_TTC__String arg-1238 arg-1240))) (lambda (arg-1240) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-1240 eta-1)))) arg-1237 arg-1239 eta-0)))) (lambda (arg-1240) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1237) (lambda (arg-1239) (Binary-Utils-toBuf_TTC__String arg-1237 arg-1239))) (lambda (arg-1241) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-1241 eta-1)))) arg-1240 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-1237) (lambda (arg-1239) (lambda (eta-0) (TTC-Core-toBuf_TTC__PairNames arg-1237 arg-1239 eta-0)))) (lambda (arg-1240) (lambda (eta-0) (TTC-Core-fromBuf_TTC__PairNames arg-1240 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-1237) (lambda (arg-1239) (lambda (eta-0) (TTC-Core-toBuf_TTC__RewriteNames arg-1237 arg-1239 eta-0)))) (lambda (arg-1240) (lambda (eta-0) (TTC-Core-fromBuf_TTC__RewriteNames arg-1240 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-1237) (lambda (arg-1239) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1238) (lambda (arg-1240) (TTC-Core-toBuf_TTC__Name arg-1238 arg-1240))) (lambda (arg-1240) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-1240 eta-0)))) (vector 0 (lambda (arg-1238) (lambda (arg-1240) (lambda (eta-0) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1241) (lambda (arg-1242) (Binary-Utils-toBuf_TTC__String arg-1241 arg-1242))) (lambda (arg-1241) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-1241 eta-1)))) arg-1238 arg-1240 eta-0)))) (lambda (arg-1240) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1238) (lambda (arg-1241) (Binary-Utils-toBuf_TTC__String arg-1238 arg-1241))) (lambda (arg-1241) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-1241 eta-1)))) arg-1240 eta-0))))) arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1237) (lambda (arg-1239) (TTC-Core-toBuf_TTC__Name arg-1237 arg-1239))) (lambda (arg-1241) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-1241 eta-1)))) (vector 0 (lambda (arg-1237) (lambda (arg-1239) (lambda (eta-1) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1238) (lambda (arg-1241) (Binary-Utils-toBuf_TTC__String arg-1238 arg-1241))) (lambda (arg-1241) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__String arg-1241 eta-2)))) arg-1237 arg-1239 eta-1)))) (lambda (arg-1241) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1237) (lambda (arg-1239) (Binary-Utils-toBuf_TTC__String arg-1237 arg-1239))) (lambda (arg-1242) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__String arg-1242 eta-2)))) arg-1241 eta-1))))) arg-1240 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-1237) (lambda (arg-1239) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1238) (lambda (arg-1240) (TTC-Core-toBuf_TTC__CG arg-1238 arg-1240))) (lambda (arg-1240) (lambda (eta-0) (TTC-Core-fromBuf_TTC__CG arg-1240 eta-0)))) (vector 0 (lambda (arg-1238) (lambda (arg-1240) (Binary-Utils-toBuf_TTC__String arg-1238 arg-1240))) (lambda (arg-1240) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__String arg-1240 eta-0))))) arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1237) (lambda (arg-1239) (TTC-Core-toBuf_TTC__CG arg-1237 arg-1239))) (lambda (arg-1241) (lambda (eta-1) (TTC-Core-fromBuf_TTC__CG arg-1241 eta-1)))) (vector 0 (lambda (arg-1237) (lambda (arg-1239) (Binary-Utils-toBuf_TTC__String arg-1237 arg-1239))) (lambda (arg-1241) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-1241 eta-1))))) arg-1240 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-1237) (lambda (arg-1239) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1238) (lambda (arg-1240) (TTC-Core-toBuf_TTC__Name arg-1238 arg-1240))) (lambda (arg-1240) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-1240 eta-0)))) (vector 0 (lambda (arg-1238) (lambda (arg-1240) (TTC-Core-toBuf_TTC__Transform arg-1238 arg-1240))) (lambda (arg-1240) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Transform arg-1240 eta-0))))) arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1237) (lambda (arg-1239) (TTC-Core-toBuf_TTC__Name arg-1237 arg-1239))) (lambda (arg-1241) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-1241 eta-1)))) (vector 0 (lambda (arg-1237) (lambda (arg-1239) (TTC-Core-toBuf_TTC__Transform arg-1237 arg-1239))) (lambda (arg-1241) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Transform arg-1241 eta-1))))) arg-1240 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 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-4524) (lambda (arg-4525) (Binary-Core-full_HasNames__C-40TTCFileC-32C-36eC-41 'erased (Builtin-fst 'erased 'erased arg-1) arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Binary-Core-resolved_HasNames__C-40TTCFileC-32C-36eC-41 'erased (Builtin-fst 'erased 'erased arg-1) arg-4526 arg-4527)))) 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-4481) (lambda (arg-4482) (Context-Core-full_HasNames__Name arg-4481 arg-4482))) (lambda (arg-4483) (lambda (arg-4484) (Context-Core-resolved_HasNames__Name arg-4483 arg-4484)))) 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-4481) (lambda (arg-4482) (Context-Core-full_HasNames__Transform arg-4481 arg-4482))) (lambda (arg-4483) (lambda (arg-4484) (Context-Core-resolved_HasNames__Transform arg-4483 arg-4484)))) 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--15159-18880-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-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-4524) (lambda (arg-4525) (Context-Core-full_HasNames__Name arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__Name arg-4526 arg-4527)))) 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-4524) (lambda (arg-4525) (Context-Core-full_HasNames__Transform arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__Transform arg-4526 arg-4527)))) 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--15248-18925-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-25 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (let ((e-21 (vector-ref sc1 22))) (let ((e-22 (vector-ref sc1 23))) (let ((e-23 (vector-ref sc1 24))) (let ((e-24 (vector-ref sc1 25))) (let ((sc2 e-4)) (let ((e-33 (vector-ref sc2 1))) (let ((e-26 (vector-ref sc2 2))) (let ((e-27 (vector-ref sc2 3))) (let ((e-28 (vector-ref sc2 4))) (let ((e-29 (vector-ref sc2 5))) (let ((e-30 (vector-ref sc2 6))) (let ((e-31 (vector-ref sc2 7))) (let ((e-32 (vector-ref sc2 8))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-33 e-26 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-25 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24)))))))))))))))))))))))))))))))))))) 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-25 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (let ((e-21 (vector-ref sc1 22))) (let ((e-22 (vector-ref sc1 23))) (let ((e-23 (vector-ref sc1 24))) (let ((e-24 (vector-ref sc1 25))) (let ((sc2 e-4)) (let ((e-33 (vector-ref sc2 1))) (let ((e-26 (vector-ref sc2 2))) (let ((e-27 (vector-ref sc2 3))) (let ((e-28 (vector-ref sc2 4))) (let ((e-29 (vector-ref sc2 5))) (let ((e-30 (vector-ref sc2 6))) (let ((e-31 (vector-ref sc2 7))) (let ((e-32 (vector-ref sc2 8))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-33 e-26 e-27 e-28 e-29 e-30 (Binary-Core-updatePrimNames arg-1 e-31) e-32) e-25 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24)))))))))))))))))))))))))))))))))))) 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)))))))) @@ -3237,13 +3283,13 @@ (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-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-25 (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))) (vector 0 e-0 e-1 e-29 e-28 e-4 e-27 e-26 e-25 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))))))))))))))))))))))))))) 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-25 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 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))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-25 e-6 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)))))))))))))))))))))))))) 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 () 27)) +(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-1237) (lambda (arg-1239) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1238) (lambda (arg-1240) (lambda (eta-0) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1241) (lambda (arg-1242) (Binary-Utils-toBuf_TTC__String arg-1241 arg-1242))) (lambda (arg-1241) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-1241 eta-1)))) arg-1238 arg-1240 eta-0)))) (lambda (arg-1240) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1238) (lambda (arg-1241) (Binary-Utils-toBuf_TTC__String arg-1238 arg-1241))) (lambda (arg-1241) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-1241 eta-1)))) arg-1240 eta-0)))) (vector 0 (lambda (arg-1238) (lambda (arg-1240) (lambda (eta-0) (Binary-Utils-toBuf_TTC__Int arg-1238 arg-1240 eta-0)))) (lambda (arg-1240) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Int arg-1240 eta-0))))) arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1237) (lambda (arg-1239) (lambda (eta-1) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1238) (lambda (arg-1241) (Binary-Utils-toBuf_TTC__String arg-1238 arg-1241))) (lambda (arg-1241) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__String arg-1241 eta-2)))) arg-1237 arg-1239 eta-1)))) (lambda (arg-1241) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1237) (lambda (arg-1239) (Binary-Utils-toBuf_TTC__String arg-1237 arg-1239))) (lambda (arg-1242) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__String arg-1242 eta-2)))) arg-1241 eta-1)))) (vector 0 (lambda (arg-1237) (lambda (arg-1239) (lambda (eta-1) (Binary-Utils-toBuf_TTC__Int arg-1237 arg-1239 eta-1)))) (lambda (arg-1241) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Int arg-1241 eta-1))))) arg-1240 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-1237) (lambda (arg-1239) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1238) (lambda (arg-1240) (TTC-Core-toBuf_TTC__Name arg-1238 arg-1240))) (lambda (arg-1240) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-1240 eta-0)))) (vector 0 (lambda (arg-1238) (lambda (arg-1240) (Binary-Utils-toBuf_TTC__Binary arg-1238 arg-1240))) (lambda (arg-1240) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Binary arg-1240 eta-0))))) arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1237) (lambda (arg-1239) (TTC-Core-toBuf_TTC__Name arg-1237 arg-1239))) (lambda (arg-1241) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-1241 eta-1)))) (vector 0 (lambda (arg-1237) (lambda (arg-1239) (Binary-Utils-toBuf_TTC__Binary arg-1237 arg-1239))) (lambda (arg-1241) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Binary arg-1241 eta-1))))) arg-1240 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-1237) (lambda (arg-1239) (TTC-Core-toBuf_TTC__Name arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-1240 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-1237) (lambda (arg-1239) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1238) (lambda (arg-1240) (TTC-Core-toBuf_TTC__Name arg-1238 arg-1240))) (lambda (arg-1240) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-1240 eta-0)))) (vector 0 (lambda (arg-1238) (lambda (arg-1240) (Binary-Utils-toBuf_TTC__Bool arg-1238 arg-1240))) (lambda (arg-1240) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Bool arg-1240 eta-0))))) arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1237) (lambda (arg-1239) (TTC-Core-toBuf_TTC__Name arg-1237 arg-1239))) (lambda (arg-1241) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-1241 eta-1)))) (vector 0 (lambda (arg-1237) (lambda (arg-1239) (Binary-Utils-toBuf_TTC__Bool arg-1237 arg-1239))) (lambda (arg-1241) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-1241 eta-1))))) arg-1240 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-1237) (lambda (arg-1239) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1238) (lambda (arg-1240) (TTC-Core-toBuf_TTC__Name arg-1238 arg-1240))) (lambda (arg-1240) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-1240 eta-0)))) (vector 0 (lambda (arg-1238) (lambda (arg-1240) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1241) (lambda (arg-1242) (TTC-Core-toBuf_TTC__Name arg-1241 arg-1242))) (lambda (arg-1241) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-1241 eta-0)))) (vector 0 (lambda (arg-1241) (lambda (arg-1242) (Binary-Utils-toBuf_TTC__Bool arg-1241 arg-1242))) (lambda (arg-1241) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Bool arg-1241 eta-0))))) arg-1238 arg-1240))) (lambda (arg-1240) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1238) (lambda (arg-1241) (TTC-Core-toBuf_TTC__Name arg-1238 arg-1241))) (lambda (arg-1241) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-1241 eta-1)))) (vector 0 (lambda (arg-1238) (lambda (arg-1241) (Binary-Utils-toBuf_TTC__Bool arg-1238 arg-1241))) (lambda (arg-1241) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-1241 eta-1))))) arg-1240 eta-0))))) arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1237) (lambda (arg-1239) (TTC-Core-toBuf_TTC__Name arg-1237 arg-1239))) (lambda (arg-1241) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-1241 eta-1)))) (vector 0 (lambda (arg-1237) (lambda (arg-1239) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1238) (lambda (arg-1241) (TTC-Core-toBuf_TTC__Name arg-1238 arg-1241))) (lambda (arg-1241) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-1241 eta-1)))) (vector 0 (lambda (arg-1238) (lambda (arg-1241) (Binary-Utils-toBuf_TTC__Bool arg-1238 arg-1241))) (lambda (arg-1241) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-1241 eta-1))))) arg-1237 arg-1239))) (lambda (arg-1241) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1237) (lambda (arg-1239) (TTC-Core-toBuf_TTC__Name arg-1237 arg-1239))) (lambda (arg-1242) (lambda (eta-2) (TTC-Core-fromBuf_TTC__Name arg-1242 eta-2)))) (vector 0 (lambda (arg-1237) (lambda (arg-1239) (Binary-Utils-toBuf_TTC__Bool arg-1237 arg-1239))) (lambda (arg-1242) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Bool arg-1242 eta-2))))) arg-1241 eta-1))))) arg-1240 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-1237) (lambda (arg-1239) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1238) (lambda (arg-1240) (lambda (eta-0) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1241) (lambda (arg-1242) (Binary-Utils-toBuf_TTC__String arg-1241 arg-1242))) (lambda (arg-1241) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-1241 eta-1)))) arg-1238 arg-1240 eta-0)))) (lambda (arg-1240) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1238) (lambda (arg-1241) (Binary-Utils-toBuf_TTC__String arg-1238 arg-1241))) (lambda (arg-1241) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-1241 eta-1)))) arg-1240 eta-0)))) (vector 0 (lambda (arg-1238) (lambda (arg-1240) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1241) (lambda (arg-1242) (Binary-Utils-toBuf_TTC__Bool arg-1241 arg-1242))) (lambda (arg-1241) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Bool arg-1241 eta-0)))) (vector 0 (lambda (arg-1241) (lambda (arg-1242) (lambda (eta-0) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1243) (lambda (arg-1244) (Binary-Utils-toBuf_TTC__String arg-1243 arg-1244))) (lambda (arg-1243) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-1243 eta-1)))) arg-1241 arg-1242 eta-0)))) (lambda (arg-1241) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1242) (lambda (arg-1243) (Binary-Utils-toBuf_TTC__String arg-1242 arg-1243))) (lambda (arg-1242) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-1242 eta-1)))) arg-1241 eta-0))))) arg-1238 arg-1240))) (lambda (arg-1240) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1238) (lambda (arg-1241) (Binary-Utils-toBuf_TTC__Bool arg-1238 arg-1241))) (lambda (arg-1241) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-1241 eta-1)))) (vector 0 (lambda (arg-1238) (lambda (arg-1241) (lambda (eta-1) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1242) (lambda (arg-1243) (Binary-Utils-toBuf_TTC__String arg-1242 arg-1243))) (lambda (arg-1242) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__String arg-1242 eta-2)))) arg-1238 arg-1241 eta-1)))) (lambda (arg-1241) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1238) (lambda (arg-1242) (Binary-Utils-toBuf_TTC__String arg-1238 arg-1242))) (lambda (arg-1242) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__String arg-1242 eta-2)))) arg-1241 eta-1))))) arg-1240 eta-0))))) arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1237) (lambda (arg-1239) (lambda (eta-1) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1238) (lambda (arg-1241) (Binary-Utils-toBuf_TTC__String arg-1238 arg-1241))) (lambda (arg-1241) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__String arg-1241 eta-2)))) arg-1237 arg-1239 eta-1)))) (lambda (arg-1241) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1237) (lambda (arg-1239) (Binary-Utils-toBuf_TTC__String arg-1237 arg-1239))) (lambda (arg-1242) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__String arg-1242 eta-2)))) arg-1241 eta-1)))) (vector 0 (lambda (arg-1237) (lambda (arg-1239) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1238) (lambda (arg-1241) (Binary-Utils-toBuf_TTC__Bool arg-1238 arg-1241))) (lambda (arg-1241) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-1241 eta-1)))) (vector 0 (lambda (arg-1238) (lambda (arg-1241) (lambda (eta-1) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1242) (lambda (arg-1243) (Binary-Utils-toBuf_TTC__String arg-1242 arg-1243))) (lambda (arg-1242) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__String arg-1242 eta-2)))) arg-1238 arg-1241 eta-1)))) (lambda (arg-1241) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1238) (lambda (arg-1242) (Binary-Utils-toBuf_TTC__String arg-1238 arg-1242))) (lambda (arg-1242) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__String arg-1242 eta-2)))) arg-1241 eta-1))))) arg-1237 arg-1239))) (lambda (arg-1241) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1237) (lambda (arg-1239) (Binary-Utils-toBuf_TTC__Bool arg-1237 arg-1239))) (lambda (arg-1242) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Bool arg-1242 eta-2)))) (vector 0 (lambda (arg-1237) (lambda (arg-1239) (lambda (eta-2) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1238) (lambda (arg-1242) (Binary-Utils-toBuf_TTC__String arg-1238 arg-1242))) (lambda (arg-1242) (lambda (eta-3) (Binary-Utils-fromBuf_TTC__String arg-1242 eta-3)))) arg-1237 arg-1239 eta-2)))) (lambda (arg-1242) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1237) (lambda (arg-1239) (Binary-Utils-toBuf_TTC__String arg-1237 arg-1239))) (lambda (arg-1243) (lambda (eta-3) (Binary-Utils-fromBuf_TTC__String arg-1243 eta-3)))) arg-1242 eta-2))))) arg-1241 eta-1))))) arg-1240 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-1237) (lambda (arg-1239) (Binary-Utils-toBuf_TTC__String arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__String arg-1240 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-1237) (lambda (arg-1239) (lambda (eta-0) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1238) (lambda (arg-1240) (Binary-Utils-toBuf_TTC__String arg-1238 arg-1240))) (lambda (arg-1240) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-1240 eta-1)))) arg-1237 arg-1239 eta-0)))) (lambda (arg-1240) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1237) (lambda (arg-1239) (Binary-Utils-toBuf_TTC__String arg-1237 arg-1239))) (lambda (arg-1241) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-1241 eta-1)))) arg-1240 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-1237) (lambda (arg-1239) (lambda (eta-0) (TTC-Core-toBuf_TTC__PairNames arg-1237 arg-1239 eta-0)))) (lambda (arg-1240) (lambda (eta-0) (TTC-Core-fromBuf_TTC__PairNames arg-1240 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-1237) (lambda (arg-1239) (lambda (eta-0) (TTC-Core-toBuf_TTC__RewriteNames arg-1237 arg-1239 eta-0)))) (lambda (arg-1240) (lambda (eta-0) (TTC-Core-fromBuf_TTC__RewriteNames arg-1240 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-1237) (lambda (arg-1239) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1238) (lambda (arg-1240) (TTC-Core-toBuf_TTC__Name arg-1238 arg-1240))) (lambda (arg-1240) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-1240 eta-0)))) (vector 0 (lambda (arg-1238) (lambda (arg-1240) (lambda (eta-0) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1241) (lambda (arg-1242) (Binary-Utils-toBuf_TTC__String arg-1241 arg-1242))) (lambda (arg-1241) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-1241 eta-1)))) arg-1238 arg-1240 eta-0)))) (lambda (arg-1240) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1238) (lambda (arg-1241) (Binary-Utils-toBuf_TTC__String arg-1238 arg-1241))) (lambda (arg-1241) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-1241 eta-1)))) arg-1240 eta-0))))) arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1237) (lambda (arg-1239) (TTC-Core-toBuf_TTC__Name arg-1237 arg-1239))) (lambda (arg-1241) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-1241 eta-1)))) (vector 0 (lambda (arg-1237) (lambda (arg-1239) (lambda (eta-1) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1238) (lambda (arg-1241) (Binary-Utils-toBuf_TTC__String arg-1238 arg-1241))) (lambda (arg-1241) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__String arg-1241 eta-2)))) arg-1237 arg-1239 eta-1)))) (lambda (arg-1241) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1237) (lambda (arg-1239) (Binary-Utils-toBuf_TTC__String arg-1237 arg-1239))) (lambda (arg-1242) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__String arg-1242 eta-2)))) arg-1241 eta-1))))) arg-1240 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-1237) (lambda (arg-1239) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1238) (lambda (arg-1240) (TTC-Core-toBuf_TTC__CG arg-1238 arg-1240))) (lambda (arg-1240) (lambda (eta-0) (TTC-Core-fromBuf_TTC__CG arg-1240 eta-0)))) (vector 0 (lambda (arg-1238) (lambda (arg-1240) (Binary-Utils-toBuf_TTC__String arg-1238 arg-1240))) (lambda (arg-1240) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__String arg-1240 eta-0))))) arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1237) (lambda (arg-1239) (TTC-Core-toBuf_TTC__CG arg-1237 arg-1239))) (lambda (arg-1241) (lambda (eta-1) (TTC-Core-fromBuf_TTC__CG arg-1241 eta-1)))) (vector 0 (lambda (arg-1237) (lambda (arg-1239) (Binary-Utils-toBuf_TTC__String arg-1237 arg-1239))) (lambda (arg-1241) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-1241 eta-1))))) arg-1240 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-1237) (lambda (arg-1239) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1238) (lambda (arg-1240) (TTC-Core-toBuf_TTC__Name arg-1238 arg-1240))) (lambda (arg-1240) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-1240 eta-0)))) (vector 0 (lambda (arg-1238) (lambda (arg-1240) (TTC-Core-toBuf_TTC__Transform arg-1238 arg-1240))) (lambda (arg-1240) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Transform arg-1240 eta-0))))) arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1237) (lambda (arg-1239) (TTC-Core-toBuf_TTC__Name arg-1237 arg-1239))) (lambda (arg-1241) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-1241 eta-1)))) (vector 0 (lambda (arg-1237) (lambda (arg-1239) (TTC-Core-toBuf_TTC__Transform arg-1237 arg-1239))) (lambda (arg-1241) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Transform arg-1241 eta-1))))) arg-1240 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-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--15392-19127 '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 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--15481-19172 '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)))) @@ -3252,9 +3298,9 @@ (define TTCFile-Binary-Core-imported (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-8 (vector-ref sc0 8))) e-8)))) (define TTCFile-Binary-Core-importHashes (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-3 (vector-ref sc0 3))) e-3)))) (define TTCFile-Binary-Core-ifaceHash (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 2))) e-2)))) -(define Binary-Core-getSaveDefs (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (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--14302-18078 e-2 e-3 arg-2 arg-1 e-1 _-0 (let ((sc3 e-1)) (let ((e-17 (vector-ref sc3 18))) e-17))) eta-0)))) (else ((Binary-Core-getSaveDefs e-3 arg-1 arg-2) eta-0))))))))))))))))) +(define Binary-Core-getSaveDefs (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (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--14391-18123 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-1237) (lambda (arg-1239) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1238) (lambda (arg-1240) (lambda (eta-0) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1241) (lambda (arg-1242) (Binary-Utils-toBuf_TTC__String arg-1241 arg-1242))) (lambda (arg-1241) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-1241 eta-1)))) arg-1238 arg-1240 eta-0)))) (lambda (arg-1240) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1238) (lambda (arg-1241) (Binary-Utils-toBuf_TTC__String arg-1238 arg-1241))) (lambda (arg-1241) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-1241 eta-1)))) arg-1240 eta-0)))) (vector 0 (lambda (arg-1238) (lambda (arg-1240) (lambda (eta-0) (Binary-Utils-toBuf_TTC__Int arg-1238 arg-1240 eta-0)))) (lambda (arg-1240) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Int arg-1240 eta-0))))) arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1237) (lambda (arg-1239) (lambda (eta-1) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1238) (lambda (arg-1241) (Binary-Utils-toBuf_TTC__String arg-1238 arg-1241))) (lambda (arg-1241) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__String arg-1241 eta-2)))) arg-1237 arg-1239 eta-1)))) (lambda (arg-1241) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1237) (lambda (arg-1239) (Binary-Utils-toBuf_TTC__String arg-1237 arg-1239))) (lambda (arg-1242) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__String arg-1242 eta-2)))) arg-1241 eta-1)))) (vector 0 (lambda (arg-1237) (lambda (arg-1239) (lambda (eta-1) (Binary-Utils-toBuf_TTC__Int arg-1237 arg-1239 eta-1)))) (lambda (arg-1241) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Int arg-1241 eta-1))))) arg-1240 eta-0)))) arg-1 ext-0))))))))))))))))))))))))) +(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)))) @@ -3263,76 +3309,76 @@ (define Binary-Core-checkTTCVersion (lambda (arg-0 arg-1 arg-2) (let ((sc0 (Prelude-C-47C-61_Eq__Int arg-1 arg-2))) (cond ((equal? sc0 0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 48 (vector 0 arg-0 arg-1 arg-2)) eta-0))) (else (lambda (eta-0) (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--13728-17493 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-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--13817-17538 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--14595-18423 e-2 e-3 arg-2 arg-1 arg-0 e-5 e-6 e-7 (Binary-Core-n--14595-18346-completeDef e-2 e-3 arg-2 arg-1 arg-0 e-7)) 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--14684-18468 e-2 e-3 arg-2 arg-1 arg-0 e-5 e-6 e-7 (Binary-Core-n--14684-18391-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--15700-15155 (lambda (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--15700-15132 (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--15674-15106 (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--15319-14802 (lambda (arg-0 arg-1 arg-2 arg-3 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--15176-14750 (lambda (arg-0 arg-1 arg-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--15319-14802 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--15127-14612 (lambda (arg-0 arg-1 arg-2 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-4481) (lambda (arg-4482) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4481 arg-4482))) (lambda (arg-4483) (lambda (arg-4484) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4483 arg-4484)))) 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 "\u0009 = " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-8) "\u000a\u0009when"))) eta-0)))))))) (let ((sc3 act-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--14765-14240-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--15319-14802 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-4481) (lambda (arg-4482) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4481 arg-4482))) (lambda (arg-4483) (lambda (arg-4484) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4483 arg-4484)))) 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--15079-14571 (lambda (arg-0 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--15127-14612 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--14765-14527 (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--15127-14612 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--14791-14402 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16) (let ((sc0 arg-13)) (cond ((equal? sc0 0) "\u000a\u0009(lazy allowed)") (else ""))))) -(define UnifyState-Core-case--14772-14260 (lambda (arg-0 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 () "\u0009Resolved") eta-0))) ((0) (let ((e-3 (vector-ref sc1 1))) (let ((e-5 (vector-ref sc1 3))) (let ((e-7 (vector-ref sc1 5))) (let ((e-8 (vector-ref sc1 6))) (let ((e-9 (vector-ref sc1 7))) (lambda (eta-0) (let ((act-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-4481) (lambda (arg-4482) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4481 arg-4482))) (lambda (arg-4483) (lambda (arg-4484) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4483 arg-4484)))) 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-4481) (lambda (arg-4482) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4481 arg-4482))) (lambda (arg-4483) (lambda (arg-4484) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4483 arg-4484)))) 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 "\u0009 " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-3 e-11) (Strings-Prelude-C-43C-43 " =?= " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-3 e-13))))) eta-0))))))))))))))))))))))) (let ((sc2 act-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-4481) (lambda (arg-4482) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4481 arg-4482))) (lambda (arg-4483) (lambda (arg-4484) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4483 arg-4484)))) 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-4481) (lambda (arg-4482) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4481 arg-4482))) (lambda (arg-4483) (lambda (arg-4484) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4483 arg-4484)))) 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 "\u0009 from " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-3 e-11) (Strings-Prelude-C-43C-43 " =?= " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-3 e-12) (let ((sc5 e-5)) (cond ((equal? sc5 0) "\u000a\u0009(lazy allowed)") (else "")))))))) eta-0)))))))))))))))))))))) (else (let ((e-10 (vector-ref sc1 1))) (let ((e-13 (vector-ref sc1 4))) (let ((e-14 (vector-ref sc1 5))) (lambda (eta-0) (Context-Core-log arg-2 arg-1 (lambda () (Strings-Prelude-C-43C-43 "\u0009\u0009" (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-10 x)) (lambda (d) (lambda (x) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 e-10 d x)))) e-13) (Strings-Prelude-C-43C-43 " =?= " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-10 x)) (lambda (d) (lambda (x) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 e-10 d x)))) e-14))))) eta-0)))))))))))))) -(define UnifyState-Core-case--14569-14194 (lambda (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--14157-13877 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--14157-13754 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--14109-13685 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-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--13945-13651 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-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--13945-13551 (lambda (arg-0 arg-1 arg-2 arg-3 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--13918-13511 (lambda (arg-0 arg-1 arg-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-28 (vector-ref sc2 1))) e-28)) 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--13945-13651 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--13865-13455-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--13865-13455-checkRef arg-0 arg-1 arg-2 arg-3 arg-4 eta-1)) e-5) eta-0)))))))))))) -(define UnifyState-Core-case--13865-13492 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((_-0 (vector 1 e-1))) (UnifyState-Core-case--13918-13511 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--13805-13403 (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--13757-13378 (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--13700-13313 (lambda (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--13643-13264 (lambda (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--13520-13215 (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))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 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-25 (vector-ref sc1 25))) e-25)))))))))))))))))))))))))))))) -(define UnifyState-Core-case--12995-12795 (lambda (arg-0 arg-1 arg-2 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--12995-12643 (lambda (arg-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--12479-12183 (lambda (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--12479-12121-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--12399-12066 (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--12341-12012 (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--12303-11969 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-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--12148-11829 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-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--12112-11796 (lambda (arg-0 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--12073-11763 (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--12028-11704 (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--11986-11680 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-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--11935-11636 (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--11877-11583 (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--11827-11541 (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--11777-11495 (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--11726-11449 (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--11656-11402 (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--11601-11337 (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--11566-11292 (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--14569-14047-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--12479-12121-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--13447-13063-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--13370-12982-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--13267-12870-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--12995-12621-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--14765-14240-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--14772-14260 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--13865-13455-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-case--15789-15200 (lambda (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--15789-15177 (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--15763-15151 (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--15408-14847 (lambda (arg-0 arg-1 arg-2 arg-3 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--15265-14795 (lambda (arg-0 arg-1 arg-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--15408-14847 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--15216-14657 (lambda (arg-0 arg-1 arg-2 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-4524) (lambda (arg-4525) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4526 arg-4527)))) 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 "\u0009 = " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-8) "\u000a\u0009when"))) eta-0)))))))) (let ((sc3 act-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--14854-14285-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--15408-14847 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-4524) (lambda (arg-4525) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4526 arg-4527)))) 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--15168-14616 (lambda (arg-0 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--15216-14657 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--14854-14572 (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--15216-14657 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--14880-14447 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16) (let ((sc0 arg-13)) (cond ((equal? sc0 0) "\u000a\u0009(lazy allowed)") (else ""))))) +(define UnifyState-Core-case--14861-14305 (lambda (arg-0 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 () "\u0009Resolved") eta-0))) ((0) (let ((e-3 (vector-ref sc1 1))) (let ((e-5 (vector-ref sc1 3))) (let ((e-7 (vector-ref sc1 5))) (let ((e-8 (vector-ref sc1 6))) (let ((e-9 (vector-ref sc1 7))) (lambda (eta-0) (let ((act-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-4524) (lambda (arg-4525) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4526 arg-4527)))) 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-4524) (lambda (arg-4525) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4526 arg-4527)))) 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 "\u0009 " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-3 e-11) (Strings-Prelude-C-43C-43 " =?= " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-3 e-13))))) eta-0))))))))))))))))))))))) (let ((sc2 act-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-4524) (lambda (arg-4525) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4526 arg-4527)))) 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-4524) (lambda (arg-4525) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4526 arg-4527)))) 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 "\u0009 from " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-3 e-11) (Strings-Prelude-C-43C-43 " =?= " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-3 e-12) (let ((sc5 e-5)) (cond ((equal? sc5 0) "\u000a\u0009(lazy allowed)") (else "")))))))) eta-0)))))))))))))))))))))) (else (let ((e-10 (vector-ref sc1 1))) (let ((e-13 (vector-ref sc1 4))) (let ((e-14 (vector-ref sc1 5))) (lambda (eta-0) (Context-Core-log arg-2 arg-1 (lambda () (Strings-Prelude-C-43C-43 "\u0009\u0009" (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-10 x)) (lambda (d) (lambda (x) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 e-10 d x)))) e-13) (Strings-Prelude-C-43C-43 " =?= " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-10 x)) (lambda (d) (lambda (x) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 e-10 d x)))) e-14))))) eta-0)))))))))))))) +(define UnifyState-Core-case--14658-14239 (lambda (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--14246-13922 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--14246-13799 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--14198-13730 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-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--14034-13696 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-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--14034-13596 (lambda (arg-0 arg-1 arg-2 arg-3 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--14007-13556 (lambda (arg-0 arg-1 arg-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-28 (vector-ref sc2 1))) e-28)) 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--14034-13696 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--13954-13500-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--13954-13500-checkRef arg-0 arg-1 arg-2 arg-3 arg-4 eta-1)) e-5) eta-0)))))))))))) +(define UnifyState-Core-case--13954-13537 (lambda (arg-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--14007-13556 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--13894-13448 (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--13846-13423 (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--13789-13358 (lambda (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--13732-13309 (lambda (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--13609-13260 (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))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 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-25 (vector-ref sc1 25))) e-25)))))))))))))))))))))))))))))) +(define UnifyState-Core-case--13084-12840 (lambda (arg-0 arg-1 arg-2 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--13084-12688 (lambda (arg-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--12568-12228 (lambda (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--12568-12166-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--12488-12111 (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--12430-12057 (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--12392-12014 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-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--12237-11874 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-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--12201-11841 (lambda (arg-0 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--12162-11808 (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--12117-11749 (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--12075-11725 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-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--12024-11681 (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--11966-11628 (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--11916-11586 (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--11866-11540 (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--11815-11494 (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--11745-11447 (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--11690-11382 (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--11655-11337 (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--14658-14092-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--12568-12166-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--13536-13108-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--13459-13027-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--13356-12915-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--13084-12666-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--14854-14285-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--14861-14305 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--13954-13500-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-28 (vector-ref sc4 6))) (let ((e-27 (vector-ref sc4 7))) (let ((e-26 (vector-ref sc4 8))) (let ((e-25 (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))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-28 e-27 e-26 e-25 e-9 e-10 e-11 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-29 (vector-ref sc5 25))) e-29)))))))))))))))))))))))))))) 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--12028-11704 arg-2 arg-1 arg-0 e-5 (Context-Core-getNameID arg-2 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0)))) ext-0)))))))) +(define UnifyState-Core-removeHoleName (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-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--12117-11749 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--13370-12982-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--12995-12795 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--12995-12621-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-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--13459-13027-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--13084-12840 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--13084-12666-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--13447-13063-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--13267-12870-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--12479-12183 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--12479-12121-isLet e-2 e-3 e-9 e-8 arg-5 arg-3 arg-2 'erased 'erased e-8)))))))))))))))) +(define UnifyState-Core-newDelayed (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((hty (Env-Core-abstractEnvType arg-0 arg-3 arg-5 arg-7))) (let ((hole (Context-Core-newDef arg-3 arg-6 arg-4 (vector 0 ) hty (vector 2 ) (vector 11 )))) (lambda (eta-0) (let ((act-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--13536-13108-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--13356-12915-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--12568-12228 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--12568-12166-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))) @@ -3347,17 +3393,17 @@ (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--14765-14527 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--15674-15106 arg-3 arg-2 arg-1 arg-0 e-5 e-6 (Prelude-C-62C-61_Ord__Nat (let ((sc2 (let ((sc3 (let ((sc4 e-6)) (let ((e-4 (vector-ref sc4 5))) e-4)))) (let ((e-2 (vector-ref sc3 3))) e-2)))) (let ((e-4 (vector-ref sc2 5))) e-4)) arg-2)) ext-0))))))))))))) +(define UnifyState-Core-dumpHole (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-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--14854-14572 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--15763-15151 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--13918-13511 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--14569-14194 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--14569-14047-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--13805-13403 arg-1 arg-0 e-5 hs (Prelude-not (List-Data-isNil 'erased hs))) ext-0))))))))) +(define UnifyState-Core-checkValidHole (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-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--14007-13556 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--14658-14239 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--14658-14092-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--13894-13448 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))))))))) @@ -3365,176 +3411,199 @@ (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--22197-20239 (lambda (arg-0 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--22170-20186 (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__ParseError 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--21842-19996 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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))) (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)))))))))))))))))))))))))))) -(define ProcessDecls-TTImp-n--22070-20085-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--22070-20084-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--22070-20084-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--22070-20083-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--22070-20083-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 (Support-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) (Support-Parser-eoi)) (lambda (_-20303) (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__ParseError 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--22070-20085-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-case--22796-20519 (lambda (arg-0 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--22769-20466 (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__ParseError 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--22508-20240 (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 )) eta-0))) ((1) (ProcessDecls-TTImp-n--22398-20102-checkCovering arg-0 arg-1 arg-7 (let ((sc1 arg-6)) (let ((e-1 (vector-ref sc1 2))) e-1)))) (else (lambda (eta-0) (ProcessDecls-TTImp-n--22398-20103-checkTotality arg-0 arg-1 arg-7 eta-0))))))) +(define ProcessDecls-TTImp-case--22398-20208 (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 ((treq (Maybe-Data-fromMaybe 'erased (lambda () (vector 2 )) (ProcessDecls-TTImp-n--22398-20104-findSetTotal arg-0 arg-1 (let ((sc1 e-1)) (let ((e-11 (vector-ref sc1 12))) e-11)))))) (let ((tot (let ((sc1 e-1)) (let ((e-10 (vector-ref sc1 11))) e-10)))) (let ((fc (let ((sc1 e-1)) (let ((e-0 (vector-ref sc1 1))) e-0)))) (lambda (eta-0) (let ((act-15 (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 ((sc1 act-15)) (case (vector-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 treq)) (case (vector-ref sc2 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--22398-20102-checkCovering arg-0 arg-1 fc (let ((sc3 tot)) (let ((e-2 (vector-ref sc3 2))) e-2))) eta-0)) (else (ProcessDecls-TTImp-n--22398-20103-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--22403-20140 (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--22198-20047 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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))) (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)))))))))))))))))))))))))))) +(define ProcessDecls-TTImp-n--22398-20104-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--22398-20104-findSetTotal arg-0 arg-1 e-3))))))))))) +(define ProcessDecls-TTImp-n--22398-20103-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--22398-20102-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--22403-20140 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--22398-20102-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--22669-20365-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--22669-20364-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--22669-20364-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--22669-20363-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--22669-20363-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 (_-20583) (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__ParseError 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--22669-20365-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-31 (vector-ref sc5 6))) (let ((e-30 (vector-ref sc5 7))) (let ((e-29 (vector-ref sc5 8))) (let ((e-28 (vector-ref sc5 9))) (let ((e-9 (vector-ref sc5 10))) (let ((e-10 (vector-ref sc5 11))) (let ((e-11 (vector-ref sc5 12))) (let ((e-12 (vector-ref sc5 13))) (let ((e-13 (vector-ref sc5 14))) (let ((e-14 (vector-ref sc5 15))) (let ((e-15 (vector-ref sc5 16))) (let ((e-16 (vector-ref sc5 17))) (let ((e-17 (vector-ref sc5 18))) (let ((e-27 (vector-ref sc5 19))) (let ((e-26 (vector-ref sc5 20))) (let ((e-25 (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))) (vector 0 e-0 e-1 cns e-3 e-4 e-31 e-30 e-29 e-28 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-27 e-26 e-25 e-21 e-22 e-23 e-24)))))))))))))))))))))))))) 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 ProcessType-TTImp-case--19754-19771 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 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--19647-19549 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 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--19754-19771 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 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-addHash 'erased arg-13 (vector 0 (lambda (arg-1569) (Hash-Core-hash_Hashable__Name arg-1569)) (lambda (arg-1570) (lambda (arg-1571) (Hash-Core-hashWithSalt_Hashable__Name arg-1570 arg-1571)))) 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-addHash 'erased arg-13 (vector 0 (lambda (arg-1569) (Hash-Core-hash_Hashable__C-40TermC-32C-36varsC-41 'erased arg-1569)) (lambda (arg-1570) (lambda (arg-1571) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased arg-1570 arg-1571)))) 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--19576-19457 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-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 (Core-Core-wrapError 'erased (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--19754-19771 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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-addHash 'erased arg-13 (vector 0 (lambda (arg-1569) (Hash-Core-hash_Hashable__Name arg-1569)) (lambda (arg-1570) (lambda (arg-1571) (Hash-Core-hashWithSalt_Hashable__Name arg-1570 arg-1571)))) 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-addHash 'erased arg-13 (vector 0 (lambda (arg-1569) (Hash-Core-hash_Hashable__C-40TermC-32C-36varsC-41 'erased arg-1569)) (lambda (arg-1570) (lambda (arg-1571) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased arg-1570 arg-1571)))) 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--19366-19229 (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--19343-19192 (lambda (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--19366-19229 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--19140-19035 (lambda (arg-0 arg-1 arg-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--19022-18945 (lambda (arg-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--17946-18874 (lambda (arg-0 arg-1 arg-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--17946-17979-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--17946-17975-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--17946-17978-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--18041-18694 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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--17946-17977-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--17946-17974-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--17946-17978-collectSpec arg-0 arg-1 arg-2 arg-3 accC-39 arg-11 arg-10 arg-15) eta-0)))))))))) (else (ProcessType-TTImp-n--17946-17978-collectSpec arg-0 arg-1 arg-2 arg-3 arg-12 arg-11 arg-10 arg-15)))))) -(define ProcessType-TTImp-case--18040-18591 (lambda (arg-0 arg-1 arg-2 arg-3 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--17946-17976-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--17946-17976-getDepsArgs arg-0 arg-1 arg-2 arg-3 1 e-6 e-5) eta-0))))))))))))))))) -(define ProcessType-TTImp-case--18040-18514 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-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--18452-18411 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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--18427-18370 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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--18452-18411 arg-0 arg-1 arg-2 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--18038-18117 (lambda (arg-0 arg-1 arg-2 arg-3 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--17946-17975-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--17946-17975-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--18058-18038 (lambda (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--17946-17974-insertDeps arg-0 arg-1 arg-2 arg-3 arg-7 arg-6 arg-5)) (else (ProcessType-TTImp-n--17946-17974-insertDeps arg-0 arg-1 arg-2 arg-3 (vector 1 arg-8 arg-7) arg-6 arg-5)))))) -(define ProcessType-TTImp-case--18037-17995 (lambda (arg-0 arg-1 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--17946-17974-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--18058-18038 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--17946-17915 (lambda (arg-0 arg-1 arg-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--18040-18345-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--18427-18370 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--18040-18345-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--17946-17974-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--18037-17995 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--17946-17979-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--17946-17979-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--17946-17976-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--17946-17977-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--17946-17976-getDepsArgs arg-0 arg-1 arg-2 arg-3 arg-4 e-3 e-5) eta-0)))))))))))))) -(define ProcessType-TTImp-n--17946-17977-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--17946-17977-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--17946-17977-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--17946-17977-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--17946-17977-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--17946-17976-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--17946-17976-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--18040-18591 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--18040-18345-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--17946-17977-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--19339-19166-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--19339-19166-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--19339-19165-findInf arg-0 arg-1 e-5 arg-3 e-2) eta-0)))))))))))))) -(define ProcessType-TTImp-n--19339-19165-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--19343-19192 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--19339-19166-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--19339-19166-findInfs arg-0 arg-1 arg-2 arg-3 e-5) eta-0))))))))) ((5) (let ((e-19 (vector-ref sc0 3))) (ProcessType-TTImp-n--19339-19165-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--19339-19167-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--19339-19165-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--19339-19167-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--19339-19165-findInf arg-0 arg-1 arg-5 arg-4 arg-6))))))))(else (ProcessType-TTImp-n--19339-19165-findInf arg-0 arg-1 arg-5 arg-4 arg-6)))))) -(define ProcessType-TTImp-n--17946-17978-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--18041-18694 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--17946-17975-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--18038-18117 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-32 (vector-ref sc6 1))) e-32))) 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 (Core-Core-wrapError 'erased (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--19754-19771 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-addHash 'erased arg-1 (vector 0 (lambda (arg-1569) (Hash-Core-hash_Hashable__Name arg-1569)) (lambda (arg-1570) (lambda (arg-1571) (Hash-Core-hashWithSalt_Hashable__Name arg-1570 arg-1571)))) 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-addHash 'erased arg-1 (vector 0 (lambda (arg-1569) (Hash-Core-hash_Hashable__C-40TermC-32C-36varsC-41 'erased arg-1569)) (lambda (arg-1570) (lambda (arg-1571) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased arg-1570 arg-1571)))) 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) (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-26 (vector-ref sc2 1))) 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))) (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))))))))))))))))) ((2) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (Context-Core-addGlobalHint arg-0 arg-2 e-1 eta-0)))) ((3) (lambda (eta-0) (Context-Core-setFlag arg-0 arg-1 arg-2 (vector 0 ) 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 1 ) eta-0))) ((6) (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)))) ((7) (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--17946-17979-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--17946-17975-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--17946-17978-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) ((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 (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))))))))))))) ((4) (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 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-25 (vector-ref sc1 6))) 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 ((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 ((treq (Maybe-Data-fromMaybe 'erased (lambda () (vector 2 )) (ProcessDecls-TTImp-n--22398-20104-findSetTotal arg-1 arg-0 (let ((sc3 e-1)) (let ((e-11 (vector-ref sc3 12))) e-11)))))) (let ((tot (let ((sc3 e-1)) (let ((e-10 (vector-ref sc3 11))) e-10)))) (let ((fc (let ((sc3 e-1)) (let ((e-0 (vector-ref sc3 1))) e-0)))) (let ((act-17 (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 ((sc3 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 ((sc4 treq)) (case (vector-ref sc4 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--22398-20102-checkCovering arg-1 arg-0 fc (let ((sc5 tot)) (let ((e-2 (vector-ref sc5 2))) e-2))) ext-0)) (else (ProcessDecls-TTImp-n--22398-20103-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--19984-19822 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 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--19877-19597 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 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--19984-19822 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 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-1587) (Hash-Core-hash_Hashable__Name arg-1587)) (lambda (arg-1588) (lambda (arg-1589) (Hash-Core-hashWithSalt_Hashable__Name arg-1588 arg-1589)))) (vector 0 (lambda (arg-4524) (lambda (arg-4525) (Context-Core-full_HasNames__Name arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__Name arg-4526 arg-4527)))) 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-1587) (Hash-Core-hash_Hashable__C-40TermC-32C-36varsC-41 'erased arg-1587)) (lambda (arg-1588) (lambda (arg-1589) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased arg-1588 arg-1589)))) (vector 0 (lambda (arg-4524) (lambda (arg-4525) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4526 arg-4527)))) 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--19806-19505 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-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--19984-19822 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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-1587) (Hash-Core-hash_Hashable__Name arg-1587)) (lambda (arg-1588) (lambda (arg-1589) (Hash-Core-hashWithSalt_Hashable__Name arg-1588 arg-1589)))) (vector 0 (lambda (arg-4524) (lambda (arg-4525) (Context-Core-full_HasNames__Name arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__Name arg-4526 arg-4527)))) 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-1587) (Hash-Core-hash_Hashable__C-40TermC-32C-36varsC-41 'erased arg-1587)) (lambda (arg-1588) (lambda (arg-1589) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased arg-1588 arg-1589)))) (vector 0 (lambda (arg-4524) (lambda (arg-4525) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4526 arg-4527)))) 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--19596-19277 (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--19573-19240 (lambda (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--19596-19277 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--19370-19083 (lambda (arg-0 arg-1 arg-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--19252-18993 (lambda (arg-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--18173-18922 (lambda (arg-0 arg-1 arg-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--18173-18027-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--18173-18023-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--18173-18026-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--18271-18742 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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--18173-18025-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--18173-18022-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--18173-18026-collectSpec arg-0 arg-1 arg-2 arg-3 accC-39 arg-11 arg-10 arg-15) eta-0)))))))))) (else (ProcessType-TTImp-n--18173-18026-collectSpec arg-0 arg-1 arg-2 arg-3 arg-12 arg-11 arg-10 arg-15)))))) +(define ProcessType-TTImp-case--18270-18639 (lambda (arg-0 arg-1 arg-2 arg-3 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--18173-18024-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--18173-18024-getDepsArgs arg-0 arg-1 arg-2 arg-3 1 e-6 e-5) eta-0))))))))))))))))) +(define ProcessType-TTImp-case--18270-18562 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-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--18682-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) (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--18657-18418 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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--18682-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 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--18268-18165 (lambda (arg-0 arg-1 arg-2 arg-3 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--18173-18023-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--18173-18023-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--18288-18086 (lambda (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--18173-18022-insertDeps arg-0 arg-1 arg-2 arg-3 arg-7 arg-6 arg-5)) (else (ProcessType-TTImp-n--18173-18022-insertDeps arg-0 arg-1 arg-2 arg-3 (vector 1 arg-8 arg-7) arg-6 arg-5)))))) +(define ProcessType-TTImp-case--18267-18043 (lambda (arg-0 arg-1 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--18173-18022-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--18288-18086 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--18173-17963 (lambda (arg-0 arg-1 arg-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--18270-18393-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--18657-18418 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--18270-18393-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--18173-18022-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--18267-18043 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--18173-18027-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--18173-18027-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--18173-18024-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--18173-18025-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--18173-18024-getDepsArgs arg-0 arg-1 arg-2 arg-3 arg-4 e-3 e-5) eta-0)))))))))))))) +(define ProcessType-TTImp-n--18173-18025-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--18173-18025-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--18173-18025-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--18173-18025-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--18173-18025-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--18173-18024-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--18173-18024-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--18270-18639 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--18270-18393-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--18173-18025-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--19569-19214-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--19569-19214-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--19569-19213-findInf arg-0 arg-1 e-5 arg-3 e-2) eta-0)))))))))))))) +(define ProcessType-TTImp-n--19569-19213-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--19573-19240 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--19569-19214-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--19569-19214-findInfs arg-0 arg-1 arg-2 arg-3 e-5) eta-0))))))))) ((5) (let ((e-19 (vector-ref sc0 3))) (ProcessType-TTImp-n--19569-19213-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--19569-19215-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--19569-19213-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--19569-19215-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--19569-19213-findInf arg-0 arg-1 arg-5 arg-4 arg-6))))))))(else (ProcessType-TTImp-n--19569-19213-findInf arg-0 arg-1 arg-5 arg-4 arg-6)))))) +(define ProcessType-TTImp-n--18173-18026-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--18271-18742 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--18173-18023-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--18268-18165 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-32 (vector-ref sc6 1))) e-32))) 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--19984-19822 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-1587) (Hash-Core-hash_Hashable__Name arg-1587)) (lambda (arg-1588) (lambda (arg-1589) (Hash-Core-hashWithSalt_Hashable__Name arg-1588 arg-1589)))) (vector 0 (lambda (arg-4524) (lambda (arg-4525) (Context-Core-full_HasNames__Name arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__Name arg-4526 arg-4527)))) 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-1587) (Hash-Core-hash_Hashable__C-40TermC-32C-36varsC-41 'erased arg-1587)) (lambda (arg-1588) (lambda (arg-1589) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased arg-1588 arg-1589)))) (vector 0 (lambda (arg-4524) (lambda (arg-4525) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4526 arg-4527)))) 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-26 (vector-ref sc2 1))) 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))) (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--18173-18027-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--18173-18023-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--18173-18026-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--19339-19167-fi arg-1 arg-0 0 0 (vector 0 ) (vector 0 ) arg-1))) -(define Elab-TTImp-case--19869-19904 (lambda (arg-0 arg-1 arg-2 arg-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--19869-19782 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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--19869-19698-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--17870-19617 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-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--18172-19533 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 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--18172-19453 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 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--19028-19262 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 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--18172-18998 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 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--19028-19262 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 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--18172-18776 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 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--18172-18617 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 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--18172-18319 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 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--17870-18260 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 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--19028-19262 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 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--17870-18014-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-20 (vector-ref sc16 12))) e-20)))) 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--17870-18183 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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--17892-18029 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-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--17870-18014-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--17870-18014-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--17820-17965 (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--17726-17877 (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--17653-17796-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--17659-17864 (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--17726-17877 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--17658-17843 (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--17623-17779 (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--17463-17709 (lambda (arg-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--17463-17649 (lambda (arg-0 arg-1 arg-2 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--17349-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)) (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--17653-17796-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--17653-17797-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--17726-17877 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--19869-19698-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--19869-19698-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--17870-18014-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--17892-18029 arg-0 arg-1 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--17653-17797-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--17623-17779 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--17349-17554 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--17870-18183 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--19028-19262 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--17870-18014-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-27 (vector-ref sc23 12))) e-27)))) 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 ProcessType-TTImp-findInferrable (lambda (arg-0 arg-1) (ProcessType-TTImp-n--19569-19215-fi arg-1 arg-0 0 0 (vector 0 ) (vector 0 ) arg-1))) +(define Elab-TTImp-case--20093-19949 (lambda (arg-0 arg-1 arg-2 arg-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--20093-19827 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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--20093-19743-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--18094-19662 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-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--18396-19578 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 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--18396-19498 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 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--19252-19307 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 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--18396-19043 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 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--19252-19307 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 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--18396-18821 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 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--18396-18662 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 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--18396-18364 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 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--18094-18305 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 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--19252-19307 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 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--18094-18059-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--18094-18228 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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--18116-18074 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-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--18094-18059-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--18094-18059-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--18044-18010 (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--17950-17922 (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--17877-17841-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--17883-17909 (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--17950-17922 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--17882-17888 (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--17847-17824 (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--17687-17754 (lambda (arg-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--17687-17694 (lambda (arg-0 arg-1 arg-2 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--17573-17599 (lambda (arg-0 arg-1 arg-2 arg-3 arg-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--17877-17841-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--17877-17842-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--17950-17922 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--20093-19743-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--20093-19743-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--18094-18059-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--18116-18074 arg-0 arg-1 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--17877-17842-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--17847-17824 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--17573-17599 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--18094-18228 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--19252-19307 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--18094-18059-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--17463-17649 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--17463-17709 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--19869-19698-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-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--17687-17694 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--17687-17754 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--20093-19743-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--14318-15393 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-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--16905-15131 (lambda (arg-0 arg-1 arg-2 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--16905-14719 (lambda (arg-0 arg-1 arg-2 arg-3 arg-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))) (else (lambda (eta-0) (UnifyState-Core-genVarName arg-14 arg-12 "conArg" eta-0))))))) -(define Term-Elab-TTImp-case--16286-14612 (lambda (arg-0 arg-1 arg-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--16272-14093-bindLamNF 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-7 e-5) eta-0)))))))))))) -(define Term-Elab-TTImp-case--16284-14348 (lambda (arg-0 arg-1 arg-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--16284-14271 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-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--16284-14177 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-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--16272-14092-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--16272-14092-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--16272-14092-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--16284-14348 '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--16284-14348 '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--16284-14348 '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--16272-14092-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--16272-14092-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--16284-14348 '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--16284-14348 '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--16284-14348 '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--16272-14092-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--16272-14092-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--16284-14348 '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--16284-14348 '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--16284-14348 '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--16272-14092-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--16272-14092-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--16284-14348 '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--16284-14348 '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--16284-14348 '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--16272-14092-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--16272-14092-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--16284-14348 '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--16284-14348 '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--16284-14348 '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--16272-14092-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--16272-14092-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--16284-14348 '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--16284-14348 '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--16284-14348 '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--16272-14092-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--16272-14092-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--16284-14348 '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--16284-14348 '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--16284-14348 '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--16272-14092-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--16272-14092-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--16284-14348 '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--16284-14348 '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--16284-14348 '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--16272-14093-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--16272-14093-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--16272-14093-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--16272-14093-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--16272-14093-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--16272-14093-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--16272-14093-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--16272-14093-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--16272-14093-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--16272-14093-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--16272-14093-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--16272-14093-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--16272-14093-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--16272-14093-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--16272-14093-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--16272-14093-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--16272-14093-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--16272-14094-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--16272-14092-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--16272-14093-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--16272-14094-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) ((1) (let ((e-93 (vector-ref sc1 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-93 e-6 e-7 arg-10))) (else (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)) (else (UnifyState-Core-genVarName arg-1 arg-3 "conArg" 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))))))))))))))))) ((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-96 (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-96 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-99 (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-99) 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-99)) 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--16905-15131 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)))))))))))))))))))))))) (else (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-102 (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-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 (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-102) 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-102)) 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)))))))))))))))))))))))))))))))))))) +(define Term-Elab-TTImp-case--14494-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 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--17096-16503 (lambda (arg-0 arg-1 arg-2 arg-3 arg-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--17096-16446 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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--17822-16237 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--17096-16131-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--17808-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) (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--17096-16131-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--17096-15924 (lambda (arg-0 arg-1 arg-2 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--17096-15512 (lambda (arg-0 arg-1 arg-2 arg-3 arg-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))) (else (lambda (eta-0) (UnifyState-Core-genVarName arg-14 arg-12 "conArg" eta-0))))))) +(define Term-Elab-TTImp-case--16477-15405 (lambda (arg-0 arg-1 arg-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--16463-14886-bindLamNF 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-7 e-5) eta-0)))))))))))) +(define Term-Elab-TTImp-case--16475-15141 (lambda (arg-0 arg-1 arg-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--16475-15064 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-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--16475-14970 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-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--17096-16131-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--17808-16145 arg-0 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--16463-14885-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--16463-14885-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--16463-14885-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--16475-15141 '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--16475-15141 '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--16475-15141 '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--16463-14885-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--16463-14885-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--16475-15141 '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--16475-15141 '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--16475-15141 '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--16463-14885-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--16463-14885-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--16475-15141 '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--16475-15141 '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--16475-15141 '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--16463-14885-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--16463-14885-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--16475-15141 '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--16475-15141 '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--16475-15141 '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--16463-14885-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--16463-14885-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--16475-15141 '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--16475-15141 '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--16475-15141 '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--16463-14885-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--16463-14885-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--16475-15141 '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--16475-15141 '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--16475-15141 '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--16463-14885-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--16463-14885-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--16475-15141 '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--16475-15141 '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--16475-15141 '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--16463-14885-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--16463-14885-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--16475-15141 '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--16475-15141 '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--16475-15141 '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--16463-14886-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--16463-14886-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--16463-14886-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--16463-14886-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--16463-14886-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--16463-14886-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--16463-14886-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--16463-14886-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--16463-14886-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--16463-14886-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--16463-14886-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--16463-14886-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--16463-14886-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--16463-14886-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--16463-14886-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--16463-14886-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--16463-14886-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--16463-14887-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--16463-14885-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--16463-14886-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--16463-14887-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) ((1) (let ((e-96 (vector-ref sc1 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-96 e-6 e-7 arg-10))) (else (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)) (else (UnifyState-Core-genVarName arg-1 arg-3 "conArg" 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))))))))))))))))) ((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-99 (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-99 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-102 (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-102) 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-102)) 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--17096-15924 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-105 (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-105) 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-105) 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-105)) 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--17096-16131-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--14318-15393 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--14756-14005 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 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--14681-13838 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-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--14629-13775 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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--14425-13558 (lambda (arg-0 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--14201-13346 (lambda (arg-0 arg-1 arg-2 arg-3 arg-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--14179-13321 (lambda (arg-0 arg-1 arg-2 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--14201-13346 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--14132-13278 (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 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--14494-16598 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--14928-14798 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 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--14853-14631 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-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--14801-14568 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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--14597-14351 (lambda (arg-0 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--14373-14139 (lambda (arg-0 arg-1 arg-2 arg-3 arg-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--14351-14114 (lambda (arg-0 arg-1 arg-2 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--14373-14139 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--14304-14071 (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--14201-13346 arg-0 e-5 e-4 e-3 e-2 e-1 arg-5 arg-3 arg-2 arg-1 bind-0 (List-Data-reverse 'erased e-5)) eta-0))) (else (Core-Core-throw_Catchable__Core_Error 'erased arg-5 eta-0))))))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased arg-5 eta-0))))))) +(define Rewrite-Elab-TTImp-getRewriteTerms (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((3) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-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--14373-14139 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--15387-13245 (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--15387-13201 (lambda (arg-0 arg-1 arg-2 arg-3 arg-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--15387-13151 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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--14913-12930 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-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--15084-12819 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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) (Core-Core-throw_Catchable__Core_Error 'erased arg-11 eta-0))) (else (Delayed-Elab-TTImp-retryDelayedC-39 arg-0 arg-8 arg-7 arg-6 arg-5 arg-13 arg-4)))))) -(define Delayed-Elab-TTImp-case--14913-12759 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (Delayed-Elab-TTImp-retryDelayedC-39 arg-0 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4)) ((1) (let ((errmode (vector 1 ))) (Delayed-Elab-TTImp-case--15084-12819 arg-0 arg-1 arg-2 arg-3 arg-4 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 errmode (Delayed-Elab-TTImp-ambiguous arg-12)))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased arg-12 eta-0))))))) -(define Delayed-Elab-TTImp-case--14864-12590 (lambda (arg-0 arg-1 arg-2 arg-3 arg-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) ((11) (lambda (eta-0) (Check-Elab-TTImp-handle 'erased arg-0 arg-9 arg-8 arg-7 arg-6 (lambda (eta-1) (let ((act-15 (let ((act-15 ((Context-Core-getFullName arg-9 (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-9 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Retrying delayed hole " (Name-Core-show_Show__Name e-5))) 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 ((act-16 (let ((act-16 (IORef-Data-readIORef 'erased arg-7 eta-1))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) 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))) (let ((act-17 (let ((act-17 (IORef-Data-writeIORef 'erased arg-7 (let ((sc4 e-6)) (let ((e-0 (vector-ref sc4 1))) (let ((e-12 (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-11 (vector-ref sc4 6))) (let ((e-10 (vector-ref sc4 7))) (let ((e-7 (vector-ref sc4 8))) (let ((e-9 (vector-ref sc4 10))) (vector 0 e-0 e-12 e-2 e-3 e-4 e-11 e-10 e-7 (vector 0 ) e-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 ((act-18 (arg-3 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 ((e-8 (vector-ref sc5 1))) (let ((act-19 (let ((act-19 (IORef-Data-readIORef 'erased arg-7 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-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 ((dsC-39 (List-Prelude-C-43C-43 'erased (List-Data-reverse 'erased (let ((sc7 e-9)) (let ((e-11 (vector-ref sc7 9))) e-11))) arg-4))) (let ((act-20 (Context-Core-updateDef arg-9 (vector 9 arg-2) (lambda (eta-2) (vector 1 (vector 1 (vector 0 (vector 0 ) 0) (vector 0 ) (vector 1 e-8) (vector 1 e-8) (vector 0 )))) 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 ((act-21 (Context-Core-logTerm (vector 0 ) arg-9 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Resolved delayed hole " (Prelude-show_Show__Int arg-2))) e-8 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 (Normalise-Core-logTermNF (vector 0 ) arg-9 (+ 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-8 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 (UnifyState-Core-removeHole arg-7 arg-2 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 ((Delayed-Elab-TTImp-retryDelayedC-39 arg-0 arg-9 arg-8 arg-7 arg-6 arg-5 dsC-39) eta-1)))))))))))))))))))))))))))))))))))))))))) (lambda (err) (lambda (eta-1) (let ((act-15 (let ((act-15 ((Context-Core-getFullName arg-9 (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-9 (+ 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-5) (Strings-Prelude-C-43C-43 "\u000a" (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-5)) (case (vector-ref sc3 0) ((0) ((Delayed-Elab-TTImp-retryDelayedC-39 arg-0 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4) eta-1)) ((1) (let ((errmode (vector 1 ))) ((Delayed-Elab-TTImp-case--15084-12819 arg-0 arg-1 arg-2 arg-3 arg-4 arg-6 arg-7 arg-8 arg-9 arg-10 _-0 err e-5 errmode (Delayed-Elab-TTImp-ambiguous err)) eta-1))) (else (Core-Core-throw_Catchable__Core_Error 'erased err eta-1)))))))))))) eta-0)))(else (Delayed-Elab-TTImp-retryDelayedC-39 arg-0 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4))))))(else (Delayed-Elab-TTImp-retryDelayedC-39 arg-0 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4)))))) -(define Delayed-Elab-TTImp-case--14618-12426 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18) (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--14531-12340 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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--14478-12262 (lambda (arg-0 arg-1 arg-2 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-1) (else (lambda (eta-0) (let ((act-15 (UnifyState-Core-genName arg-10 arg-8 "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 ((Delayed-Elab-TTImp-n--14478-12223-mkExpected arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 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 (let ((act-17 ((Normalise-Core-getTerm '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))) ((UnifyState-Core-newDelayed arg-0 arg-8 arg-10 arg-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))) arg-4 e-5 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 (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-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 e-5) " for"))) arg-4 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 ((act-19 (let ((act-19 (IORef-Data-readIORef 'erased arg-8 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-8 (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-6 arg-4 arg-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 e-6)) eta-0)))))))))))))))))))))))))))))))))))))) -(define Delayed-Elab-TTImp-case--14241-12116 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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 (arg-1 0)))) e-8) e-9)))))))))))))) -(define Delayed-Elab-TTImp-case--14173-12003 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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 (arg-1 0)))) 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--14128-11946 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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 (arg-1 0)))) 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--14024-11873 (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--14024-11849-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--14024-11827 (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--14024-11849-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--14478-12223-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--15387-13030-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) "NoError") ((1) "AmbigError") (else "AllErrors"))))) +(define Delayed-Elab-TTImp-case--16248-14038 (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--16248-13994 (lambda (arg-0 arg-1 arg-2 arg-3 arg-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--16248-13943 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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--15731-13691 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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--15922-13561 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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--15731-13524 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (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--15922-13561 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--15679-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 e-9) (vector 1 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 "\u000a" (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--15922-13561 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--15297-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--15297-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--15011-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--15011-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--14787-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--14712-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--14472-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--14404-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--14362-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--14226-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--14226-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--14122-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--14122-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--14122-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--14122-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--14712-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--16248-13811-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 (Delayed-Elab-TTImp-retryDelayedC-39 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 2 ) (List-Data-reverse 'erased (List-Data-filter 'erased (lambda (eta-0) (Delayed-Elab-TTImp-n--15387-13030-hasPri 'erased arg-1 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 'erased eta-0)) (let ((sc5 e-8)) (let ((e-11 (vector-ref sc5 9))) e-11))))) (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) (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-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 ((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 ((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 "Retrying delayed hole " (Name-Core-show_Show__Name e-9))) 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 ((act-18 (let ((act-18 (IORef-Data-readIORef 'erased arg-3 eta-1))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-18) 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))) (let ((act-19 (let ((act-19 (IORef-Data-writeIORef 'erased arg-3 (let ((sc9 e-12)) (let ((e-0 (vector-ref sc9 1))) (let ((e-20 (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-20 e-19 e-18 e-4 e-17 e-16 e-15 (vector 0 ) e-13))))))))))) 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 ((act-20 (e-11 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 (let ((act-21 (IORef-Data-readIORef 'erased arg-3 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 ((e-15 (vector-ref sc11 1))) (let ((dsC-39 (List-Prelude-C-43C-43 'erased (List-Data-reverse 'erased (let ((sc12 e-15)) (let ((e-17 (vector-ref sc12 9))) e-17))) e-3))) (let ((act-22 (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 e-14) (vector 1 e-14) (vector 0 )))) 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 ((act-23 (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-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 ((act-24 (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-14 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 (UnifyState-Core-removeHole arg-3 e-10 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 ((Delayed-Elab-TTImp-retryDelayedC-39 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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 "\u000a" (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) ((Delayed-Elab-TTImp-retryDelayedC-39 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-3) eta-1)) ((1) (let ((errmode (vector 1 ))) ((Delayed-Elab-TTImp-case--15084-12819 arg-0 e-6 e-10 e-11 e-3 arg-4 arg-3 arg-2 arg-1 e-5 _-0 err e-9 errmode (Delayed-Elab-TTImp-ambiguous err)) 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 e-3) eta-0))))))(else ((Delayed-Elab-TTImp-retryDelayedC-39 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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 ((Delayed-Elab-TTImp-retryDelayedC-39 arg-0 arg-1 arg-2 arg-3 arg-4 (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 ((act-16 ((Delayed-Elab-TTImp-retryDelayedC-39 arg-0 arg-1 arg-2 arg-3 arg-4 (vector 1 ) 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 ((Delayed-Elab-TTImp-retryDelayedC-39 arg-0 arg-1 arg-2 arg-3 arg-4 (vector 2 ) arg-5) ext-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--14024-11849-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-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 (Prelude-not (let ((sc1 e-5)) (let ((e-10 (vector-ref sc1 10))) e-10)))) (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--14128-11946 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 (Prelude-C-38C-38 (arg-9 err) (lambda () (let ((sc2 e-6)) (let ((e-10 (vector-ref sc2 10))) e-10))))) 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 ((e-5 (vector-ref sc0 1))) ((Delayed-Elab-TTImp-case--14478-12262 arg-0 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 (Prelude-not (let ((sc1 e-5)) (let ((e-10 (vector-ref sc1 10))) e-10)))) ext-0)))))))) +(define Delayed-Elab-TTImp-runDelays (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 ext-0) (let ((act-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--16248-13811-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 e-15) (vector 1 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 "\u000a" (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--15922-13561 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--14122-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--15011-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--15011-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--14362-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--14712-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--15297-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--15297-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--18031-4859 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-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--18031-4634 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (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--18000-4603 (lambda (arg-0 arg-1 arg-2 arg-3 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--18031-4634 arg-0 arg-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--18031-4859 arg-0 arg-1 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--17665-4457 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-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-10860) (lambda (arg-10862) (lambda (arg-10864) (lambda (arg-10865) (lambda (arg-10866) (lambda (arg-10868) (lambda (arg-10869) (Unify-Core-unifyD_Unify__NF vars arg-10860 arg-10862 arg-10864 arg-10865 arg-10866 arg-10868 arg-10869))))))))) (lambda (vars) (lambda (arg-10871) (lambda (arg-10873) (lambda (arg-10875) (lambda (arg-10876) (lambda (arg-10877) (lambda (arg-10879) (lambda (arg-10880) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-10871 arg-10873 arg-10875 arg-10876 arg-10877 arg-10879 arg-10880)))))))))) 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-10860) (lambda (arg-10862) (lambda (arg-10864) (lambda (arg-10865) (lambda (arg-10866) (lambda (arg-10868) (lambda (arg-10869) (Unify-Core-unifyD_Unify__NF vars arg-10860 arg-10862 arg-10864 arg-10865 arg-10866 arg-10868 arg-10869))))))))) (lambda (vars) (lambda (arg-10871) (lambda (arg-10873) (lambda (arg-10875) (lambda (arg-10876) (lambda (arg-10877) (lambda (arg-10879) (lambda (arg-10880) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-10871 arg-10873 arg-10875 arg-10876 arg-10877 arg-10879 arg-10880)))))))))) arg-0 arg-10 arg-9) arg-11) arg-5) arg-3) arg-16) arg-17)))))) -(define Check-Elab-TTImp-case--17665-4327 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-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-10860) (lambda (arg-10862) (lambda (arg-10864) (lambda (arg-10865) (lambda (arg-10866) (lambda (arg-10868) (lambda (arg-10869) (lambda (eta-0) (Unify-Core-unifyD_Unify__Term vars arg-10860 arg-10862 arg-10864 arg-10865 arg-10866 arg-10868 arg-10869 eta-0)))))))))) (lambda (vars) (lambda (arg-10871) (lambda (arg-10873) (lambda (arg-10875) (lambda (arg-10876) (lambda (arg-10877) (lambda (arg-10879) (lambda (arg-10880) (lambda (eta-0) (Unify-Core-unifyWithLazyD_Unify__Term vars arg-10871 arg-10873 arg-10875 arg-10876 arg-10877 arg-10879 arg-10880 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-10860) (lambda (arg-10862) (lambda (arg-10864) (lambda (arg-10865) (lambda (arg-10866) (lambda (arg-10868) (lambda (arg-10869) (lambda (eta-0) (Unify-Core-unifyD_Unify__Term vars arg-10860 arg-10862 arg-10864 arg-10865 arg-10866 arg-10868 arg-10869 eta-0)))))))))) (lambda (vars) (lambda (arg-10871) (lambda (arg-10873) (lambda (arg-10875) (lambda (arg-10876) (lambda (arg-10877) (lambda (arg-10879) (lambda (arg-10880) (lambda (eta-0) (Unify-Core-unifyWithLazyD_Unify__Term vars arg-10871 arg-10873 arg-10875 arg-10876 arg-10877 arg-10879 arg-10880 eta-0))))))))))) arg-0 arg-10 arg-9) arg-11) arg-5) arg-3) arg-16) arg-17)))))) -(define Check-Elab-TTImp-case--17486-4281 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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-10860) (lambda (arg-10862) (lambda (arg-10864) (lambda (arg-10865) (lambda (arg-10866) (lambda (arg-10868) (lambda (arg-10869) (lambda (eta-1) (Unify-Core-unifyD_Unify__Term vars arg-10860 arg-10862 arg-10864 arg-10865 arg-10866 arg-10868 arg-10869 eta-1)))))))))) (lambda (vars) (lambda (arg-10871) (lambda (arg-10873) (lambda (arg-10875) (lambda (arg-10876) (lambda (arg-10877) (lambda (arg-10879) (lambda (arg-10880) (lambda (eta-1) (Unify-Core-unifyWithLazyD_Unify__Term vars arg-10871 arg-10873 arg-10875 arg-10876 arg-10877 arg-10879 arg-10880 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-10860) (lambda (arg-10862) (lambda (arg-10864) (lambda (arg-10865) (lambda (arg-10866) (lambda (arg-10868) (lambda (arg-10869) (lambda (eta-1) (Unify-Core-unifyD_Unify__Term vars arg-10860 arg-10862 arg-10864 arg-10865 arg-10866 arg-10868 arg-10869 eta-1)))))))))) (lambda (vars) (lambda (arg-10871) (lambda (arg-10873) (lambda (arg-10875) (lambda (arg-10876) (lambda (arg-10877) (lambda (arg-10879) (lambda (arg-10880) (lambda (eta-1) (Unify-Core-unifyWithLazyD_Unify__Term vars arg-10871 arg-10873 arg-10875 arg-10876 arg-10877 arg-10879 arg-10880 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-10860) (lambda (arg-10862) (lambda (arg-10864) (lambda (arg-10865) (lambda (arg-10866) (lambda (arg-10868) (lambda (arg-10869) (Unify-Core-unifyD_Unify__NF vars arg-10860 arg-10862 arg-10864 arg-10865 arg-10866 arg-10868 arg-10869))))))))) (lambda (vars) (lambda (arg-10871) (lambda (arg-10873) (lambda (arg-10875) (lambda (arg-10876) (lambda (arg-10877) (lambda (arg-10879) (lambda (arg-10880) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-10871 arg-10873 arg-10875 arg-10876 arg-10877 arg-10879 arg-10880)))))))))) 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-10860) (lambda (arg-10862) (lambda (arg-10864) (lambda (arg-10865) (lambda (arg-10866) (lambda (arg-10868) (lambda (arg-10869) (Unify-Core-unifyD_Unify__NF vars arg-10860 arg-10862 arg-10864 arg-10865 arg-10866 arg-10868 arg-10869))))))))) (lambda (vars) (lambda (arg-10871) (lambda (arg-10873) (lambda (arg-10875) (lambda (arg-10876) (lambda (arg-10877) (lambda (arg-10879) (lambda (arg-10880) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-10871 arg-10873 arg-10875 arg-10876 arg-10877 arg-10879 arg-10880)))))))))) arg-0 arg-10 arg-9) arg-11) arg-5) arg-3) e-5) e-6) eta-0)))))))))))))))))))) -(define Check-Elab-TTImp-case--17486-4126 (lambda (arg-0 arg-1 arg-2 arg-3 arg-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--16914-3908 (lambda (arg-0 arg-1 arg-2 arg-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--16914-3609-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--16946-3832 (lambda (arg-0 arg-1 arg-2 arg-3 arg-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--16958-3696 (lambda (arg-0 arg-1 arg-2 arg-3 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--16942-3620 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-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--16958-3696 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--16958-3696 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--16958-3696 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--16477-3366 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-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--16477-3191 (lambda (arg-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--16394-3110 (lambda (arg-0 arg-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--16311-3041 (lambda (arg-0 arg-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--16129-2970 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-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))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 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-25 (vector-ref sc1 25))) e-25)))))))))))))))))))))))))))))) -(define Check-Elab-TTImp-case--15902-2686 (lambda (arg-0 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--15802-2604 (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--15742-2555 (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--15687-2513 (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))) (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)))))))))))))))) -(define Check-Elab-TTImp-case--15618-2453 (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))) (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)))))))))))))))) -(define Check-Elab-TTImp-case--15556-2393 (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))) (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)))))))))))))))) -(define Check-Elab-TTImp-case--14798-2023 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 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--14798-1877 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-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--14797-1786 (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--14778-1650-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--14569-1464 (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))) (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))))))))))))))))) -(define Check-Elab-TTImp-n--14621-1489-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--14778-1652-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--14798-1877 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--14778-1651-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--14798-2023 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--14778-1650-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--14778-1650-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--14778-1650-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--14778-1650-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--14778-1651-removeArg (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (Check-Elab-TTImp-case--14797-1786 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--13686-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--13686-645-insertAll arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-3 arg-7)))))))))))) -(define Check-Elab-TTImp-n--16914-3605-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--16942-3620 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--16914-3606-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--16914-3607-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--14778-1653-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--14778-1648-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--16914-3608-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--16914-3608-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--16914-3607-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--16914-3609-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--16946-3832 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--16914-3608-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--16914-3606-getRes arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 'erased eta-0)) arg-11))))))) +(define Check-Elab-TTImp-case--18246-4974 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-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--18246-4749 (lambda (arg-0 arg-1 arg-2 arg-3 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--18215-4718 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (case (vector-ref sc0 0) ((0) (Check-Elab-TTImp-case--18246-4749 arg-0 arg-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--18246-4974 arg-0 arg-1 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--17880-4572 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-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-10905) (lambda (arg-10907) (lambda (arg-10909) (lambda (arg-10910) (lambda (arg-10911) (lambda (arg-10913) (lambda (arg-10914) (Unify-Core-unifyD_Unify__NF vars arg-10905 arg-10907 arg-10909 arg-10910 arg-10911 arg-10913 arg-10914))))))))) (lambda (vars) (lambda (arg-10916) (lambda (arg-10918) (lambda (arg-10920) (lambda (arg-10921) (lambda (arg-10922) (lambda (arg-10924) (lambda (arg-10925) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-10916 arg-10918 arg-10920 arg-10921 arg-10922 arg-10924 arg-10925)))))))))) 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-10905) (lambda (arg-10907) (lambda (arg-10909) (lambda (arg-10910) (lambda (arg-10911) (lambda (arg-10913) (lambda (arg-10914) (Unify-Core-unifyD_Unify__NF vars arg-10905 arg-10907 arg-10909 arg-10910 arg-10911 arg-10913 arg-10914))))))))) (lambda (vars) (lambda (arg-10916) (lambda (arg-10918) (lambda (arg-10920) (lambda (arg-10921) (lambda (arg-10922) (lambda (arg-10924) (lambda (arg-10925) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-10916 arg-10918 arg-10920 arg-10921 arg-10922 arg-10924 arg-10925)))))))))) arg-0 arg-10 arg-9) arg-11) arg-5) arg-3) arg-16) arg-17)))))) +(define Check-Elab-TTImp-case--17880-4442 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-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-10905) (lambda (arg-10907) (lambda (arg-10909) (lambda (arg-10910) (lambda (arg-10911) (lambda (arg-10913) (lambda (arg-10914) (lambda (eta-0) (Unify-Core-unifyD_Unify__Term vars arg-10905 arg-10907 arg-10909 arg-10910 arg-10911 arg-10913 arg-10914 eta-0)))))))))) (lambda (vars) (lambda (arg-10916) (lambda (arg-10918) (lambda (arg-10920) (lambda (arg-10921) (lambda (arg-10922) (lambda (arg-10924) (lambda (arg-10925) (lambda (eta-0) (Unify-Core-unifyWithLazyD_Unify__Term vars arg-10916 arg-10918 arg-10920 arg-10921 arg-10922 arg-10924 arg-10925 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-10905) (lambda (arg-10907) (lambda (arg-10909) (lambda (arg-10910) (lambda (arg-10911) (lambda (arg-10913) (lambda (arg-10914) (lambda (eta-0) (Unify-Core-unifyD_Unify__Term vars arg-10905 arg-10907 arg-10909 arg-10910 arg-10911 arg-10913 arg-10914 eta-0)))))))))) (lambda (vars) (lambda (arg-10916) (lambda (arg-10918) (lambda (arg-10920) (lambda (arg-10921) (lambda (arg-10922) (lambda (arg-10924) (lambda (arg-10925) (lambda (eta-0) (Unify-Core-unifyWithLazyD_Unify__Term vars arg-10916 arg-10918 arg-10920 arg-10921 arg-10922 arg-10924 arg-10925 eta-0))))))))))) arg-0 arg-10 arg-9) arg-11) arg-5) arg-3) arg-16) arg-17)))))) +(define Check-Elab-TTImp-case--17701-4396 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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-10905) (lambda (arg-10907) (lambda (arg-10909) (lambda (arg-10910) (lambda (arg-10911) (lambda (arg-10913) (lambda (arg-10914) (lambda (eta-1) (Unify-Core-unifyD_Unify__Term vars arg-10905 arg-10907 arg-10909 arg-10910 arg-10911 arg-10913 arg-10914 eta-1)))))))))) (lambda (vars) (lambda (arg-10916) (lambda (arg-10918) (lambda (arg-10920) (lambda (arg-10921) (lambda (arg-10922) (lambda (arg-10924) (lambda (arg-10925) (lambda (eta-1) (Unify-Core-unifyWithLazyD_Unify__Term vars arg-10916 arg-10918 arg-10920 arg-10921 arg-10922 arg-10924 arg-10925 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-10905) (lambda (arg-10907) (lambda (arg-10909) (lambda (arg-10910) (lambda (arg-10911) (lambda (arg-10913) (lambda (arg-10914) (lambda (eta-1) (Unify-Core-unifyD_Unify__Term vars arg-10905 arg-10907 arg-10909 arg-10910 arg-10911 arg-10913 arg-10914 eta-1)))))))))) (lambda (vars) (lambda (arg-10916) (lambda (arg-10918) (lambda (arg-10920) (lambda (arg-10921) (lambda (arg-10922) (lambda (arg-10924) (lambda (arg-10925) (lambda (eta-1) (Unify-Core-unifyWithLazyD_Unify__Term vars arg-10916 arg-10918 arg-10920 arg-10921 arg-10922 arg-10924 arg-10925 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-10905) (lambda (arg-10907) (lambda (arg-10909) (lambda (arg-10910) (lambda (arg-10911) (lambda (arg-10913) (lambda (arg-10914) (Unify-Core-unifyD_Unify__NF vars arg-10905 arg-10907 arg-10909 arg-10910 arg-10911 arg-10913 arg-10914))))))))) (lambda (vars) (lambda (arg-10916) (lambda (arg-10918) (lambda (arg-10920) (lambda (arg-10921) (lambda (arg-10922) (lambda (arg-10924) (lambda (arg-10925) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-10916 arg-10918 arg-10920 arg-10921 arg-10922 arg-10924 arg-10925)))))))))) 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-10905) (lambda (arg-10907) (lambda (arg-10909) (lambda (arg-10910) (lambda (arg-10911) (lambda (arg-10913) (lambda (arg-10914) (Unify-Core-unifyD_Unify__NF vars arg-10905 arg-10907 arg-10909 arg-10910 arg-10911 arg-10913 arg-10914))))))))) (lambda (vars) (lambda (arg-10916) (lambda (arg-10918) (lambda (arg-10920) (lambda (arg-10921) (lambda (arg-10922) (lambda (arg-10924) (lambda (arg-10925) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-10916 arg-10918 arg-10920 arg-10921 arg-10922 arg-10924 arg-10925)))))))))) arg-0 arg-10 arg-9) arg-11) arg-5) arg-3) e-5) e-6) eta-0)))))))))))))))))))) +(define Check-Elab-TTImp-case--17701-4241 (lambda (arg-0 arg-1 arg-2 arg-3 arg-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--17129-4023 (lambda (arg-0 arg-1 arg-2 arg-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--17129-3724-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--17161-3947 (lambda (arg-0 arg-1 arg-2 arg-3 arg-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--17173-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) (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--17157-3735 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (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--17173-3811 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--17173-3811 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--17173-3811 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--16692-3481 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-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--16692-3306 (lambda (arg-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--16609-3225 (lambda (arg-0 arg-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--16526-3156 (lambda (arg-0 arg-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--16344-3085 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-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))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 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-25 (vector-ref sc1 25))) e-25)))))))))))))))))))))))))))))) +(define Check-Elab-TTImp-case--16117-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--16017-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--15957-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--15901-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--15831-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--15768-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--15006-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--15006-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--15005-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--14986-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--14775-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--14828-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--14986-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--15006-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--14986-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--15006-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--14986-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--14986-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--14986-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--14986-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--14986-1759-removeArg (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (Check-Elab-TTImp-case--15005-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--13780-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--13780-645-insertAll arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-3 arg-7)))))))))))) +(define Check-Elab-TTImp-n--17129-3720-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--17157-3735 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--17129-3721-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--17129-3722-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--14986-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--14986-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--17129-3723-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--17129-3723-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--17129-3722-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--17129-3724-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--17161-3947 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--17129-3723-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--17129-3721-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))) @@ -3542,215 +3611,216 @@ (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--14621-1489-wknTms arg-0 arg-1 arg-2 'erased eta-0)) (let ((sc1 e-5)) (let ((e-13 (vector-ref sc1 5))) e-13))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Check-Elab-TTImp-n--14621-1489-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))) 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))))) +(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--14828-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--14828-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-32 (vector-ref sc8 6))) (let ((e-31 (vector-ref sc8 7))) (let ((e-30 (vector-ref sc8 8))) (let ((e-29 (vector-ref sc8 9))) (let ((e-28 (vector-ref sc8 10))) (let ((e-27 (vector-ref sc8 11))) (let ((e-26 (vector-ref sc8 12))) (let ((e-25 (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))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-32 e-31 e-30 e-29 e-28 e-27 e-26 e-25 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-33 (vector-ref sc9 25))) e-33)))))))))))))))))))))))))))) 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-4481) (lambda (arg-4482) (Context-Core-full_HasNames__Name arg-4481 arg-4482))) (lambda (arg-4483) (lambda (arg-4484) (Context-Core-resolved_HasNames__Name arg-4483 arg-4484)))) 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-4481) (lambda (arg-4482) (Context-Core-full_HasNames__Name arg-4481 arg-4482))) (lambda (arg-4483) (lambda (arg-4484) (Context-Core-resolved_HasNames__Name arg-4483 arg-4484)))) 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 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-4524) (lambda (arg-4525) (Context-Core-full_HasNames__Name arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__Name arg-4526 arg-4527)))) 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-4524) (lambda (arg-4525) (Context-Core-full_HasNames__Name arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__Name arg-4526 arg-4527)))) 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--14778-1648-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--14778-1652-strTms arg-1 arg-0 arg-5 arg-4 arg-3 arg-2 e-6 eta-0)) (let ((sc3 e-5)) (let ((e-15 (vector-ref sc3 5))) 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 ((e-8 (vector-ref sc3 1))) (let ((act-19 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (Check-Elab-TTImp-n--14778-1652-strTms arg-1 arg-0 arg-5 arg-4 arg-3 arg-2 e-6 eta-0)) (let ((sc4 e-5)) (let ((e-15 (vector-ref sc4 6))) 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 ((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-15 (vector-ref sc5 7))) e-15)) (let ((sc5 e-5)) (let ((e-14 (vector-ref sc5 8))) e-14)) (let ((sc5 e-5)) (let ((e-13 (vector-ref sc5 9))) e-13)) (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--14778-1653-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)))) ext-0)))))))))))))))))))))))))))) +(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--14986-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--14986-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--14986-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--14986-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-13 (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))) (vector 0 e-1 e-2 e-3 e-4 e-13 e-6 e-7 e-8 e-9 e-10 e-11 (NameMap-Data-insert 'erased arg-2 (vector 0 ) e-12))))))))))))))) ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) ext-0))))))))) +(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-13 (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))) (vector 0 e-1 e-2 e-3 e-4 e-13 e-6 e-7 e-8 (vector 1 arg-2 e-9) e-10 e-11 e-12)))))))))))))) 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-13 (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))) (vector 0 e-1 e-2 e-3 e-4 e-13 e-6 e-7 (vector 1 arg-3 e-8) e-9 e-10 e-11 e-12)))))))))))))) 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-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)))) +(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--16914-3908 arg-0 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-7 (Check-Elab-TTImp-n--16914-3605-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--16914-3908 arg-0 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 (Check-Elab-TTImp-n--16914-3605-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--16914-3908 arg-0 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 (Check-Elab-TTImp-n--16914-3605-getRight arg-0 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 'erased 'erased e-5)) eta-0)))))))))))) +(define Check-Elab-TTImp-exactlyOneC-39 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-2)) (case (vector-ref sc2 0) ((0) e-6)(else (lambda (eta-0) (let ((act-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--17129-4023 arg-0 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-7 (Check-Elab-TTImp-n--17129-3720-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--17129-4023 arg-0 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 (Check-Elab-TTImp-n--17129-3720-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--17129-4023 arg-0 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 (Check-Elab-TTImp-n--17129-3720-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--17486-4126 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--17486-4281 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-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--17701-4241 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--17701-4396 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--15556-2393 '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))))) -(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--18000-4603 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-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--15768-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--18215-4718 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--13686-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 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--13780-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-allowDelay (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-10 (vector-ref sc0 10))) e-10)))) (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))))) -(define Either-Data-case--1263-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--1208-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 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--26100-24677 (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--26616-24589 (lambda (arg-0 arg-1 arg-2 arg-3 arg-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--26674-24452 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-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--26616-24366 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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--26105-24321 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-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-26 (vector-ref sc2 1))) 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))) (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--26238-24139 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--26238-24048 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-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--26166-24004 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-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--26105-23947 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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-10860) (lambda (arg-10862) (lambda (arg-10864) (lambda (arg-10865) (lambda (arg-10866) (lambda (arg-10868) (lambda (arg-10869) (lambda (eta-1) (Unify-Core-unifyD_Unify__Term vars arg-10860 arg-10862 arg-10864 arg-10865 arg-10866 arg-10868 arg-10869 eta-1)))))))))) (lambda (vars) (lambda (arg-10871) (lambda (arg-10873) (lambda (arg-10875) (lambda (arg-10876) (lambda (arg-10877) (lambda (arg-10879) (lambda (arg-10880) (lambda (eta-1) (Unify-Core-unifyWithLazyD_Unify__Term vars arg-10871 arg-10873 arg-10875 arg-10876 arg-10877 arg-10879 arg-10880 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--25996-23828 (lambda (arg-0 arg-1 arg-2 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--25807-23800 (lambda (arg-0 arg-1 arg-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))) (lambda (eta-0) (let ((act-15 ((Unify-Core-n--25807-23645-anySame arg-0 arg-1 arg-2 arg-3 e-9 arg-1) eta-0))) (let ((sc4 act-15)) (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)) (cond ((equal? sc5 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)))))) -(define Unify-Core-case--25846-23712 (lambda (arg-0 arg-1 arg-2 arg-3 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--25807-23645-anySame arg-0 arg-1 arg-2 arg-3 arg-6 arg-5)))))) -(define Unify-Core-case--25821-23671 (lambda (arg-0 arg-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))) (lambda (eta-0) (let ((act-15 (Normalise-Core-convert_Convert__Term (vector 0 ) arg-7 (vector 0 ) arg-6 e-9 eta-0))) (let ((sc4 act-15)) (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)) (cond ((equal? sc5 0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 0) eta-0)) (else ((Unify-Core-n--25807-23645-anySame arg-0 arg-1 arg-2 arg-3 arg-6 arg-5) eta-0))))))))))))(else (Unify-Core-n--25807-23645-anySame arg-0 arg-1 arg-2 arg-3 arg-6 arg-5)))))(else (Unify-Core-n--25807-23645-anySame arg-0 arg-1 arg-2 arg-3 arg-6 arg-5)))))))(else (Unify-Core-n--25807-23645-anySame arg-0 arg-1 arg-2 arg-3 arg-6 arg-5))))))(else (Unify-Core-n--25807-23645-anySame arg-0 arg-1 arg-2 arg-3 arg-6 arg-5)))))) -(define Unify-Core-case--25685-23545 (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--25313-23386 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-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--25313-23281 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-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 arg-12) (vector 1 arg-12) (vector 0 )) e-18 e-19 e-20)))))))))))))))))))))))) -(define Unify-Core-case--24192-23194 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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 arg-12) (vector 1 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--24192-23129 (lambda (arg-0 arg-1 arg-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--24659-23072 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-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--24659-22917 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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--24659-22832 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-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 arg-15) (vector 1 arg-15) (vector 0 )) e-18 e-19 e-20)))))))))))))))))))))))) -(define Unify-Core-case--24659-22683 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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--24192-22615 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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--24659-22683 arg-0 arg-1 arg-2 arg-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 e-5) (vector 1 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--24659-22917 arg-0 arg-1 arg-2 arg-3 arg-4 arg-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--24192-22555 (lambda (arg-0 arg-1 arg-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--24192-22491 (lambda (arg-0 arg-1 arg-2 arg-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 arg-13) (vector 1 arg-13) (vector 0 )) e-18 e-19 e-20)))))))))))))))))))))))) -(define Unify-Core-case--24274-22398 (lambda (arg-0 arg-1 arg-2 arg-3 arg-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--24192-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) (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--24143-22209 (lambda (arg-0 arg-1 arg-2 arg-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 e-5) (vector 1 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--24192-22615 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--24192-23194 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--24192-23194 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--24111-22169 (lambda (arg-0 arg-1 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--24143-22209 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--23524-22045 (lambda (arg-0 arg-1 arg-2 arg-3 arg-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--23590-21891 (lambda (arg-0 arg-1 arg-2 arg-3 arg-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--23590-21782 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 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--23524-21680 (lambda (arg-0 arg-1 arg-2 arg-3 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-10860) (lambda (arg-10862) (lambda (arg-10864) (lambda (arg-10865) (lambda (arg-10866) (lambda (arg-10868) (lambda (arg-10869) (lambda (eta-2) (Unify-Core-unifyD_Unify__Term vars arg-10860 arg-10862 arg-10864 arg-10865 arg-10866 arg-10868 arg-10869 eta-2)))))))))) (lambda (vars) (lambda (arg-10871) (lambda (arg-10873) (lambda (arg-10875) (lambda (arg-10876) (lambda (arg-10877) (lambda (arg-10879) (lambda (arg-10880) (lambda (eta-2) (Unify-Core-unifyWithLazyD_Unify__Term vars arg-10871 arg-10873 arg-10875 arg-10876 arg-10877 arg-10879 arg-10880 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-10860) (lambda (arg-10862) (lambda (arg-10864) (lambda (arg-10865) (lambda (arg-10866) (lambda (arg-10868) (lambda (arg-10869) (lambda (eta-2) (Unify-Core-unifyD_Unify__Term vars arg-10860 arg-10862 arg-10864 arg-10865 arg-10866 arg-10868 arg-10869 eta-2)))))))))) (lambda (vars) (lambda (arg-10871) (lambda (arg-10873) (lambda (arg-10875) (lambda (arg-10876) (lambda (arg-10877) (lambda (arg-10879) (lambda (arg-10880) (lambda (eta-2) (Unify-Core-unifyWithLazyD_Unify__Term vars arg-10871 arg-10873 arg-10875 arg-10876 arg-10877 arg-10879 arg-10880 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--23590-21782 arg-0 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--23349-21623 (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--23349-21468-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--23524-21680 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-10860) (lambda (arg-10862) (lambda (arg-10864) (lambda (arg-10865) (lambda (arg-10866) (lambda (arg-10868) (lambda (arg-10869) (lambda (eta-1) (Unify-Core-unifyD_Unify__Term vars arg-10860 arg-10862 arg-10864 arg-10865 arg-10866 arg-10868 arg-10869 eta-1)))))))))) (lambda (vars) (lambda (arg-10871) (lambda (arg-10873) (lambda (arg-10875) (lambda (arg-10876) (lambda (arg-10877) (lambda (arg-10879) (lambda (arg-10880) (lambda (eta-1) (Unify-Core-unifyWithLazyD_Unify__Term vars arg-10871 arg-10873 arg-10875 arg-10876 arg-10877 arg-10879 arg-10880 eta-1))))))))))) (vector 0 (lambda (vars) (lambda (arg-6840) (lambda (arg-6841) (lambda (arg-6843) (lambda (eta-1) (Normalise-Core-quote_Quote__Term vars arg-6840 arg-6841 arg-6843 eta-1)))))) (lambda (vars) (lambda (arg-6845) (lambda (arg-6847) (lambda (arg-6848) (lambda (arg-6850) (lambda (eta-1) (Normalise-Core-quoteGen_Quote__Term vars arg-6845 arg-6847 arg-6848 arg-6850 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--23524-22045 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--23371-21501 (lambda (arg-0 arg-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--23357-21484 (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--23371-21501 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--23228-21401 (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--23211-21357 (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--23069-21261 (lambda (arg-0 arg-1 arg-2 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-10860) (lambda (arg-10862) (lambda (arg-10864) (lambda (arg-10865) (lambda (arg-10866) (lambda (arg-10868) (lambda (arg-10869) (Unify-Core-unifyD_Unify__NF vars arg-10860 arg-10862 arg-10864 arg-10865 arg-10866 arg-10868 arg-10869))))))))) (lambda (vars) (lambda (arg-10871) (lambda (arg-10873) (lambda (arg-10875) (lambda (arg-10876) (lambda (arg-10877) (lambda (arg-10879) (lambda (arg-10880) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-10871 arg-10873 arg-10875 arg-10876 arg-10877 arg-10879 arg-10880)))))))))) arg-0 arg-1 arg-2) arg-7) arg-6) arg-5) e-5) e-6) eta-0))))))))))))))))) -(define Unify-Core-case--22796-21028 (lambda (arg-0 arg-1 arg-2 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-10860) (lambda (arg-10862) (lambda (arg-10864) (lambda (arg-10865) (lambda (arg-10866) (lambda (arg-10868) (lambda (arg-10869) (Unify-Core-unifyD_Unify__NF vars arg-10860 arg-10862 arg-10864 arg-10865 arg-10866 arg-10868 arg-10869))))))))) (lambda (vars) (lambda (arg-10871) (lambda (arg-10873) (lambda (arg-10875) (lambda (arg-10876) (lambda (arg-10877) (lambda (arg-10879) (lambda (arg-10880) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-10871 arg-10873 arg-10875 arg-10876 arg-10877 arg-10879 arg-10880)))))))))) arg-0 arg-1 arg-2) arg-7) arg-6) arg-5) e-5) e-6) eta-0))))))))))))))))) -(define Unify-Core-case--22792-20920 (lambda (arg-0 arg-1 arg-2 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-10860) (lambda (arg-10862) (lambda (arg-10864) (lambda (arg-10865) (lambda (arg-10866) (lambda (arg-10868) (lambda (arg-10869) (Unify-Core-unifyD_Unify__NF vars arg-10860 arg-10862 arg-10864 arg-10865 arg-10866 arg-10868 arg-10869))))))))) (lambda (vars) (lambda (arg-10871) (lambda (arg-10873) (lambda (arg-10875) (lambda (arg-10876) (lambda (arg-10877) (lambda (arg-10879) (lambda (arg-10880) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-10871 arg-10873 arg-10875 arg-10876 arg-10877 arg-10879 arg-10880)))))))))) arg-0 arg-1 arg-2) arg-7) arg-6) arg-5) e-5) e-6) eta-0))))))))))))))))) -(define Unify-Core-case--21939-20742 (lambda (arg-0 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--21939-20689 (lambda (arg-0 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--22331-20481 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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-10860) (lambda (arg-10862) (lambda (arg-10864) (lambda (arg-10865) (lambda (arg-10866) (lambda (arg-10868) (lambda (arg-10869) (Unify-Core-unifyD_Unify__NF vars arg-10860 arg-10862 arg-10864 arg-10865 arg-10866 arg-10868 arg-10869))))))))) (lambda (vars) (lambda (arg-10871) (lambda (arg-10873) (lambda (arg-10875) (lambda (arg-10876) (lambda (arg-10877) (lambda (arg-10879) (lambda (arg-10880) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-10871 arg-10873 arg-10875 arg-10876 arg-10877 arg-10879 arg-10880)))))))))) 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--21935-20380 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-10860) (lambda (arg-10862) (lambda (arg-10864) (lambda (arg-10865) (lambda (arg-10866) (lambda (arg-10868) (lambda (arg-10869) (Unify-Core-unifyD_Unify__NF vars arg-10860 arg-10862 arg-10864 arg-10865 arg-10866 arg-10868 arg-10869))))))))) (lambda (vars) (lambda (arg-10871) (lambda (arg-10873) (lambda (arg-10875) (lambda (arg-10876) (lambda (arg-10877) (lambda (arg-10879) (lambda (arg-10880) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-10871 arg-10873 arg-10875 arg-10876 arg-10877 arg-10879 arg-10880)))))))))) 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--22026-20204 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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-10860) (lambda (arg-10862) (lambda (arg-10864) (lambda (arg-10865) (lambda (arg-10866) (lambda (arg-10868) (lambda (arg-10869) (Unify-Core-unifyD_Unify__NF vars arg-10860 arg-10862 arg-10864 arg-10865 arg-10866 arg-10868 arg-10869))))))))) (lambda (vars) (lambda (arg-10871) (lambda (arg-10873) (lambda (arg-10875) (lambda (arg-10876) (lambda (arg-10877) (lambda (arg-10879) (lambda (arg-10880) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-10871 arg-10873 arg-10875 arg-10876 arg-10877 arg-10879 arg-10880)))))))))) 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--21935-20103 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-10860) (lambda (arg-10862) (lambda (arg-10864) (lambda (arg-10865) (lambda (arg-10866) (lambda (arg-10868) (lambda (arg-10869) (Unify-Core-unifyD_Unify__NF vars arg-10860 arg-10862 arg-10864 arg-10865 arg-10866 arg-10868 arg-10869))))))))) (lambda (vars) (lambda (arg-10871) (lambda (arg-10873) (lambda (arg-10875) (lambda (arg-10876) (lambda (arg-10877) (lambda (arg-10879) (lambda (arg-10880) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-10871 arg-10873 arg-10875 arg-10876 arg-10877 arg-10879 arg-10880)))))))))) 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--15667-19839 (lambda (arg-0 arg-1 arg-2 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--15667-19762 (lambda (arg-0 arg-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--15663-19617 (lambda (arg-0 arg-1 arg-2 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--15663-19405 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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-10860) (lambda (arg-10862) (lambda (arg-10864) (lambda (arg-10865) (lambda (arg-10866) (lambda (arg-10868) (lambda (arg-10869) (lambda (eta-1) (Unify-Core-unifyD_Unify__Closure vars arg-10860 arg-10862 arg-10864 arg-10865 arg-10866 arg-10868 arg-10869 eta-1)))))))))) (lambda (vars) (lambda (arg-10871) (lambda (arg-10873) (lambda (arg-10875) (lambda (arg-10876) (lambda (arg-10877) (lambda (arg-10879) (lambda (arg-10880) (lambda (eta-1) (Unify-Core-unifyWithLazyD_Unify__Closure vars arg-10871 arg-10873 arg-10875 arg-10876 arg-10877 arg-10879 arg-10880 eta-1))))))))))) (vector 0 (lambda (vars) (lambda (arg-6840) (lambda (arg-6841) (lambda (arg-6843) (lambda (eta-1) (Normalise-Core-quote_Quote__Closure vars arg-6840 arg-6841 arg-6843 eta-1)))))) (lambda (vars) (lambda (arg-6845) (lambda (arg-6847) (lambda (arg-6848) (lambda (arg-6850) (lambda (eta-1) (Normalise-Core-quoteGen_Quote__Closure vars arg-6845 arg-6847 arg-6848 arg-6850 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--15663-19299 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-10860) (lambda (arg-10862) (lambda (arg-10864) (lambda (arg-10865) (lambda (arg-10866) (lambda (arg-10868) (lambda (arg-10869) (lambda (eta-1) (Unify-Core-unifyD_Unify__Closure vars arg-10860 arg-10862 arg-10864 arg-10865 arg-10866 arg-10868 arg-10869 eta-1)))))))))) (lambda (vars) (lambda (arg-10871) (lambda (arg-10873) (lambda (arg-10875) (lambda (arg-10876) (lambda (arg-10877) (lambda (arg-10879) (lambda (arg-10880) (lambda (eta-1) (Unify-Core-unifyWithLazyD_Unify__Closure vars arg-10871 arg-10873 arg-10875 arg-10876 arg-10877 arg-10879 arg-10880 eta-1))))))))))) (vector 0 (lambda (vars) (lambda (arg-6840) (lambda (arg-6841) (lambda (arg-6843) (lambda (eta-1) (Normalise-Core-quote_Quote__Closure vars arg-6840 arg-6841 arg-6843 eta-1)))))) (lambda (vars) (lambda (arg-6845) (lambda (arg-6847) (lambda (arg-6848) (lambda (arg-6850) (lambda (eta-1) (Normalise-Core-quoteGen_Quote__Closure vars arg-6845 arg-6847 arg-6848 arg-6850 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--15656-18992 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-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-10860) (lambda (arg-10862) (lambda (arg-10864) (lambda (arg-10865) (lambda (arg-10866) (lambda (arg-10868) (lambda (arg-10869) (Unify-Core-unifyD_Unify__NF vars arg-10860 arg-10862 arg-10864 arg-10865 arg-10866 arg-10868 arg-10869))))))))) (lambda (vars) (lambda (arg-10871) (lambda (arg-10873) (lambda (arg-10875) (lambda (arg-10876) (lambda (arg-10877) (lambda (arg-10879) (lambda (arg-10880) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-10871 arg-10873 arg-10875 arg-10876 arg-10877 arg-10879 arg-10880)))))))))) 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-10860) (lambda (arg-10862) (lambda (arg-10864) (lambda (arg-10865) (lambda (arg-10866) (lambda (arg-10868) (lambda (arg-10869) (lambda (eta-1) (Unify-Core-unifyD_Unify__Term vars arg-10860 arg-10862 arg-10864 arg-10865 arg-10866 arg-10868 arg-10869 eta-1)))))))))) (lambda (vars) (lambda (arg-10871) (lambda (arg-10873) (lambda (arg-10875) (lambda (arg-10876) (lambda (arg-10877) (lambda (arg-10879) (lambda (arg-10880) (lambda (eta-1) (Unify-Core-unifyWithLazyD_Unify__Term vars arg-10871 arg-10873 arg-10875 arg-10876 arg-10877 arg-10879 arg-10880 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--20394-18693 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 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-10860) (lambda (arg-10862) (lambda (arg-10864) (lambda (arg-10865) (lambda (arg-10866) (lambda (arg-10868) (lambda (arg-10869) (lambda (eta-1) (Unify-Core-unifyD_Unify__Term vars arg-10860 arg-10862 arg-10864 arg-10865 arg-10866 arg-10868 arg-10869 eta-1)))))))))) (lambda (vars) (lambda (arg-10871) (lambda (arg-10873) (lambda (arg-10875) (lambda (arg-10876) (lambda (arg-10877) (lambda (arg-10879) (lambda (arg-10880) (lambda (eta-1) (Unify-Core-unifyWithLazyD_Unify__Term vars arg-10871 arg-10873 arg-10875 arg-10876 arg-10877 arg-10879 arg-10880 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-10860) (lambda (arg-10862) (lambda (arg-10864) (lambda (arg-10865) (lambda (arg-10866) (lambda (arg-10868) (lambda (arg-10869) (lambda (eta-1) (Unify-Core-unifyD_Unify__Term vars arg-10860 arg-10862 arg-10864 arg-10865 arg-10866 arg-10868 arg-10869 eta-1)))))))))) (lambda (vars) (lambda (arg-10871) (lambda (arg-10873) (lambda (arg-10875) (lambda (arg-10876) (lambda (arg-10877) (lambda (arg-10879) (lambda (arg-10880) (lambda (eta-1) (Unify-Core-unifyWithLazyD_Unify__Term vars arg-10871 arg-10873 arg-10875 arg-10876 arg-10877 arg-10879 arg-10880 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--15656-18527 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-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-10860) (lambda (arg-10862) (lambda (arg-10864) (lambda (arg-10865) (lambda (arg-10866) (lambda (arg-10868) (lambda (arg-10869) (Unify-Core-unifyD_Unify__NF vars arg-10860 arg-10862 arg-10864 arg-10865 arg-10866 arg-10868 arg-10869))))))))) (lambda (vars) (lambda (arg-10871) (lambda (arg-10873) (lambda (arg-10875) (lambda (arg-10876) (lambda (arg-10877) (lambda (arg-10879) (lambda (arg-10880) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-10871 arg-10873 arg-10875 arg-10876 arg-10877 arg-10879 arg-10880)))))))))) 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--20394-18693 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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--15651-18338 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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-10860) (lambda (arg-10862) (lambda (arg-10864) (lambda (arg-10865) (lambda (arg-10866) (lambda (arg-10868) (lambda (arg-10869) (lambda (eta-1) (Unify-Core-unifyD_Unify__Closure vars arg-10860 arg-10862 arg-10864 arg-10865 arg-10866 arg-10868 arg-10869 eta-1)))))))))) (lambda (vars) (lambda (arg-10871) (lambda (arg-10873) (lambda (arg-10875) (lambda (arg-10876) (lambda (arg-10877) (lambda (arg-10879) (lambda (arg-10880) (lambda (eta-1) (Unify-Core-unifyWithLazyD_Unify__Closure vars arg-10871 arg-10873 arg-10875 arg-10876 arg-10877 arg-10879 arg-10880 eta-1))))))))))) (vector 0 (lambda (vars) (lambda (arg-6840) (lambda (arg-6841) (lambda (arg-6843) (lambda (eta-1) (Normalise-Core-quote_Quote__Closure vars arg-6840 arg-6841 arg-6843 eta-1)))))) (lambda (vars) (lambda (arg-6845) (lambda (arg-6847) (lambda (arg-6848) (lambda (arg-6850) (lambda (eta-1) (Normalise-Core-quoteGen_Quote__Closure vars arg-6845 arg-6847 arg-6848 arg-6850 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--15651-18237 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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-10860) (lambda (arg-10862) (lambda (arg-10864) (lambda (arg-10865) (lambda (arg-10866) (lambda (arg-10868) (lambda (arg-10869) (lambda (eta-0) (Unify-Core-unifyD_Unify__Closure vars arg-10860 arg-10862 arg-10864 arg-10865 arg-10866 arg-10868 arg-10869 eta-0)))))))))) (lambda (vars) (lambda (arg-10871) (lambda (arg-10873) (lambda (arg-10875) (lambda (arg-10876) (lambda (arg-10877) (lambda (arg-10879) (lambda (arg-10880) (lambda (eta-0) (Unify-Core-unifyWithLazyD_Unify__Closure vars arg-10871 arg-10873 arg-10875 arg-10876 arg-10877 arg-10879 arg-10880 eta-0))))))))))) (vector 0 (lambda (vars) (lambda (arg-6840) (lambda (arg-6841) (lambda (arg-6843) (lambda (eta-0) (Normalise-Core-quote_Quote__Closure vars arg-6840 arg-6841 arg-6843 eta-0)))))) (lambda (vars) (lambda (arg-6845) (lambda (arg-6847) (lambda (arg-6848) (lambda (arg-6850) (lambda (eta-0) (Normalise-Core-quoteGen_Quote__Closure vars arg-6845 arg-6847 arg-6848 arg-6850 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--15651-18155 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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--19686-18032 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-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--15651-17924 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-10860) (lambda (arg-10862) (lambda (arg-10864) (lambda (arg-10865) (lambda (arg-10866) (lambda (arg-10868) (lambda (arg-10869) (lambda (eta-0) (Unify-Core-unifyD_Unify__Closure vars arg-10860 arg-10862 arg-10864 arg-10865 arg-10866 arg-10868 arg-10869 eta-0)))))))))) (lambda (vars) (lambda (arg-10871) (lambda (arg-10873) (lambda (arg-10875) (lambda (arg-10876) (lambda (arg-10877) (lambda (arg-10879) (lambda (arg-10880) (lambda (eta-0) (Unify-Core-unifyWithLazyD_Unify__Closure vars arg-10871 arg-10873 arg-10875 arg-10876 arg-10877 arg-10879 arg-10880 eta-0))))))))))) (vector 0 (lambda (vars) (lambda (arg-6840) (lambda (arg-6841) (lambda (arg-6843) (lambda (eta-0) (Normalise-Core-quote_Quote__Closure vars arg-6840 arg-6841 arg-6843 eta-0)))))) (lambda (vars) (lambda (arg-6845) (lambda (arg-6847) (lambda (arg-6848) (lambda (arg-6850) (lambda (eta-0) (Normalise-Core-quoteGen_Quote__Closure vars arg-6845 arg-6847 arg-6848 arg-6850 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--15651-17777-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--15651-17777-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--19686-18032 arg-0 arg-1 arg-2 arg-3 arg-4 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--15651-17776-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--19522-17811 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-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--15651-17777-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--15651-17777-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--15651-17777-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--15651-17638 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-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-10860) (lambda (arg-10862) (lambda (arg-10864) (lambda (arg-10865) (lambda (arg-10866) (lambda (arg-10868) (lambda (arg-10869) (lambda (eta-0) (Unify-Core-unifyD_Unify__Closure vars arg-10860 arg-10862 arg-10864 arg-10865 arg-10866 arg-10868 arg-10869 eta-0)))))))))) (lambda (vars) (lambda (arg-10871) (lambda (arg-10873) (lambda (arg-10875) (lambda (arg-10876) (lambda (arg-10877) (lambda (arg-10879) (lambda (arg-10880) (lambda (eta-0) (Unify-Core-unifyWithLazyD_Unify__Closure vars arg-10871 arg-10873 arg-10875 arg-10876 arg-10877 arg-10879 arg-10880 eta-0))))))))))) (vector 0 (lambda (vars) (lambda (arg-6840) (lambda (arg-6841) (lambda (arg-6843) (lambda (eta-0) (Normalise-Core-quote_Quote__Closure vars arg-6840 arg-6841 arg-6843 eta-0)))))) (lambda (vars) (lambda (arg-6845) (lambda (arg-6847) (lambda (arg-6848) (lambda (arg-6850) (lambda (eta-0) (Normalise-Core-quoteGen_Quote__Closure vars arg-6845 arg-6847 arg-6848 arg-6850 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--15651-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) (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--15647-17466 (lambda (arg-0 arg-1 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--15647-17393 (lambda (arg-0 arg-1 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--15647-17177 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--15647-17081 (lambda (arg-0 arg-1 arg-2 arg-3 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--18164-16739 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 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--18077-16607 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 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--18164-16739 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 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--17985-16547 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 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--18077-16607 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 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--17916-16476 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 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--18077-16607 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 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--17467-16429 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--17916-16476 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--17587-16190 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-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--17527-16142 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-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--17587-16190 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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--17467-16101 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--17527-16142 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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--15643-16057 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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--17527-16142 arg-0 arg-1 arg-2 arg-3 arg-4 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--17916-16476 arg-0 arg-1 arg-2 arg-3 arg-4 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--17169-15888 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--15638-15803 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--15634-15704 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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--16778-15534 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-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--15630-15492 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--15630-15468-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--16228-15055 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 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-10860) (lambda (arg-10862) (lambda (arg-10864) (lambda (arg-10865) (lambda (arg-10866) (lambda (arg-10868) (lambda (arg-10869) (lambda (eta-1) (Unify-Core-unifyD_Unify__Closure vars arg-10860 arg-10862 arg-10864 arg-10865 arg-10866 arg-10868 arg-10869 eta-1)))))))))) (lambda (vars) (lambda (arg-10871) (lambda (arg-10873) (lambda (arg-10875) (lambda (arg-10876) (lambda (arg-10877) (lambda (arg-10879) (lambda (arg-10880) (lambda (eta-1) (Unify-Core-unifyWithLazyD_Unify__Closure vars arg-10871 arg-10873 arg-10875 arg-10876 arg-10877 arg-10879 arg-10880 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-10860) (lambda (arg-10862) (lambda (arg-10864) (lambda (arg-10865) (lambda (arg-10866) (lambda (arg-10868) (lambda (arg-10869) (Unify-Core-unifyD_Unify__NF vars arg-10860 arg-10862 arg-10864 arg-10865 arg-10866 arg-10868 arg-10869))))))))) (lambda (vars) (lambda (arg-10871) (lambda (arg-10873) (lambda (arg-10875) (lambda (arg-10876) (lambda (arg-10877) (lambda (arg-10879) (lambda (arg-10880) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-10871 arg-10873 arg-10875 arg-10876 arg-10877 arg-10879 arg-10880)))))))))) 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-10860) (lambda (arg-10862) (lambda (arg-10864) (lambda (arg-10865) (lambda (arg-10866) (lambda (arg-10868) (lambda (arg-10869) (lambda (eta-1) (Unify-Core-unifyD_Unify__Closure vars arg-10860 arg-10862 arg-10864 arg-10865 arg-10866 arg-10868 arg-10869 eta-1)))))))))) (lambda (vars) (lambda (arg-10871) (lambda (arg-10873) (lambda (arg-10875) (lambda (arg-10876) (lambda (arg-10877) (lambda (arg-10879) (lambda (arg-10880) (lambda (eta-1) (Unify-Core-unifyWithLazyD_Unify__Closure vars arg-10871 arg-10873 arg-10875 arg-10876 arg-10877 arg-10879 arg-10880 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-10860) (lambda (arg-10862) (lambda (arg-10864) (lambda (arg-10865) (lambda (arg-10866) (lambda (arg-10868) (lambda (arg-10869) (Unify-Core-unifyD_Unify__NF vars arg-10860 arg-10862 arg-10864 arg-10865 arg-10866 arg-10868 arg-10869))))))))) (lambda (vars) (lambda (arg-10871) (lambda (arg-10873) (lambda (arg-10875) (lambda (arg-10876) (lambda (arg-10877) (lambda (arg-10879) (lambda (arg-10880) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-10871 arg-10873 arg-10875 arg-10876 arg-10877 arg-10879 arg-10880)))))))))) 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--16161-14993 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-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--16228-15055 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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--16082-14944 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-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--16161-14993 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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--15626-14878 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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--16161-14993 arg-0 arg-1 arg-2 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--15623-14775 (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--15621-14679 (lambda (arg-0 arg-1 arg-2 arg-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--15703-14597 (lambda (arg-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--15617-14552 (lambda (arg-0 arg-1 arg-2 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--15575-14383 (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--15335-14246 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--15248-14162 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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--15202-14091 (lambda (arg-0 arg-1 arg-2 arg-3 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--15248-14162 arg-0 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--15172-14054 (lambda (arg-0 arg-1 arg-2 arg-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--15248-14162 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--13898-13959 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-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 arg-18) (vector 1 arg-18) (vector 0 )) e-18 e-19 e-20)))))))))))))))))))))))) -(define Unify-Core-case--13898-13862 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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--13922-13571 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19) (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--13921-13472 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--14206-13224 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 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--14155-13162 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 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--13898-12912-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--14206-13224 arg-0 arg-1 arg-2 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--13898-12912-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--13921-13056 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--13751-12829 (lambda (arg-0 arg-1 arg-2 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--13502-12549-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--13502-12766 (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--13751-12829 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--13514-12628 (lambda (arg-0 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--13502-12549-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--13502-12549-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--13514-12567 (lambda (arg-0 arg-1 arg-2 arg-3 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--13409-12504 (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--13290-12367-updateVars arg-0 arg-1 arg-2 arg-3 arg-4 'erased arg-7 e-3) e-3)))) eta-0))))))) -(define Unify-Core-case--13290-12463 (lambda (arg-0 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--13409-12504 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--13301-12392 (lambda (arg-0 arg-1 arg-2 arg-3 arg-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--13290-12367-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--13290-12367-updateVars arg-0 arg-1 arg-2 arg-3 arg-4 'erased arg-9 arg-10)))))))) -(define Unify-Core-case--13194-12298 (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--13093-12238 (lambda (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--12967-12089-updateVars arg-0 arg-1 arg-2 arg-3 arg-4 'erased arg-8 e-3) e-3)))) eta-0))))))) -(define Unify-Core-case--12967-12193 (lambda (arg-0 arg-1 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--13093-12238 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--12978-12114 (lambda (arg-0 arg-1 arg-2 arg-3 arg-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--12967-12089-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--12967-12089-updateVars arg-0 arg-1 arg-2 arg-3 arg-4 'erased arg-9 arg-10)))))))) -(define Unify-Core-case--12904-12042 (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--12853-12026 (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--12904-12042 arg-0 arg-1 arg-2 e-2 e-3 (Unify-Core-n--12853-11992-anyFirst arg-0 arg-1 arg-2 arg-2))))))) -(define Unify-Core-case--12664-11898 (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--12692-11849 (lambda (arg-0 arg-1 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--12664-11835-inArgs arg-0 'erased arg-2 'erased arg-4 arg-5 arg-6 arg-7 arg-10 arg-9)))))) -(define Unify-Core-case--12511-11689 (lambda (arg-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--12119-11606 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (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--12135-11332 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-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--12003-11240 (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-8 (vector-ref sc2 1))) (let ((sns (NameMap-Data-keys 'erased (TT-Core-getMetas 'erased e-8)))) (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--11986-11201 (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 1))) (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--11925-11149 (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--11520-10669 (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--11511-10658 (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--13290-12367-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--13301-12392 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--12967-12089-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--12978-12114 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--13921-13111-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--13898-12912-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--13898-12912-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--13898-12912-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--14155-13162 arg-0 arg-1 arg-2 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--13898-12912-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--13898-12912-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--13898-12912-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--13898-12912-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--13898-12912-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--13898-12911-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--13921-13111-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--13898-12912-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--13898-12912-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--13898-12912-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--13898-12911-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--13898-12911-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--12119-11316-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--15638-15771-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--15651-17776-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--13898-12913-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--13922-13571 arg-0 arg-1 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--13898-12912-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--13898-12913-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--13898-12913-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--13898-12913-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--13898-12913-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--13898-12913-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--13898-12913-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--15651-17777-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--15651-17777-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--15651-17777-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--15651-17777-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--13898-12910-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--13898-12910-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--15630-15468-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--15663-19708-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--12664-11835-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--12692-11849 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--13502-12549-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--13514-12567 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--13514-12628 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--23349-21468-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--23371-21501 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--25680-23515-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--26100-23889-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-10860) (lambda (arg-10862) (lambda (arg-10864) (lambda (arg-10865) (lambda (arg-10866) (lambda (arg-10868) (lambda (arg-10869) (lambda (eta-2) (Unify-Core-unifyD_Unify__Term vars arg-10860 arg-10862 arg-10864 arg-10865 arg-10866 arg-10868 arg-10869 eta-2)))))))))) (lambda (vars) (lambda (arg-10871) (lambda (arg-10873) (lambda (arg-10875) (lambda (arg-10876) (lambda (arg-10877) (lambda (arg-10879) (lambda (arg-10880) (lambda (eta-2) (Unify-Core-unifyWithLazyD_Unify__Term vars arg-10871 arg-10873 arg-10875 arg-10876 arg-10877 arg-10879 arg-10880 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-40 (vector-ref sc8 1))) e-40)) 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--25807-23645-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-11 (vector-ref sc6 1))) (let ((act-17 (Normalise-Core-convert_Convert__Term (vector 0 ) e-5 (vector 0 ) arg-4 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))) (let ((sc8 e-12)) (cond ((equal? sc8 0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 0) eta-0)) (else ((Unify-Core-n--25807-23645-anySame arg-0 arg-1 arg-2 arg-3 arg-4 e-3) eta-0)))))))))))(else ((Unify-Core-n--25807-23645-anySame arg-0 arg-1 arg-2 arg-3 arg-4 e-3) eta-0)))))(else ((Unify-Core-n--25807-23645-anySame arg-0 arg-1 arg-2 arg-3 arg-4 e-3) eta-0)))))))(else ((Unify-Core-n--25807-23645-anySame arg-0 arg-1 arg-2 arg-3 arg-4 e-3) eta-0))))))(else ((Unify-Core-n--25807-23645-anySame arg-0 arg-1 arg-2 arg-3 arg-4 e-3) eta-0)))))))))))))))))))))) -(define Unify-Core-n--12853-11992-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--12853-11992-anyFirst arg-0 arg-1 arg-2 e-3))))))))))) -(define Unify-Core-n--25632-23472-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-10860) (lambda (arg-10862) (lambda (arg-10864) (lambda (arg-10865) (lambda (arg-10866) (lambda (arg-10868) (lambda (arg-10869) (Unify-Core-unifyD_Unify__NF vars arg-10860 arg-10862 arg-10864 arg-10865 arg-10866 arg-10868 arg-10869))))))))) (lambda (vars) (lambda (arg-10871) (lambda (arg-10873) (lambda (arg-10875) (lambda (arg-10876) (lambda (arg-10877) (lambda (arg-10879) (lambda (arg-10880) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-10871 arg-10873 arg-10875 arg-10876 arg-10877 arg-10879 arg-10880)))))))))) 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-10860) (lambda (arg-10862) (lambda (arg-10864) (lambda (arg-10865) (lambda (arg-10866) (lambda (arg-10868) (lambda (arg-10869) (Unify-Core-unifyD_Unify__NF vars arg-10860 arg-10862 arg-10864 arg-10865 arg-10866 arg-10868 arg-10869))))))))) (lambda (vars) (lambda (arg-10871) (lambda (arg-10873) (lambda (arg-10875) (lambda (arg-10876) (lambda (arg-10877) (lambda (arg-10879) (lambda (arg-10880) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-10871 arg-10873 arg-10875 arg-10876 arg-10877 arg-10879 arg-10880)))))))))) 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-10860) (lambda (arg-10862) (lambda (arg-10864) (lambda (arg-10865) (lambda (arg-10866) (lambda (arg-10868) (lambda (arg-10869) (Unify-Core-unifyD_Unify__NF vars arg-10860 arg-10862 arg-10864 arg-10865 arg-10866 arg-10868 arg-10869))))))))) (lambda (vars) (lambda (arg-10871) (lambda (arg-10873) (lambda (arg-10875) (lambda (arg-10876) (lambda (arg-10877) (lambda (arg-10879) (lambda (arg-10880) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-10871 arg-10873 arg-10875 arg-10876 arg-10877 arg-10879 arg-10880)))))))))) 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-10860) (lambda (arg-10862) (lambda (arg-10864) (lambda (arg-10865) (lambda (arg-10866) (lambda (arg-10868) (lambda (arg-10869) (Unify-Core-unifyD_Unify__NF vars arg-10860 arg-10862 arg-10864 arg-10865 arg-10866 arg-10868 arg-10869))))))))) (lambda (vars) (lambda (arg-10871) (lambda (arg-10873) (lambda (arg-10875) (lambda (arg-10876) (lambda (arg-10877) (lambda (arg-10879) (lambda (arg-10880) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-10871 arg-10873 arg-10875 arg-10876 arg-10877 arg-10879 arg-10880)))))))))) 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-10860) (lambda (arg-10862) (lambda (arg-10864) (lambda (arg-10865) (lambda (arg-10866) (lambda (arg-10868) (lambda (arg-10869) (Unify-Core-unifyD_Unify__NF vars arg-10860 arg-10862 arg-10864 arg-10865 arg-10866 arg-10868 arg-10869))))))))) (lambda (vars) (lambda (arg-10871) (lambda (arg-10873) (lambda (arg-10875) (lambda (arg-10876) (lambda (arg-10877) (lambda (arg-10879) (lambda (arg-10880) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-10871 arg-10873 arg-10875 arg-10876 arg-10877 arg-10879 arg-10880)))))))))) arg-0 arg-1 arg-2) arg-3) arg-4) arg-5) arg-6) arg-7))))))))) +(define Unify-Core-case--26189-24722 (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--26705-24634 (lambda (arg-0 arg-1 arg-2 arg-3 arg-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--26763-24497 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-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--26705-24411 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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--26194-24366 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-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-26 (vector-ref sc2 1))) 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))) (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--26327-24184 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--26327-24093 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-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--26255-24049 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-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--26194-23992 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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-10905) (lambda (arg-10907) (lambda (arg-10909) (lambda (arg-10910) (lambda (arg-10911) (lambda (arg-10913) (lambda (arg-10914) (lambda (eta-1) (Unify-Core-unifyD_Unify__Term vars arg-10905 arg-10907 arg-10909 arg-10910 arg-10911 arg-10913 arg-10914 eta-1)))))))))) (lambda (vars) (lambda (arg-10916) (lambda (arg-10918) (lambda (arg-10920) (lambda (arg-10921) (lambda (arg-10922) (lambda (arg-10924) (lambda (arg-10925) (lambda (eta-1) (Unify-Core-unifyWithLazyD_Unify__Term vars arg-10916 arg-10918 arg-10920 arg-10921 arg-10922 arg-10924 arg-10925 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--26085-23873 (lambda (arg-0 arg-1 arg-2 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--25896-23845 (lambda (arg-0 arg-1 arg-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))) (lambda (eta-0) (let ((act-15 ((Unify-Core-n--25896-23690-anySame arg-0 arg-1 arg-2 arg-3 e-9 arg-1) eta-0))) (let ((sc4 act-15)) (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)) (cond ((equal? sc5 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)))))) +(define Unify-Core-case--25935-23757 (lambda (arg-0 arg-1 arg-2 arg-3 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--25896-23690-anySame arg-0 arg-1 arg-2 arg-3 arg-6 arg-5)))))) +(define Unify-Core-case--25910-23716 (lambda (arg-0 arg-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))) (lambda (eta-0) (let ((act-15 (Normalise-Core-convert_Convert__Term (vector 0 ) arg-7 (vector 0 ) arg-6 e-9 eta-0))) (let ((sc4 act-15)) (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)) (cond ((equal? sc5 0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 0) eta-0)) (else ((Unify-Core-n--25896-23690-anySame arg-0 arg-1 arg-2 arg-3 arg-6 arg-5) eta-0))))))))))))(else (Unify-Core-n--25896-23690-anySame arg-0 arg-1 arg-2 arg-3 arg-6 arg-5)))))(else (Unify-Core-n--25896-23690-anySame arg-0 arg-1 arg-2 arg-3 arg-6 arg-5)))))))(else (Unify-Core-n--25896-23690-anySame arg-0 arg-1 arg-2 arg-3 arg-6 arg-5))))))(else (Unify-Core-n--25896-23690-anySame arg-0 arg-1 arg-2 arg-3 arg-6 arg-5)))))) +(define Unify-Core-case--25774-23590 (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--25402-23431 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-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--25402-23326 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-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 arg-12) (vector 1 arg-12) (vector 0 )) e-18 e-19 e-20)))))))))))))))))))))))) +(define Unify-Core-case--24281-23239 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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 arg-12) (vector 1 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--24281-23174 (lambda (arg-0 arg-1 arg-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--24748-23117 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-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--24748-22962 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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--24748-22877 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-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 arg-15) (vector 1 arg-15) (vector 0 )) e-18 e-19 e-20)))))))))))))))))))))))) +(define Unify-Core-case--24748-22728 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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--24281-22660 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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--24748-22728 arg-0 arg-1 arg-2 arg-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 e-5) (vector 1 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--24748-22962 arg-0 arg-1 arg-2 arg-3 arg-4 arg-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--24281-22600 (lambda (arg-0 arg-1 arg-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--24281-22536 (lambda (arg-0 arg-1 arg-2 arg-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 arg-13) (vector 1 arg-13) (vector 0 )) e-18 e-19 e-20)))))))))))))))))))))))) +(define Unify-Core-case--24363-22443 (lambda (arg-0 arg-1 arg-2 arg-3 arg-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--24281-22328 (lambda (arg-0 arg-1 arg-2 arg-3 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--24232-22254 (lambda (arg-0 arg-1 arg-2 arg-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 e-5) (vector 1 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--24281-22660 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--24281-23239 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--24281-23239 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--24200-22214 (lambda (arg-0 arg-1 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--24232-22254 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--23613-22090 (lambda (arg-0 arg-1 arg-2 arg-3 arg-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--23679-21936 (lambda (arg-0 arg-1 arg-2 arg-3 arg-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--23679-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) (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--23613-21725 (lambda (arg-0 arg-1 arg-2 arg-3 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-10905) (lambda (arg-10907) (lambda (arg-10909) (lambda (arg-10910) (lambda (arg-10911) (lambda (arg-10913) (lambda (arg-10914) (lambda (eta-2) (Unify-Core-unifyD_Unify__Term vars arg-10905 arg-10907 arg-10909 arg-10910 arg-10911 arg-10913 arg-10914 eta-2)))))))))) (lambda (vars) (lambda (arg-10916) (lambda (arg-10918) (lambda (arg-10920) (lambda (arg-10921) (lambda (arg-10922) (lambda (arg-10924) (lambda (arg-10925) (lambda (eta-2) (Unify-Core-unifyWithLazyD_Unify__Term vars arg-10916 arg-10918 arg-10920 arg-10921 arg-10922 arg-10924 arg-10925 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-10905) (lambda (arg-10907) (lambda (arg-10909) (lambda (arg-10910) (lambda (arg-10911) (lambda (arg-10913) (lambda (arg-10914) (lambda (eta-2) (Unify-Core-unifyD_Unify__Term vars arg-10905 arg-10907 arg-10909 arg-10910 arg-10911 arg-10913 arg-10914 eta-2)))))))))) (lambda (vars) (lambda (arg-10916) (lambda (arg-10918) (lambda (arg-10920) (lambda (arg-10921) (lambda (arg-10922) (lambda (arg-10924) (lambda (arg-10925) (lambda (eta-2) (Unify-Core-unifyWithLazyD_Unify__Term vars arg-10916 arg-10918 arg-10920 arg-10921 arg-10922 arg-10924 arg-10925 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--23679-21827 arg-0 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--23438-21668 (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--23438-21513-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--23613-21725 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-10905) (lambda (arg-10907) (lambda (arg-10909) (lambda (arg-10910) (lambda (arg-10911) (lambda (arg-10913) (lambda (arg-10914) (lambda (eta-1) (Unify-Core-unifyD_Unify__Term vars arg-10905 arg-10907 arg-10909 arg-10910 arg-10911 arg-10913 arg-10914 eta-1)))))))))) (lambda (vars) (lambda (arg-10916) (lambda (arg-10918) (lambda (arg-10920) (lambda (arg-10921) (lambda (arg-10922) (lambda (arg-10924) (lambda (arg-10925) (lambda (eta-1) (Unify-Core-unifyWithLazyD_Unify__Term vars arg-10916 arg-10918 arg-10920 arg-10921 arg-10922 arg-10924 arg-10925 eta-1))))))))))) (vector 0 (lambda (vars) (lambda (arg-6840) (lambda (arg-6841) (lambda (arg-6843) (lambda (eta-1) (Normalise-Core-quote_Quote__Term vars arg-6840 arg-6841 arg-6843 eta-1)))))) (lambda (vars) (lambda (arg-6845) (lambda (arg-6847) (lambda (arg-6848) (lambda (arg-6850) (lambda (eta-1) (Normalise-Core-quoteGen_Quote__Term vars arg-6845 arg-6847 arg-6848 arg-6850 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--23613-22090 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--23460-21546 (lambda (arg-0 arg-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--23446-21529 (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--23460-21546 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--23317-21446 (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--23300-21402 (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--23158-21306 (lambda (arg-0 arg-1 arg-2 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-10905) (lambda (arg-10907) (lambda (arg-10909) (lambda (arg-10910) (lambda (arg-10911) (lambda (arg-10913) (lambda (arg-10914) (Unify-Core-unifyD_Unify__NF vars arg-10905 arg-10907 arg-10909 arg-10910 arg-10911 arg-10913 arg-10914))))))))) (lambda (vars) (lambda (arg-10916) (lambda (arg-10918) (lambda (arg-10920) (lambda (arg-10921) (lambda (arg-10922) (lambda (arg-10924) (lambda (arg-10925) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-10916 arg-10918 arg-10920 arg-10921 arg-10922 arg-10924 arg-10925)))))))))) arg-0 arg-1 arg-2) arg-7) arg-6) arg-5) e-5) e-6) eta-0))))))))))))))))) +(define Unify-Core-case--22885-21073 (lambda (arg-0 arg-1 arg-2 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-10905) (lambda (arg-10907) (lambda (arg-10909) (lambda (arg-10910) (lambda (arg-10911) (lambda (arg-10913) (lambda (arg-10914) (Unify-Core-unifyD_Unify__NF vars arg-10905 arg-10907 arg-10909 arg-10910 arg-10911 arg-10913 arg-10914))))))))) (lambda (vars) (lambda (arg-10916) (lambda (arg-10918) (lambda (arg-10920) (lambda (arg-10921) (lambda (arg-10922) (lambda (arg-10924) (lambda (arg-10925) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-10916 arg-10918 arg-10920 arg-10921 arg-10922 arg-10924 arg-10925)))))))))) arg-0 arg-1 arg-2) arg-7) arg-6) arg-5) e-5) e-6) eta-0))))))))))))))))) +(define Unify-Core-case--22881-20965 (lambda (arg-0 arg-1 arg-2 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-10905) (lambda (arg-10907) (lambda (arg-10909) (lambda (arg-10910) (lambda (arg-10911) (lambda (arg-10913) (lambda (arg-10914) (Unify-Core-unifyD_Unify__NF vars arg-10905 arg-10907 arg-10909 arg-10910 arg-10911 arg-10913 arg-10914))))))))) (lambda (vars) (lambda (arg-10916) (lambda (arg-10918) (lambda (arg-10920) (lambda (arg-10921) (lambda (arg-10922) (lambda (arg-10924) (lambda (arg-10925) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-10916 arg-10918 arg-10920 arg-10921 arg-10922 arg-10924 arg-10925)))))))))) arg-0 arg-1 arg-2) arg-7) arg-6) arg-5) e-5) e-6) eta-0))))))))))))))))) +(define Unify-Core-case--22028-20787 (lambda (arg-0 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--22028-20734 (lambda (arg-0 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--22420-20526 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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-10905) (lambda (arg-10907) (lambda (arg-10909) (lambda (arg-10910) (lambda (arg-10911) (lambda (arg-10913) (lambda (arg-10914) (Unify-Core-unifyD_Unify__NF vars arg-10905 arg-10907 arg-10909 arg-10910 arg-10911 arg-10913 arg-10914))))))))) (lambda (vars) (lambda (arg-10916) (lambda (arg-10918) (lambda (arg-10920) (lambda (arg-10921) (lambda (arg-10922) (lambda (arg-10924) (lambda (arg-10925) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-10916 arg-10918 arg-10920 arg-10921 arg-10922 arg-10924 arg-10925)))))))))) 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--22024-20425 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 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-10905) (lambda (arg-10907) (lambda (arg-10909) (lambda (arg-10910) (lambda (arg-10911) (lambda (arg-10913) (lambda (arg-10914) (Unify-Core-unifyD_Unify__NF vars arg-10905 arg-10907 arg-10909 arg-10910 arg-10911 arg-10913 arg-10914))))))))) (lambda (vars) (lambda (arg-10916) (lambda (arg-10918) (lambda (arg-10920) (lambda (arg-10921) (lambda (arg-10922) (lambda (arg-10924) (lambda (arg-10925) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-10916 arg-10918 arg-10920 arg-10921 arg-10922 arg-10924 arg-10925)))))))))) 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--22115-20249 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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-10905) (lambda (arg-10907) (lambda (arg-10909) (lambda (arg-10910) (lambda (arg-10911) (lambda (arg-10913) (lambda (arg-10914) (Unify-Core-unifyD_Unify__NF vars arg-10905 arg-10907 arg-10909 arg-10910 arg-10911 arg-10913 arg-10914))))))))) (lambda (vars) (lambda (arg-10916) (lambda (arg-10918) (lambda (arg-10920) (lambda (arg-10921) (lambda (arg-10922) (lambda (arg-10924) (lambda (arg-10925) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-10916 arg-10918 arg-10920 arg-10921 arg-10922 arg-10924 arg-10925)))))))))) 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--22024-20148 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-10905) (lambda (arg-10907) (lambda (arg-10909) (lambda (arg-10910) (lambda (arg-10911) (lambda (arg-10913) (lambda (arg-10914) (Unify-Core-unifyD_Unify__NF vars arg-10905 arg-10907 arg-10909 arg-10910 arg-10911 arg-10913 arg-10914))))))))) (lambda (vars) (lambda (arg-10916) (lambda (arg-10918) (lambda (arg-10920) (lambda (arg-10921) (lambda (arg-10922) (lambda (arg-10924) (lambda (arg-10925) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-10916 arg-10918 arg-10920 arg-10921 arg-10922 arg-10924 arg-10925)))))))))) 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--15756-19884 (lambda (arg-0 arg-1 arg-2 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--15756-19807 (lambda (arg-0 arg-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--15752-19662 (lambda (arg-0 arg-1 arg-2 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--15752-19450 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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-10905) (lambda (arg-10907) (lambda (arg-10909) (lambda (arg-10910) (lambda (arg-10911) (lambda (arg-10913) (lambda (arg-10914) (lambda (eta-1) (Unify-Core-unifyD_Unify__Closure vars arg-10905 arg-10907 arg-10909 arg-10910 arg-10911 arg-10913 arg-10914 eta-1)))))))))) (lambda (vars) (lambda (arg-10916) (lambda (arg-10918) (lambda (arg-10920) (lambda (arg-10921) (lambda (arg-10922) (lambda (arg-10924) (lambda (arg-10925) (lambda (eta-1) (Unify-Core-unifyWithLazyD_Unify__Closure vars arg-10916 arg-10918 arg-10920 arg-10921 arg-10922 arg-10924 arg-10925 eta-1))))))))))) (vector 0 (lambda (vars) (lambda (arg-6840) (lambda (arg-6841) (lambda (arg-6843) (lambda (eta-1) (Normalise-Core-quote_Quote__Closure vars arg-6840 arg-6841 arg-6843 eta-1)))))) (lambda (vars) (lambda (arg-6845) (lambda (arg-6847) (lambda (arg-6848) (lambda (arg-6850) (lambda (eta-1) (Normalise-Core-quoteGen_Quote__Closure vars arg-6845 arg-6847 arg-6848 arg-6850 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--15752-19344 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-10905) (lambda (arg-10907) (lambda (arg-10909) (lambda (arg-10910) (lambda (arg-10911) (lambda (arg-10913) (lambda (arg-10914) (lambda (eta-1) (Unify-Core-unifyD_Unify__Closure vars arg-10905 arg-10907 arg-10909 arg-10910 arg-10911 arg-10913 arg-10914 eta-1)))))))))) (lambda (vars) (lambda (arg-10916) (lambda (arg-10918) (lambda (arg-10920) (lambda (arg-10921) (lambda (arg-10922) (lambda (arg-10924) (lambda (arg-10925) (lambda (eta-1) (Unify-Core-unifyWithLazyD_Unify__Closure vars arg-10916 arg-10918 arg-10920 arg-10921 arg-10922 arg-10924 arg-10925 eta-1))))))))))) (vector 0 (lambda (vars) (lambda (arg-6840) (lambda (arg-6841) (lambda (arg-6843) (lambda (eta-1) (Normalise-Core-quote_Quote__Closure vars arg-6840 arg-6841 arg-6843 eta-1)))))) (lambda (vars) (lambda (arg-6845) (lambda (arg-6847) (lambda (arg-6848) (lambda (arg-6850) (lambda (eta-1) (Normalise-Core-quoteGen_Quote__Closure vars arg-6845 arg-6847 arg-6848 arg-6850 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--15745-19037 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-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-10905) (lambda (arg-10907) (lambda (arg-10909) (lambda (arg-10910) (lambda (arg-10911) (lambda (arg-10913) (lambda (arg-10914) (Unify-Core-unifyD_Unify__NF vars arg-10905 arg-10907 arg-10909 arg-10910 arg-10911 arg-10913 arg-10914))))))))) (lambda (vars) (lambda (arg-10916) (lambda (arg-10918) (lambda (arg-10920) (lambda (arg-10921) (lambda (arg-10922) (lambda (arg-10924) (lambda (arg-10925) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-10916 arg-10918 arg-10920 arg-10921 arg-10922 arg-10924 arg-10925)))))))))) 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-10905) (lambda (arg-10907) (lambda (arg-10909) (lambda (arg-10910) (lambda (arg-10911) (lambda (arg-10913) (lambda (arg-10914) (lambda (eta-1) (Unify-Core-unifyD_Unify__Term vars arg-10905 arg-10907 arg-10909 arg-10910 arg-10911 arg-10913 arg-10914 eta-1)))))))))) (lambda (vars) (lambda (arg-10916) (lambda (arg-10918) (lambda (arg-10920) (lambda (arg-10921) (lambda (arg-10922) (lambda (arg-10924) (lambda (arg-10925) (lambda (eta-1) (Unify-Core-unifyWithLazyD_Unify__Term vars arg-10916 arg-10918 arg-10920 arg-10921 arg-10922 arg-10924 arg-10925 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--20483-18738 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 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-10905) (lambda (arg-10907) (lambda (arg-10909) (lambda (arg-10910) (lambda (arg-10911) (lambda (arg-10913) (lambda (arg-10914) (lambda (eta-1) (Unify-Core-unifyD_Unify__Term vars arg-10905 arg-10907 arg-10909 arg-10910 arg-10911 arg-10913 arg-10914 eta-1)))))))))) (lambda (vars) (lambda (arg-10916) (lambda (arg-10918) (lambda (arg-10920) (lambda (arg-10921) (lambda (arg-10922) (lambda (arg-10924) (lambda (arg-10925) (lambda (eta-1) (Unify-Core-unifyWithLazyD_Unify__Term vars arg-10916 arg-10918 arg-10920 arg-10921 arg-10922 arg-10924 arg-10925 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-10905) (lambda (arg-10907) (lambda (arg-10909) (lambda (arg-10910) (lambda (arg-10911) (lambda (arg-10913) (lambda (arg-10914) (lambda (eta-1) (Unify-Core-unifyD_Unify__Term vars arg-10905 arg-10907 arg-10909 arg-10910 arg-10911 arg-10913 arg-10914 eta-1)))))))))) (lambda (vars) (lambda (arg-10916) (lambda (arg-10918) (lambda (arg-10920) (lambda (arg-10921) (lambda (arg-10922) (lambda (arg-10924) (lambda (arg-10925) (lambda (eta-1) (Unify-Core-unifyWithLazyD_Unify__Term vars arg-10916 arg-10918 arg-10920 arg-10921 arg-10922 arg-10924 arg-10925 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--15745-18572 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-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-10905) (lambda (arg-10907) (lambda (arg-10909) (lambda (arg-10910) (lambda (arg-10911) (lambda (arg-10913) (lambda (arg-10914) (Unify-Core-unifyD_Unify__NF vars arg-10905 arg-10907 arg-10909 arg-10910 arg-10911 arg-10913 arg-10914))))))))) (lambda (vars) (lambda (arg-10916) (lambda (arg-10918) (lambda (arg-10920) (lambda (arg-10921) (lambda (arg-10922) (lambda (arg-10924) (lambda (arg-10925) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-10916 arg-10918 arg-10920 arg-10921 arg-10922 arg-10924 arg-10925)))))))))) 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--20483-18738 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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--15740-18383 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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-10905) (lambda (arg-10907) (lambda (arg-10909) (lambda (arg-10910) (lambda (arg-10911) (lambda (arg-10913) (lambda (arg-10914) (lambda (eta-1) (Unify-Core-unifyD_Unify__Closure vars arg-10905 arg-10907 arg-10909 arg-10910 arg-10911 arg-10913 arg-10914 eta-1)))))))))) (lambda (vars) (lambda (arg-10916) (lambda (arg-10918) (lambda (arg-10920) (lambda (arg-10921) (lambda (arg-10922) (lambda (arg-10924) (lambda (arg-10925) (lambda (eta-1) (Unify-Core-unifyWithLazyD_Unify__Closure vars arg-10916 arg-10918 arg-10920 arg-10921 arg-10922 arg-10924 arg-10925 eta-1))))))))))) (vector 0 (lambda (vars) (lambda (arg-6840) (lambda (arg-6841) (lambda (arg-6843) (lambda (eta-1) (Normalise-Core-quote_Quote__Closure vars arg-6840 arg-6841 arg-6843 eta-1)))))) (lambda (vars) (lambda (arg-6845) (lambda (arg-6847) (lambda (arg-6848) (lambda (arg-6850) (lambda (eta-1) (Normalise-Core-quoteGen_Quote__Closure vars arg-6845 arg-6847 arg-6848 arg-6850 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--15740-18282 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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-10905) (lambda (arg-10907) (lambda (arg-10909) (lambda (arg-10910) (lambda (arg-10911) (lambda (arg-10913) (lambda (arg-10914) (lambda (eta-0) (Unify-Core-unifyD_Unify__Closure vars arg-10905 arg-10907 arg-10909 arg-10910 arg-10911 arg-10913 arg-10914 eta-0)))))))))) (lambda (vars) (lambda (arg-10916) (lambda (arg-10918) (lambda (arg-10920) (lambda (arg-10921) (lambda (arg-10922) (lambda (arg-10924) (lambda (arg-10925) (lambda (eta-0) (Unify-Core-unifyWithLazyD_Unify__Closure vars arg-10916 arg-10918 arg-10920 arg-10921 arg-10922 arg-10924 arg-10925 eta-0))))))))))) (vector 0 (lambda (vars) (lambda (arg-6840) (lambda (arg-6841) (lambda (arg-6843) (lambda (eta-0) (Normalise-Core-quote_Quote__Closure vars arg-6840 arg-6841 arg-6843 eta-0)))))) (lambda (vars) (lambda (arg-6845) (lambda (arg-6847) (lambda (arg-6848) (lambda (arg-6850) (lambda (eta-0) (Normalise-Core-quoteGen_Quote__Closure vars arg-6845 arg-6847 arg-6848 arg-6850 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--15740-18200 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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--19775-18077 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-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--15740-17969 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-10905) (lambda (arg-10907) (lambda (arg-10909) (lambda (arg-10910) (lambda (arg-10911) (lambda (arg-10913) (lambda (arg-10914) (lambda (eta-0) (Unify-Core-unifyD_Unify__Closure vars arg-10905 arg-10907 arg-10909 arg-10910 arg-10911 arg-10913 arg-10914 eta-0)))))))))) (lambda (vars) (lambda (arg-10916) (lambda (arg-10918) (lambda (arg-10920) (lambda (arg-10921) (lambda (arg-10922) (lambda (arg-10924) (lambda (arg-10925) (lambda (eta-0) (Unify-Core-unifyWithLazyD_Unify__Closure vars arg-10916 arg-10918 arg-10920 arg-10921 arg-10922 arg-10924 arg-10925 eta-0))))))))))) (vector 0 (lambda (vars) (lambda (arg-6840) (lambda (arg-6841) (lambda (arg-6843) (lambda (eta-0) (Normalise-Core-quote_Quote__Closure vars arg-6840 arg-6841 arg-6843 eta-0)))))) (lambda (vars) (lambda (arg-6845) (lambda (arg-6847) (lambda (arg-6848) (lambda (arg-6850) (lambda (eta-0) (Normalise-Core-quoteGen_Quote__Closure vars arg-6845 arg-6847 arg-6848 arg-6850 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--15740-17822-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--15740-17822-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--19775-18077 arg-0 arg-1 arg-2 arg-3 arg-4 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--15740-17821-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--19611-17856 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-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--15740-17822-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--15740-17822-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--15740-17822-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--15740-17683 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-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-10905) (lambda (arg-10907) (lambda (arg-10909) (lambda (arg-10910) (lambda (arg-10911) (lambda (arg-10913) (lambda (arg-10914) (lambda (eta-0) (Unify-Core-unifyD_Unify__Closure vars arg-10905 arg-10907 arg-10909 arg-10910 arg-10911 arg-10913 arg-10914 eta-0)))))))))) (lambda (vars) (lambda (arg-10916) (lambda (arg-10918) (lambda (arg-10920) (lambda (arg-10921) (lambda (arg-10922) (lambda (arg-10924) (lambda (arg-10925) (lambda (eta-0) (Unify-Core-unifyWithLazyD_Unify__Closure vars arg-10916 arg-10918 arg-10920 arg-10921 arg-10922 arg-10924 arg-10925 eta-0))))))))))) (vector 0 (lambda (vars) (lambda (arg-6840) (lambda (arg-6841) (lambda (arg-6843) (lambda (eta-0) (Normalise-Core-quote_Quote__Closure vars arg-6840 arg-6841 arg-6843 eta-0)))))) (lambda (vars) (lambda (arg-6845) (lambda (arg-6847) (lambda (arg-6848) (lambda (arg-6850) (lambda (eta-0) (Normalise-Core-quoteGen_Quote__Closure vars arg-6845 arg-6847 arg-6848 arg-6850 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--15740-17583 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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--15736-17511 (lambda (arg-0 arg-1 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--15736-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) (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--15736-17222 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--15736-17126 (lambda (arg-0 arg-1 arg-2 arg-3 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--18253-16784 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 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--18166-16652 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 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--18253-16784 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 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--18074-16592 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 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--18166-16652 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 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--18005-16521 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 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--18166-16652 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 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--17556-16474 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--18005-16521 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--17676-16235 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-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--17616-16187 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-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--17676-16235 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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--17556-16146 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--17616-16187 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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--15732-16102 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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--17616-16187 arg-0 arg-1 arg-2 arg-3 arg-4 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--18005-16521 arg-0 arg-1 arg-2 arg-3 arg-4 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--17258-15933 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--15727-15848 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--15723-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) (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--16867-15579 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-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--15719-15537 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--15719-15513-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--16317-15100 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 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-10905) (lambda (arg-10907) (lambda (arg-10909) (lambda (arg-10910) (lambda (arg-10911) (lambda (arg-10913) (lambda (arg-10914) (lambda (eta-1) (Unify-Core-unifyD_Unify__Closure vars arg-10905 arg-10907 arg-10909 arg-10910 arg-10911 arg-10913 arg-10914 eta-1)))))))))) (lambda (vars) (lambda (arg-10916) (lambda (arg-10918) (lambda (arg-10920) (lambda (arg-10921) (lambda (arg-10922) (lambda (arg-10924) (lambda (arg-10925) (lambda (eta-1) (Unify-Core-unifyWithLazyD_Unify__Closure vars arg-10916 arg-10918 arg-10920 arg-10921 arg-10922 arg-10924 arg-10925 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-10905) (lambda (arg-10907) (lambda (arg-10909) (lambda (arg-10910) (lambda (arg-10911) (lambda (arg-10913) (lambda (arg-10914) (Unify-Core-unifyD_Unify__NF vars arg-10905 arg-10907 arg-10909 arg-10910 arg-10911 arg-10913 arg-10914))))))))) (lambda (vars) (lambda (arg-10916) (lambda (arg-10918) (lambda (arg-10920) (lambda (arg-10921) (lambda (arg-10922) (lambda (arg-10924) (lambda (arg-10925) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-10916 arg-10918 arg-10920 arg-10921 arg-10922 arg-10924 arg-10925)))))))))) 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-10905) (lambda (arg-10907) (lambda (arg-10909) (lambda (arg-10910) (lambda (arg-10911) (lambda (arg-10913) (lambda (arg-10914) (lambda (eta-1) (Unify-Core-unifyD_Unify__Closure vars arg-10905 arg-10907 arg-10909 arg-10910 arg-10911 arg-10913 arg-10914 eta-1)))))))))) (lambda (vars) (lambda (arg-10916) (lambda (arg-10918) (lambda (arg-10920) (lambda (arg-10921) (lambda (arg-10922) (lambda (arg-10924) (lambda (arg-10925) (lambda (eta-1) (Unify-Core-unifyWithLazyD_Unify__Closure vars arg-10916 arg-10918 arg-10920 arg-10921 arg-10922 arg-10924 arg-10925 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-10905) (lambda (arg-10907) (lambda (arg-10909) (lambda (arg-10910) (lambda (arg-10911) (lambda (arg-10913) (lambda (arg-10914) (Unify-Core-unifyD_Unify__NF vars arg-10905 arg-10907 arg-10909 arg-10910 arg-10911 arg-10913 arg-10914))))))))) (lambda (vars) (lambda (arg-10916) (lambda (arg-10918) (lambda (arg-10920) (lambda (arg-10921) (lambda (arg-10922) (lambda (arg-10924) (lambda (arg-10925) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-10916 arg-10918 arg-10920 arg-10921 arg-10922 arg-10924 arg-10925)))))))))) 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--16250-15038 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-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--16317-15100 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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--16171-14989 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-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--16250-15038 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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--15715-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 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--16250-15038 arg-0 arg-1 arg-2 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--15712-14820 (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--15710-14724 (lambda (arg-0 arg-1 arg-2 arg-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--15792-14642 (lambda (arg-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--15706-14597 (lambda (arg-0 arg-1 arg-2 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--15664-14428 (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--15424-14291 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--15337-14207 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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--15291-14136 (lambda (arg-0 arg-1 arg-2 arg-3 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--15337-14207 arg-0 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--15261-14099 (lambda (arg-0 arg-1 arg-2 arg-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--15337-14207 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--13987-14004 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-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 arg-18) (vector 1 arg-18) (vector 0 )) e-18 e-19 e-20)))))))))))))))))))))))) +(define Unify-Core-case--13987-13907 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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--14011-13616 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-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--14010-13517 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--14295-13269 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 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--14244-13207 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 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--13987-12957-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--14295-13269 arg-0 arg-1 arg-2 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--13987-12957-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--14010-13101 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--13840-12874 (lambda (arg-0 arg-1 arg-2 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--13591-12594-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--13591-12811 (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--13840-12874 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--13603-12673 (lambda (arg-0 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--13591-12594-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--13591-12594-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--13603-12612 (lambda (arg-0 arg-1 arg-2 arg-3 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--13498-12549 (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--13379-12412-updateVars arg-0 arg-1 arg-2 arg-3 arg-4 'erased arg-7 e-3) e-3)))) eta-0))))))) +(define Unify-Core-case--13379-12508 (lambda (arg-0 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--13498-12549 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--13390-12437 (lambda (arg-0 arg-1 arg-2 arg-3 arg-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--13379-12412-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--13379-12412-updateVars arg-0 arg-1 arg-2 arg-3 arg-4 'erased arg-9 arg-10)))))))) +(define Unify-Core-case--13283-12343 (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--13182-12283 (lambda (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--13056-12134-updateVars arg-0 arg-1 arg-2 arg-3 arg-4 'erased arg-8 e-3) e-3)))) eta-0))))))) +(define Unify-Core-case--13056-12238 (lambda (arg-0 arg-1 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--13182-12283 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--13067-12159 (lambda (arg-0 arg-1 arg-2 arg-3 arg-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--13056-12134-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--13056-12134-updateVars arg-0 arg-1 arg-2 arg-3 arg-4 'erased arg-9 arg-10)))))))) +(define Unify-Core-case--12993-12087 (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--12942-12071 (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--12993-12087 arg-0 arg-1 arg-2 e-2 e-3 (Unify-Core-n--12942-12037-anyFirst arg-0 arg-1 arg-2 arg-2))))))) +(define Unify-Core-case--12753-11943 (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--12781-11894 (lambda (arg-0 arg-1 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--12753-11880-inArgs arg-0 'erased arg-2 'erased arg-4 arg-5 arg-6 arg-7 arg-10 arg-9)))))) +(define Unify-Core-case--12600-11734 (lambda (arg-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--12208-11651 (lambda (arg-0 arg-1 arg-2 arg-3 arg-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--12224-11377 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (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--12092-11285 (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-8 (vector-ref sc2 1))) (let ((sns (NameMap-Data-keys 'erased (TT-Core-getMetas 'erased e-8)))) (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--12075-11246 (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 1))) (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--12014-11194 (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--11609-10714 (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--11600-10703 (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--13379-12412-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--13390-12437 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--13056-12134-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--13067-12159 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--14010-13156-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--13987-12957-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--13987-12957-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--13987-12957-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--14244-13207 arg-0 arg-1 arg-2 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--13987-12957-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--13987-12957-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--13987-12957-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--13987-12957-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--13987-12957-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--13987-12956-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--14010-13156-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--13987-12957-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--13987-12957-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--13987-12957-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--13987-12956-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--13987-12956-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--12208-11361-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--15727-15816-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--15740-17821-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--13987-12958-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--14011-13616 arg-0 arg-1 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--13987-12957-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--13987-12958-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--13987-12958-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--13987-12958-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--13987-12958-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--13987-12958-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--13987-12958-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--15740-17822-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--15740-17822-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--15740-17822-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--15740-17822-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--13987-12955-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--13987-12955-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--15719-15513-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--15752-19753-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--12753-11880-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--12781-11894 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--13591-12594-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--13603-12612 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--13603-12673 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--23438-21513-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--23460-21546 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--25769-23560-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--26189-23934-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-10905) (lambda (arg-10907) (lambda (arg-10909) (lambda (arg-10910) (lambda (arg-10911) (lambda (arg-10913) (lambda (arg-10914) (lambda (eta-2) (Unify-Core-unifyD_Unify__Term vars arg-10905 arg-10907 arg-10909 arg-10910 arg-10911 arg-10913 arg-10914 eta-2)))))))))) (lambda (vars) (lambda (arg-10916) (lambda (arg-10918) (lambda (arg-10920) (lambda (arg-10921) (lambda (arg-10922) (lambda (arg-10924) (lambda (arg-10925) (lambda (eta-2) (Unify-Core-unifyWithLazyD_Unify__Term vars arg-10916 arg-10918 arg-10920 arg-10921 arg-10922 arg-10924 arg-10925 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-40 (vector-ref sc8 1))) e-40)) 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--25896-23690-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-11 (vector-ref sc6 1))) (let ((act-17 (Normalise-Core-convert_Convert__Term (vector 0 ) e-5 (vector 0 ) arg-4 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))) (let ((sc8 e-12)) (cond ((equal? sc8 0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 0) eta-0)) (else ((Unify-Core-n--25896-23690-anySame arg-0 arg-1 arg-2 arg-3 arg-4 e-3) eta-0)))))))))))(else ((Unify-Core-n--25896-23690-anySame arg-0 arg-1 arg-2 arg-3 arg-4 e-3) eta-0)))))(else ((Unify-Core-n--25896-23690-anySame arg-0 arg-1 arg-2 arg-3 arg-4 e-3) eta-0)))))))(else ((Unify-Core-n--25896-23690-anySame arg-0 arg-1 arg-2 arg-3 arg-4 e-3) eta-0))))))(else ((Unify-Core-n--25896-23690-anySame arg-0 arg-1 arg-2 arg-3 arg-4 e-3) eta-0)))))))))))))))))))))) +(define Unify-Core-n--12942-12037-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--12942-12037-anyFirst arg-0 arg-1 arg-2 e-3))))))))))) +(define Unify-Core-n--25721-23517-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-10905) (lambda (arg-10907) (lambda (arg-10909) (lambda (arg-10910) (lambda (arg-10911) (lambda (arg-10913) (lambda (arg-10914) (Unify-Core-unifyD_Unify__NF vars arg-10905 arg-10907 arg-10909 arg-10910 arg-10911 arg-10913 arg-10914))))))))) (lambda (vars) (lambda (arg-10916) (lambda (arg-10918) (lambda (arg-10920) (lambda (arg-10921) (lambda (arg-10922) (lambda (arg-10924) (lambda (arg-10925) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-10916 arg-10918 arg-10920 arg-10921 arg-10922 arg-10924 arg-10925)))))))))) 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-10905) (lambda (arg-10907) (lambda (arg-10909) (lambda (arg-10910) (lambda (arg-10911) (lambda (arg-10913) (lambda (arg-10914) (Unify-Core-unifyD_Unify__NF vars arg-10905 arg-10907 arg-10909 arg-10910 arg-10911 arg-10913 arg-10914))))))))) (lambda (vars) (lambda (arg-10916) (lambda (arg-10918) (lambda (arg-10920) (lambda (arg-10921) (lambda (arg-10922) (lambda (arg-10924) (lambda (arg-10925) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-10916 arg-10918 arg-10920 arg-10921 arg-10922 arg-10924 arg-10925)))))))))) 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-10905) (lambda (arg-10907) (lambda (arg-10909) (lambda (arg-10910) (lambda (arg-10911) (lambda (arg-10913) (lambda (arg-10914) (Unify-Core-unifyD_Unify__NF vars arg-10905 arg-10907 arg-10909 arg-10910 arg-10911 arg-10913 arg-10914))))))))) (lambda (vars) (lambda (arg-10916) (lambda (arg-10918) (lambda (arg-10920) (lambda (arg-10921) (lambda (arg-10922) (lambda (arg-10924) (lambda (arg-10925) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-10916 arg-10918 arg-10920 arg-10921 arg-10922 arg-10924 arg-10925)))))))))) 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-10905) (lambda (arg-10907) (lambda (arg-10909) (lambda (arg-10910) (lambda (arg-10911) (lambda (arg-10913) (lambda (arg-10914) (Unify-Core-unifyD_Unify__NF vars arg-10905 arg-10907 arg-10909 arg-10910 arg-10911 arg-10913 arg-10914))))))))) (lambda (vars) (lambda (arg-10916) (lambda (arg-10918) (lambda (arg-10920) (lambda (arg-10921) (lambda (arg-10922) (lambda (arg-10924) (lambda (arg-10925) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-10916 arg-10918 arg-10920 arg-10921 arg-10922 arg-10924 arg-10925)))))))))) 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-10905) (lambda (arg-10907) (lambda (arg-10909) (lambda (arg-10910) (lambda (arg-10911) (lambda (arg-10913) (lambda (arg-10914) (Unify-Core-unifyD_Unify__NF vars arg-10905 arg-10907 arg-10909 arg-10910 arg-10911 arg-10913 arg-10914))))))))) (lambda (vars) (lambda (arg-10916) (lambda (arg-10918) (lambda (arg-10920) (lambda (arg-10921) (lambda (arg-10922) (lambda (arg-10924) (lambda (arg-10925) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-10916 arg-10918 arg-10920 arg-10921 arg-10922 arg-10924 arg-10925)))))))))) 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-10860) (lambda (arg-10862) (lambda (arg-10864) (lambda (arg-10865) (lambda (arg-10866) (lambda (arg-10868) (lambda (arg-10869) (Unify-Core-unifyD_Unify__NF vars arg-10860 arg-10862 arg-10864 arg-10865 arg-10866 arg-10868 arg-10869))))))))) (lambda (vars) (lambda (arg-10871) (lambda (arg-10873) (lambda (arg-10875) (lambda (arg-10876) (lambda (arg-10877) (lambda (arg-10879) (lambda (arg-10880) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-10871 arg-10873 arg-10875 arg-10876 arg-10877 arg-10879 arg-10880)))))))))) 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--21935-20103 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--21935-20380 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--21935-20380 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-10860) (lambda (arg-10862) (lambda (arg-10864) (lambda (arg-10865) (lambda (arg-10866) (lambda (arg-10868) (lambda (arg-10869) (Unify-Core-unifyD_Unify__NF vars arg-10860 arg-10862 arg-10864 arg-10865 arg-10866 arg-10868 arg-10869))))))))) (lambda (vars) (lambda (arg-10871) (lambda (arg-10873) (lambda (arg-10875) (lambda (arg-10876) (lambda (arg-10877) (lambda (arg-10879) (lambda (arg-10880) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-10871 arg-10873 arg-10875 arg-10876 arg-10877 arg-10879 arg-10880)))))))))) arg-0 arg-1 arg-2) arg-3) arg-4) arg-5) e-8) e-9) ext-0))))))))))))))))))))))))))))))) +(define Unify-Core-unifyD_Unify__Term (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 ext-0) (let ((act-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-10905) (lambda (arg-10907) (lambda (arg-10909) (lambda (arg-10910) (lambda (arg-10911) (lambda (arg-10913) (lambda (arg-10914) (Unify-Core-unifyD_Unify__NF vars arg-10905 arg-10907 arg-10909 arg-10910 arg-10911 arg-10913 arg-10914))))))))) (lambda (vars) (lambda (arg-10916) (lambda (arg-10918) (lambda (arg-10920) (lambda (arg-10921) (lambda (arg-10922) (lambda (arg-10924) (lambda (arg-10925) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-10916 arg-10918 arg-10920 arg-10921 arg-10922 arg-10924 arg-10925)))))))))) 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--22024-20148 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--22024-20425 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--22024-20425 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-10905) (lambda (arg-10907) (lambda (arg-10909) (lambda (arg-10910) (lambda (arg-10911) (lambda (arg-10913) (lambda (arg-10914) (Unify-Core-unifyD_Unify__NF vars arg-10905 arg-10907 arg-10909 arg-10910 arg-10911 arg-10913 arg-10914))))))))) (lambda (vars) (lambda (arg-10916) (lambda (arg-10918) (lambda (arg-10920) (lambda (arg-10921) (lambda (arg-10922) (lambda (arg-10924) (lambda (arg-10925) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-10916 arg-10918 arg-10920 arg-10921 arg-10922 arg-10924 arg-10925)))))))))) 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-10860) (lambda (arg-10862) (lambda (arg-10864) (lambda (arg-10865) (lambda (arg-10866) (lambda (arg-10868) (lambda (arg-10869) (lambda (eta-0) (Unify-Core-unifyD_Unify__Term vars arg-10860 arg-10862 arg-10864 arg-10865 arg-10866 arg-10868 arg-10869 eta-0)))))))))) (lambda (vars) (lambda (arg-10871) (lambda (arg-10873) (lambda (arg-10875) (lambda (arg-10876) (lambda (arg-10877) (lambda (arg-10879) (lambda (arg-10880) (lambda (eta-0) (Unify-Core-unifyWithLazyD_Unify__Term vars arg-10871 arg-10873 arg-10875 arg-10876 arg-10877 arg-10879 arg-10880 eta-0))))))))))))) -(define Unify-Core-__Impl_Unify_NF (lambda () (vector 0 (lambda (vars) (lambda (arg-10860) (lambda (arg-10862) (lambda (arg-10864) (lambda (arg-10865) (lambda (arg-10866) (lambda (arg-10868) (lambda (arg-10869) (Unify-Core-unifyD_Unify__NF vars arg-10860 arg-10862 arg-10864 arg-10865 arg-10866 arg-10868 arg-10869))))))))) (lambda (vars) (lambda (arg-10871) (lambda (arg-10873) (lambda (arg-10875) (lambda (arg-10876) (lambda (arg-10877) (lambda (arg-10879) (lambda (arg-10880) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-10871 arg-10873 arg-10875 arg-10876 arg-10877 arg-10879 arg-10880)))))))))))) -(define Unify-Core-__Impl_Unify_Closure (lambda () (vector 0 (lambda (vars) (lambda (arg-10860) (lambda (arg-10862) (lambda (arg-10864) (lambda (arg-10865) (lambda (arg-10866) (lambda (arg-10868) (lambda (arg-10869) (lambda (eta-0) (Unify-Core-unifyD_Unify__Closure vars arg-10860 arg-10862 arg-10864 arg-10865 arg-10866 arg-10868 arg-10869 eta-0)))))))))) (lambda (vars) (lambda (arg-10871) (lambda (arg-10873) (lambda (arg-10875) (lambda (arg-10876) (lambda (arg-10877) (lambda (arg-10879) (lambda (arg-10880) (lambda (eta-0) (Unify-Core-unifyWithLazyD_Unify__Closure vars arg-10871 arg-10873 arg-10875 arg-10876 arg-10877 arg-10879 arg-10880 eta-0))))))))))))) +(define Unify-Core-__Impl_Unify_Term (lambda () (vector 0 (lambda (vars) (lambda (arg-10905) (lambda (arg-10907) (lambda (arg-10909) (lambda (arg-10910) (lambda (arg-10911) (lambda (arg-10913) (lambda (arg-10914) (lambda (eta-0) (Unify-Core-unifyD_Unify__Term vars arg-10905 arg-10907 arg-10909 arg-10910 arg-10911 arg-10913 arg-10914 eta-0)))))))))) (lambda (vars) (lambda (arg-10916) (lambda (arg-10918) (lambda (arg-10920) (lambda (arg-10921) (lambda (arg-10922) (lambda (arg-10924) (lambda (arg-10925) (lambda (eta-0) (Unify-Core-unifyWithLazyD_Unify__Term vars arg-10916 arg-10918 arg-10920 arg-10921 arg-10922 arg-10924 arg-10925 eta-0))))))))))))) +(define Unify-Core-__Impl_Unify_NF (lambda () (vector 0 (lambda (vars) (lambda (arg-10905) (lambda (arg-10907) (lambda (arg-10909) (lambda (arg-10910) (lambda (arg-10911) (lambda (arg-10913) (lambda (arg-10914) (Unify-Core-unifyD_Unify__NF vars arg-10905 arg-10907 arg-10909 arg-10910 arg-10911 arg-10913 arg-10914))))))))) (lambda (vars) (lambda (arg-10916) (lambda (arg-10918) (lambda (arg-10920) (lambda (arg-10921) (lambda (arg-10922) (lambda (arg-10924) (lambda (arg-10925) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-10916 arg-10918 arg-10920 arg-10921 arg-10922 arg-10924 arg-10925)))))))))))) +(define Unify-Core-__Impl_Unify_Closure (lambda () (vector 0 (lambda (vars) (lambda (arg-10905) (lambda (arg-10907) (lambda (arg-10909) (lambda (arg-10910) (lambda (arg-10911) (lambda (arg-10913) (lambda (arg-10914) (lambda (eta-0) (Unify-Core-unifyD_Unify__Closure vars arg-10905 arg-10907 arg-10909 arg-10910 arg-10911 arg-10913 arg-10914 eta-0)))))))))) (lambda (vars) (lambda (arg-10916) (lambda (arg-10918) (lambda (arg-10920) (lambda (arg-10921) (lambda (arg-10922) (lambda (arg-10924) (lambda (arg-10925) (lambda (eta-0) (Unify-Core-unifyWithLazyD_Unify__Closure vars arg-10916 arg-10918 arg-10920 arg-10921 arg-10922 arg-10924 arg-10925 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))))) @@ -3759,44 +3829,44 @@ (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--15663-19299 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--15663-19617 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--15663-19708-isDelay arg-2 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 arg-6) (lambda () (Unify-Core-n--15663-19708-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--15663-19405 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--15663-19617 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--15663-19708-isDelay arg-2 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 arg-6) (lambda () (Unify-Core-n--15663-19708-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-10860) (lambda (arg-10862) (lambda (arg-10864) (lambda (arg-10865) (lambda (arg-10866) (lambda (arg-10868) (lambda (arg-10869) (Unify-Core-unifyD_Unify__NF vars arg-10860 arg-10862 arg-10864 arg-10865 arg-10866 arg-10868 arg-10869))))))))) (lambda (vars) (lambda (arg-10871) (lambda (arg-10873) (lambda (arg-10875) (lambda (arg-10876) (lambda (arg-10877) (lambda (arg-10879) (lambda (arg-10880) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-10871 arg-10873 arg-10875 arg-10876 arg-10877 arg-10879 arg-10880)))))))))) 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--15663-19617 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--15663-19708-isDelay arg-2 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 arg-6) (lambda () (Unify-Core-n--15663-19708-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-10860) (lambda (arg-10862) (lambda (arg-10864) (lambda (arg-10865) (lambda (arg-10866) (lambda (arg-10868) (lambda (arg-10869) (lambda (eta-0) (Unify-Core-unifyD_Unify__Closure vars arg-10860 arg-10862 arg-10864 arg-10865 arg-10866 arg-10868 arg-10869 eta-0)))))))))) (lambda (vars) (lambda (arg-10871) (lambda (arg-10873) (lambda (arg-10875) (lambda (arg-10876) (lambda (arg-10877) (lambda (arg-10879) (lambda (arg-10880) (lambda (eta-0) (Unify-Core-unifyWithLazyD_Unify__Closure vars arg-10871 arg-10873 arg-10875 arg-10876 arg-10877 arg-10879 arg-10880 eta-0))))))))))) (vector 0 (lambda (vars) (lambda (arg-6840) (lambda (arg-6841) (lambda (arg-6843) (lambda (eta-0) (Normalise-Core-quote_Quote__Closure vars arg-6840 arg-6841 arg-6843 eta-0)))))) (lambda (vars) (lambda (arg-6845) (lambda (arg-6847) (lambda (arg-6848) (lambda (arg-6850) (lambda (eta-0) (Normalise-Core-quoteGen_Quote__Closure vars arg-6845 arg-6847 arg-6848 arg-6850 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--15663-19617 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--15663-19708-isDelay arg-2 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 arg-6) (lambda () (Unify-Core-n--15663-19708-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-10860) (lambda (arg-10862) (lambda (arg-10864) (lambda (arg-10865) (lambda (arg-10866) (lambda (arg-10868) (lambda (arg-10869) (Unify-Core-unifyD_Unify__NF vars arg-10860 arg-10862 arg-10864 arg-10865 arg-10866 arg-10868 arg-10869))))))))) (lambda (vars) (lambda (arg-10871) (lambda (arg-10873) (lambda (arg-10875) (lambda (arg-10876) (lambda (arg-10877) (lambda (arg-10879) (lambda (arg-10880) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-10871 arg-10873 arg-10875 arg-10876 arg-10877 arg-10879 arg-10880)))))))))) 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-10860) (lambda (arg-10862) (lambda (arg-10864) (lambda (arg-10865) (lambda (arg-10866) (lambda (arg-10868) (lambda (arg-10869) (lambda (eta-1) (Unify-Core-unifyD_Unify__Closure vars arg-10860 arg-10862 arg-10864 arg-10865 arg-10866 arg-10868 arg-10869 eta-1)))))))))) (lambda (vars) (lambda (arg-10871) (lambda (arg-10873) (lambda (arg-10875) (lambda (arg-10876) (lambda (arg-10877) (lambda (arg-10879) (lambda (arg-10880) (lambda (eta-1) (Unify-Core-unifyWithLazyD_Unify__Closure vars arg-10871 arg-10873 arg-10875 arg-10876 arg-10877 arg-10879 arg-10880 eta-1))))))))))) (vector 0 (lambda (vars) (lambda (arg-6840) (lambda (arg-6841) (lambda (arg-6843) (lambda (eta-1) (Normalise-Core-quote_Quote__Closure vars arg-6840 arg-6841 arg-6843 eta-1)))))) (lambda (vars) (lambda (arg-6845) (lambda (arg-6847) (lambda (arg-6848) (lambda (arg-6850) (lambda (eta-1) (Normalise-Core-quoteGen_Quote__Closure vars arg-6845 arg-6847 arg-6848 arg-6850 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--15663-19617 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--15663-19708-isDelay arg-2 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 arg-6) (lambda () (Unify-Core-n--15663-19708-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--15663-19617 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--15663-19708-isDelay arg-2 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 arg-6) (lambda () (Unify-Core-n--15663-19708-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--16161-14993 arg-2 arg-13 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 e-5 e-1 _-0 e-7 e-8 bind-0 (vector 0 (List-Data-reverse 'erased arg-10) (List-Data-reverse 'erased arg-13))) ext-0))) (else (Unify-Core-postpone arg-2 arg-0 arg-1 0 arg-5 arg-4 "Postponing hole application [3]" arg-6 (vector 1 arg-5 (vector 2 arg-7 arg-8 arg-9) arg-10) (arg-12 arg-13) ext-0)))))))))))))))))))))) (else (Unify-Core-ufail 'erased arg-5 (Strings-Prelude-C-43C-43 "No such metavariable " (Name-Core-show_Show__Name arg-7)) ext-0)))))))))))))))) +(define Unify-Core-unifyNoEta (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((2) (let ((e-15 (vector-ref sc0 1))) (let ((e-16 (vector-ref sc0 2))) (let ((e-17 (vector-ref sc0 3))) (let ((e-18 (vector-ref sc0 4))) (let ((e-19 (vector-ref sc0 5))) (let ((sc1 arg-7)) (case (vector-ref sc1 0) ((2) (let ((e-45 (vector-ref sc1 1))) (let ((e-46 (vector-ref sc1 2))) (let ((e-47 (vector-ref sc1 3))) (let ((e-48 (vector-ref sc1 4))) (let ((e-49 (vector-ref sc1 5))) (lambda (eta-0) (let ((act-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--15752-19344 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--15752-19662 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--15752-19753-isDelay arg-2 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 arg-6) (lambda () (Unify-Core-n--15752-19753-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--15752-19450 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--15752-19662 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--15752-19753-isDelay arg-2 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 arg-6) (lambda () (Unify-Core-n--15752-19753-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-10905) (lambda (arg-10907) (lambda (arg-10909) (lambda (arg-10910) (lambda (arg-10911) (lambda (arg-10913) (lambda (arg-10914) (Unify-Core-unifyD_Unify__NF vars arg-10905 arg-10907 arg-10909 arg-10910 arg-10911 arg-10913 arg-10914))))))))) (lambda (vars) (lambda (arg-10916) (lambda (arg-10918) (lambda (arg-10920) (lambda (arg-10921) (lambda (arg-10922) (lambda (arg-10924) (lambda (arg-10925) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-10916 arg-10918 arg-10920 arg-10921 arg-10922 arg-10924 arg-10925)))))))))) 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--15752-19662 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--15752-19753-isDelay arg-2 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 arg-6) (lambda () (Unify-Core-n--15752-19753-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-10905) (lambda (arg-10907) (lambda (arg-10909) (lambda (arg-10910) (lambda (arg-10911) (lambda (arg-10913) (lambda (arg-10914) (lambda (eta-0) (Unify-Core-unifyD_Unify__Closure vars arg-10905 arg-10907 arg-10909 arg-10910 arg-10911 arg-10913 arg-10914 eta-0)))))))))) (lambda (vars) (lambda (arg-10916) (lambda (arg-10918) (lambda (arg-10920) (lambda (arg-10921) (lambda (arg-10922) (lambda (arg-10924) (lambda (arg-10925) (lambda (eta-0) (Unify-Core-unifyWithLazyD_Unify__Closure vars arg-10916 arg-10918 arg-10920 arg-10921 arg-10922 arg-10924 arg-10925 eta-0))))))))))) (vector 0 (lambda (vars) (lambda (arg-6840) (lambda (arg-6841) (lambda (arg-6843) (lambda (eta-0) (Normalise-Core-quote_Quote__Closure vars arg-6840 arg-6841 arg-6843 eta-0)))))) (lambda (vars) (lambda (arg-6845) (lambda (arg-6847) (lambda (arg-6848) (lambda (arg-6850) (lambda (eta-0) (Normalise-Core-quoteGen_Quote__Closure vars arg-6845 arg-6847 arg-6848 arg-6850 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--15752-19662 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--15752-19753-isDelay arg-2 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 arg-6) (lambda () (Unify-Core-n--15752-19753-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-10905) (lambda (arg-10907) (lambda (arg-10909) (lambda (arg-10910) (lambda (arg-10911) (lambda (arg-10913) (lambda (arg-10914) (Unify-Core-unifyD_Unify__NF vars arg-10905 arg-10907 arg-10909 arg-10910 arg-10911 arg-10913 arg-10914))))))))) (lambda (vars) (lambda (arg-10916) (lambda (arg-10918) (lambda (arg-10920) (lambda (arg-10921) (lambda (arg-10922) (lambda (arg-10924) (lambda (arg-10925) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-10916 arg-10918 arg-10920 arg-10921 arg-10922 arg-10924 arg-10925)))))))))) 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-10905) (lambda (arg-10907) (lambda (arg-10909) (lambda (arg-10910) (lambda (arg-10911) (lambda (arg-10913) (lambda (arg-10914) (lambda (eta-1) (Unify-Core-unifyD_Unify__Closure vars arg-10905 arg-10907 arg-10909 arg-10910 arg-10911 arg-10913 arg-10914 eta-1)))))))))) (lambda (vars) (lambda (arg-10916) (lambda (arg-10918) (lambda (arg-10920) (lambda (arg-10921) (lambda (arg-10922) (lambda (arg-10924) (lambda (arg-10925) (lambda (eta-1) (Unify-Core-unifyWithLazyD_Unify__Closure vars arg-10916 arg-10918 arg-10920 arg-10921 arg-10922 arg-10924 arg-10925 eta-1))))))))))) (vector 0 (lambda (vars) (lambda (arg-6840) (lambda (arg-6841) (lambda (arg-6843) (lambda (eta-1) (Normalise-Core-quote_Quote__Closure vars arg-6840 arg-6841 arg-6843 eta-1)))))) (lambda (vars) (lambda (arg-6845) (lambda (arg-6847) (lambda (arg-6848) (lambda (arg-6850) (lambda (eta-1) (Normalise-Core-quoteGen_Quote__Closure vars arg-6845 arg-6847 arg-6848 arg-6850 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--15752-19662 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--15752-19753-isDelay arg-2 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 arg-6) (lambda () (Unify-Core-n--15752-19753-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--15752-19662 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--15752-19753-isDelay arg-2 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 arg-6) (lambda () (Unify-Core-n--15752-19753-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--16250-15038 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--15630-15468-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--17527-16142 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--17916-16476 arg-2 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 e-5 e-6 args e-7 e-10 e-12 e-11 bind-0 e-1 _-0 (let ((sc9 e-1)) (let ((e-17 (vector-ref sc9 18))) e-17))) ext-0))))(else ((Unify-Core-postponePatVar arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-8 arg-9 arg-10 arg-11 arg-12) ext-0))))))))))))))))))))))))))))))))))))))))))) +(define Unify-Core-unifyHoleApp (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((3) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-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--15719-15513-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--17616-16187 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--18005-16521 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--15656-18527 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--15656-18992 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--15651-17538 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--15651-17638 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--15651-18155 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--15651-18237 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--15651-18338 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--15651-17924 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--15651-18155 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--15651-18237 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--15651-18338 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--15651-18155 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--15651-18237 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--15651-18338 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--15651-17924 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--15651-18155 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--15651-18237 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--15651-18338 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--15651-18155 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--15651-18237 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--15651-18338 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--15651-17924 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--15651-18155 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--15651-18237 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--15651-18338 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--15651-18155 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--15651-18237 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--15651-18338 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--15651-17924 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--15651-18155 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--15651-18237 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--15651-18338 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--15651-17638 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--15651-18155 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--15651-18237 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--15651-18338 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--15651-17924 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--15651-18155 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--15651-18237 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--15651-18338 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--15651-18155 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--15651-18237 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--15651-18338 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--15651-17924 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--15651-18155 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--15651-18237 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--15651-18338 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--15651-18155 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--15651-18237 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--15651-18338 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--15651-17924 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--15651-18155 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--15651-18237 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--15651-18338 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--15651-18155 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--15651-18237 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--15651-18338 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--15651-17924 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--15651-18155 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--15651-18237 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--15651-18338 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--15651-17638 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--15651-18155 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--15651-18237 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--15651-18338 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--15651-17924 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--15651-18155 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--15651-18237 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--15651-18338 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--15651-18155 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--15651-18237 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--15651-18338 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--15651-17924 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--15651-18155 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--15651-18237 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--15651-18338 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--15651-18155 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--15651-18237 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--15651-18338 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--15651-17924 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--15651-18155 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--15651-18237 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--15651-18338 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--15651-18155 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--15651-18237 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--15651-18338 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--15651-17924 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--15651-18155 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--15651-18237 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--15651-18338 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--15651-17638 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--15651-18155 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--15651-18237 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--15651-18338 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--15651-17924 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--15651-18155 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--15651-18237 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--15651-18338 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--15651-18155 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--15651-18237 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--15651-18338 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--15651-17924 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--15651-18155 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--15651-18237 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--15651-18338 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--15651-18155 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--15651-18237 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--15651-18338 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--15651-17924 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--15651-18155 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--15651-18237 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--15651-18338 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--15651-18155 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--15651-18237 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--15651-18338 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--15651-17924 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--15651-18155 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--15651-18237 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--15651-18338 arg-2 arg-11 e-14 e-13 fy arg-9 arg-8 e-11 e-10 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-11 e-14))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))))))))))))) +(define Unify-Core-unifyBothBinders (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((2) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((sc1 arg-12)) (case (vector-ref sc1 0) ((2) (let ((e-9 (vector-ref sc1 1))) (let ((e-10 (vector-ref sc1 2))) (let ((e-11 (vector-ref sc1 3))) (lambda (eta-0) (let ((act-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--15745-18572 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--15745-19037 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--15740-17583 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--15740-17683 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--15740-18200 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--15740-18282 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--15740-18383 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--15740-17969 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--15740-18200 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--15740-18282 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--15740-18383 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--15740-18200 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--15740-18282 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--15740-18383 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--15740-17969 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--15740-18200 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--15740-18282 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--15740-18383 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--15740-18200 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--15740-18282 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--15740-18383 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--15740-17969 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--15740-18200 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--15740-18282 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--15740-18383 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--15740-18200 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--15740-18282 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--15740-18383 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--15740-17969 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--15740-18200 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--15740-18282 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--15740-18383 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--15740-17683 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--15740-18200 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--15740-18282 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--15740-18383 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--15740-17969 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--15740-18200 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--15740-18282 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--15740-18383 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--15740-18200 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--15740-18282 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--15740-18383 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--15740-17969 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--15740-18200 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--15740-18282 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--15740-18383 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--15740-18200 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--15740-18282 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--15740-18383 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--15740-17969 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--15740-18200 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--15740-18282 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--15740-18383 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--15740-18200 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--15740-18282 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--15740-18383 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--15740-17969 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--15740-18200 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--15740-18282 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--15740-18383 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--15740-17683 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--15740-18200 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--15740-18282 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--15740-18383 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--15740-17969 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--15740-18200 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--15740-18282 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--15740-18383 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--15740-18200 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--15740-18282 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--15740-18383 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--15740-17969 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--15740-18200 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--15740-18282 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--15740-18383 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--15740-18200 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--15740-18282 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--15740-18383 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--15740-17969 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--15740-18200 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--15740-18282 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--15740-18383 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--15740-18200 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--15740-18282 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--15740-18383 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--15740-17969 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--15740-18200 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--15740-18282 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--15740-18383 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--15740-17683 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--15740-18200 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--15740-18282 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--15740-18383 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--15740-17969 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--15740-18200 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--15740-18282 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--15740-18383 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--15740-18200 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--15740-18282 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--15740-18383 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--15740-17969 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--15740-18200 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--15740-18282 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--15740-18383 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--15740-18200 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--15740-18282 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--15740-18383 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--15740-17969 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--15740-18200 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--15740-18282 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--15740-18383 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--15740-18200 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--15740-18282 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--15740-18383 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--15740-17969 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--15740-18200 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--15740-18282 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--15740-18383 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--15647-17081 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--15647-17177 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--15647-17081 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--15647-17177 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-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--15736-17126 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--15736-17222 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--15736-17126 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--15736-17222 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--12853-12026 e-2 e-3 arg-1 (Unify-Core-toSubVars e-3 (TT-Core-dropFirst 'erased 'erased arg-1)))))))))) +(define Unify-Core-toSubVars (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (vector 0 (vector 0 ) (vector 0 ))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Unify-Core-case--12942-12071 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--15248-14162 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--15638-15803 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--15638-15771-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--25632-23472-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-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--15337-14207 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--15727-15848 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--15727-15816-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--25721-23517-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--24143-22209 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--23349-21623 arg-0 arg-3 arg-2 arg-1 e-5 (IntMap-Data-lookup 'erased arg-3 (let ((sc1 e-5)) (let ((e-4 (vector-ref sc1 5))) e-4)))) ext-0)))))))) +(define Unify-Core-retryGuess (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-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--24232-22254 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--23438-21668 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-4481) (lambda (arg-4482) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4481 arg-4482))) (lambda (arg-4483) (lambda (arg-4484) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4483 arg-4484)))) 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-4481) (lambda (arg-4482) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4481 arg-4482))) (lambda (arg-4483) (lambda (arg-4484) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4483 arg-4484)))) 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--12119-11316-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--13290-12463 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--12967-12193 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--13502-12766 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 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-4524) (lambda (arg-4525) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4526 arg-4527)))) 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-4524) (lambda (arg-4525) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4526 arg-4527)))) 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--12208-11361-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--13379-12508 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--13056-12238 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--13591-12811 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--13898-13862 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--13898-12913-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--13898-12910-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 e-8) (vector 1 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-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--13987-13907 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--13987-12958-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--13987-12955-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 e-8) (vector 1 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 )))) @@ -3805,10 +3875,10 @@ (define Unify-Core-inLHS (lambda () (vector 0 0 0 (vector 0 )))) (define Unify-Core-ifThenElse (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (arg-2)) (else (arg-3)))))) (define UnifyResult-Unify-Core-holesSolved (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-1 (vector-ref sc0 2))) e-1)))) -(define Unify-Core-headsConvert (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((1) (let ((e-3 (vector-ref sc1 1))) (Unify-Core-case--15623-14775 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--25680-23515-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--13194-12298 '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--12664-11898 arg-0 'erased e-16 'erased e-15 e-5 e-3 arg-1 (Unify-Core-n--12664-11835-inArgs arg-0 'erased e-16 'erased e-15 e-5 e-3 arg-1 e-16 arg-1)))(else (vector 0 )))))))(else (vector 0 )))))))) ((4) (let ((e-12 (vector-ref sc1 4))) (Unify-Core-getVars arg-0 arg-1 (vector 1 e-12 e-3))))(else (vector 0 ))))))))))) +(define Unify-Core-headsConvert (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((1) (let ((e-3 (vector-ref sc1 1))) (Unify-Core-case--15712-14820 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--25769-23560-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--13283-12343 '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--12753-11943 arg-0 'erased e-16 'erased e-15 e-5 e-3 arg-1 (Unify-Core-n--12753-11880-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)))))))))) @@ -3818,45 +3888,45 @@ (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--26100-23889-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-11 (vector-ref sc6 1))) (let ((act-17 ((Unify-Core-n--25807-23645-anySame e-2 e-3 arg-1 arg-0 e-11 e-3) 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 ((sc8 e-12)) (cond ((equal? sc8 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)))))))))))))))))))))) -(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--11986-11201 e-2 e-3 arg-2 arg-0 (NameMap-Data-lookup 'erased e-2 arg-2))))))))) +(define Unify-Core-checkDots (lambda (arg-0 arg-1 ext-0) (let ((act-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--26189-23934-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-11 (vector-ref sc6 1))) (let ((act-17 ((Unify-Core-n--25896-23690-anySame e-2 e-3 arg-1 arg-0 e-11 e-3) 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 ((sc8 e-12)) (cond ((equal? sc8 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)))))))))))))))))))))) +(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--12075-11246 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--10164-6998 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (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))))))))))) -(define GetType-Core-case--10164-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--10164-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--10164-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-case--10251-6998 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (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))))))))))) +(define GetType-Core-case--10251-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--10251-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--10251-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-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)) (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))))))))))))))))))))) ((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--13534-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--13525-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--13468-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--13351-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--12888-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--12748-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--12686-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--12658-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--12625-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--12541-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--12457-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--12308-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--12308-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--12308-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--12308-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--12888-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--13062-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--13062-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--13062-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-case--13623-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--13614-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--13557-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--13440-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--12977-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--12837-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--12775-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--12747-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--12714-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--12630-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--12546-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--12397-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--12397-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--12397-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--12397-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--12977-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--13151-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--13151-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--13151-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-1237) (lambda (arg-1239) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1238) (lambda (arg-1240) (TTC-Core-toBuf_TTC__FC arg-1238 arg-1240))) (lambda (arg-1240) (lambda (eta-0) (TTC-Core-fromBuf_TTC__FC arg-1240 eta-0)))) (vector 0 (lambda (arg-1238) (lambda (arg-1240) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1241) (lambda (arg-1242) (Binary-Utils-toBuf_TTC__Nat arg-1241 arg-1242))) (lambda (arg-1241) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Nat arg-1241 eta-0)))) (vector 0 (lambda (arg-1241) (lambda (arg-1242) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-1241 arg-1242))) (lambda (arg-1241) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-1241 eta-0))))) arg-1238 arg-1240))) (lambda (arg-1240) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1238) (lambda (arg-1241) (Binary-Utils-toBuf_TTC__Nat arg-1238 arg-1241))) (lambda (arg-1241) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-1241 eta-1)))) (vector 0 (lambda (arg-1238) (lambda (arg-1241) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-1238 arg-1241))) (lambda (arg-1241) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-1241 eta-1))))) arg-1240 eta-0))))) arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1237) (lambda (arg-1239) (TTC-Core-toBuf_TTC__FC arg-1237 arg-1239))) (lambda (arg-1241) (lambda (eta-1) (TTC-Core-fromBuf_TTC__FC arg-1241 eta-1)))) (vector 0 (lambda (arg-1237) (lambda (arg-1239) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1238) (lambda (arg-1241) (Binary-Utils-toBuf_TTC__Nat arg-1238 arg-1241))) (lambda (arg-1241) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-1241 eta-1)))) (vector 0 (lambda (arg-1238) (lambda (arg-1241) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-1238 arg-1241))) (lambda (arg-1241) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-1241 eta-1))))) arg-1237 arg-1239))) (lambda (arg-1241) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1237) (lambda (arg-1239) (Binary-Utils-toBuf_TTC__Nat arg-1237 arg-1239))) (lambda (arg-1242) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Nat arg-1242 eta-2)))) (vector 0 (lambda (arg-1237) (lambda (arg-1239) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-1237 arg-1239))) (lambda (arg-1242) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-1242 eta-2))))) arg-1241 eta-1))))) arg-1240 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-1237) (lambda (arg-1239) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1238) (lambda (arg-1240) (TTC-Core-toBuf_TTC__FC arg-1238 arg-1240))) (lambda (arg-1240) (lambda (eta-0) (TTC-Core-fromBuf_TTC__FC arg-1240 eta-0)))) (vector 0 (lambda (arg-1238) (lambda (arg-1240) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1241) (lambda (arg-1242) (TTC-Core-toBuf_TTC__Name arg-1241 arg-1242))) (lambda (arg-1241) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-1241 eta-0)))) (vector 0 (lambda (arg-1241) (lambda (arg-1242) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1243) (lambda (arg-1244) (Binary-Utils-toBuf_TTC__Nat arg-1243 arg-1244))) (lambda (arg-1243) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Nat arg-1243 eta-0)))) (vector 0 (lambda (arg-1243) (lambda (arg-1244) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-1243 arg-1244))) (lambda (arg-1243) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-1243 eta-0))))) arg-1241 arg-1242))) (lambda (arg-1241) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1242) (lambda (arg-1243) (Binary-Utils-toBuf_TTC__Nat arg-1242 arg-1243))) (lambda (arg-1242) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-1242 eta-1)))) (vector 0 (lambda (arg-1242) (lambda (arg-1243) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-1242 arg-1243))) (lambda (arg-1242) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-1242 eta-1))))) arg-1241 eta-0))))) arg-1238 arg-1240))) (lambda (arg-1240) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1238) (lambda (arg-1241) (TTC-Core-toBuf_TTC__Name arg-1238 arg-1241))) (lambda (arg-1241) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-1241 eta-1)))) (vector 0 (lambda (arg-1238) (lambda (arg-1241) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1242) (lambda (arg-1243) (Binary-Utils-toBuf_TTC__Nat arg-1242 arg-1243))) (lambda (arg-1242) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-1242 eta-1)))) (vector 0 (lambda (arg-1242) (lambda (arg-1243) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-1242 arg-1243))) (lambda (arg-1242) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-1242 eta-1))))) arg-1238 arg-1241))) (lambda (arg-1241) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1238) (lambda (arg-1242) (Binary-Utils-toBuf_TTC__Nat arg-1238 arg-1242))) (lambda (arg-1242) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Nat arg-1242 eta-2)))) (vector 0 (lambda (arg-1238) (lambda (arg-1242) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-1238 arg-1242))) (lambda (arg-1242) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-1242 eta-2))))) arg-1241 eta-1))))) arg-1240 eta-0))))) arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1237) (lambda (arg-1239) (TTC-Core-toBuf_TTC__FC arg-1237 arg-1239))) (lambda (arg-1241) (lambda (eta-1) (TTC-Core-fromBuf_TTC__FC arg-1241 eta-1)))) (vector 0 (lambda (arg-1237) (lambda (arg-1239) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1238) (lambda (arg-1241) (TTC-Core-toBuf_TTC__Name arg-1238 arg-1241))) (lambda (arg-1241) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-1241 eta-1)))) (vector 0 (lambda (arg-1238) (lambda (arg-1241) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1242) (lambda (arg-1243) (Binary-Utils-toBuf_TTC__Nat arg-1242 arg-1243))) (lambda (arg-1242) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-1242 eta-1)))) (vector 0 (lambda (arg-1242) (lambda (arg-1243) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-1242 arg-1243))) (lambda (arg-1242) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-1242 eta-1))))) arg-1238 arg-1241))) (lambda (arg-1241) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1238) (lambda (arg-1242) (Binary-Utils-toBuf_TTC__Nat arg-1238 arg-1242))) (lambda (arg-1242) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Nat arg-1242 eta-2)))) (vector 0 (lambda (arg-1238) (lambda (arg-1242) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-1238 arg-1242))) (lambda (arg-1242) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-1242 eta-2))))) arg-1241 eta-1))))) arg-1237 arg-1239))) (lambda (arg-1241) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1237) (lambda (arg-1239) (TTC-Core-toBuf_TTC__Name arg-1237 arg-1239))) (lambda (arg-1242) (lambda (eta-2) (TTC-Core-fromBuf_TTC__Name arg-1242 eta-2)))) (vector 0 (lambda (arg-1237) (lambda (arg-1239) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1238) (lambda (arg-1242) (Binary-Utils-toBuf_TTC__Nat arg-1238 arg-1242))) (lambda (arg-1242) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Nat arg-1242 eta-2)))) (vector 0 (lambda (arg-1238) (lambda (arg-1242) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-1238 arg-1242))) (lambda (arg-1242) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-1242 eta-2))))) arg-1237 arg-1239))) (lambda (arg-1242) (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-1237) (lambda (arg-1239) (Binary-Utils-toBuf_TTC__Nat arg-1237 arg-1239))) (lambda (arg-1243) (lambda (eta-3) (Binary-Utils-fromBuf_TTC__Nat arg-1243 eta-3)))) (vector 0 (lambda (arg-1237) (lambda (arg-1239) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-1237 arg-1239))) (lambda (arg-1243) (lambda (eta-3) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-1243 eta-3))))) arg-1242 eta-2))))) arg-1241 eta-1))))) arg-1240 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-1237) (lambda (arg-1239) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1238) (lambda (arg-1240) (TTC-Core-toBuf_TTC__FC arg-1238 arg-1240))) (lambda (arg-1240) (lambda (eta-0) (TTC-Core-fromBuf_TTC__FC arg-1240 eta-0)))) (vector 0 (lambda (arg-1238) (lambda (arg-1240) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1241) (lambda (arg-1242) (TTC-Core-toBuf_TTC__Name arg-1241 arg-1242))) (lambda (arg-1241) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-1241 eta-0)))) (vector 0 (lambda (arg-1241) (lambda (arg-1242) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1243) (lambda (arg-1244) (Binary-Utils-toBuf_TTC__Nat arg-1243 arg-1244))) (lambda (arg-1243) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Nat arg-1243 eta-0)))) (vector 0 (lambda (arg-1243) (lambda (arg-1244) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-1243 arg-1244))) (lambda (arg-1243) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-1243 eta-0))))) arg-1241 arg-1242))) (lambda (arg-1241) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1242) (lambda (arg-1243) (Binary-Utils-toBuf_TTC__Nat arg-1242 arg-1243))) (lambda (arg-1242) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-1242 eta-1)))) (vector 0 (lambda (arg-1242) (lambda (arg-1243) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-1242 arg-1243))) (lambda (arg-1242) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-1242 eta-1))))) arg-1241 eta-0))))) arg-1238 arg-1240))) (lambda (arg-1240) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1238) (lambda (arg-1241) (TTC-Core-toBuf_TTC__Name arg-1238 arg-1241))) (lambda (arg-1241) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-1241 eta-1)))) (vector 0 (lambda (arg-1238) (lambda (arg-1241) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1242) (lambda (arg-1243) (Binary-Utils-toBuf_TTC__Nat arg-1242 arg-1243))) (lambda (arg-1242) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-1242 eta-1)))) (vector 0 (lambda (arg-1242) (lambda (arg-1243) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-1242 arg-1243))) (lambda (arg-1242) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-1242 eta-1))))) arg-1238 arg-1241))) (lambda (arg-1241) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1238) (lambda (arg-1242) (Binary-Utils-toBuf_TTC__Nat arg-1238 arg-1242))) (lambda (arg-1242) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Nat arg-1242 eta-2)))) (vector 0 (lambda (arg-1238) (lambda (arg-1242) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-1238 arg-1242))) (lambda (arg-1242) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-1242 eta-2))))) arg-1241 eta-1))))) arg-1240 eta-0))))) arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1237) (lambda (arg-1239) (TTC-Core-toBuf_TTC__FC arg-1237 arg-1239))) (lambda (arg-1241) (lambda (eta-1) (TTC-Core-fromBuf_TTC__FC arg-1241 eta-1)))) (vector 0 (lambda (arg-1237) (lambda (arg-1239) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1238) (lambda (arg-1241) (TTC-Core-toBuf_TTC__Name arg-1238 arg-1241))) (lambda (arg-1241) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-1241 eta-1)))) (vector 0 (lambda (arg-1238) (lambda (arg-1241) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1242) (lambda (arg-1243) (Binary-Utils-toBuf_TTC__Nat arg-1242 arg-1243))) (lambda (arg-1242) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-1242 eta-1)))) (vector 0 (lambda (arg-1242) (lambda (arg-1243) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-1242 arg-1243))) (lambda (arg-1242) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-1242 eta-1))))) arg-1238 arg-1241))) (lambda (arg-1241) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1238) (lambda (arg-1242) (Binary-Utils-toBuf_TTC__Nat arg-1238 arg-1242))) (lambda (arg-1242) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Nat arg-1242 eta-2)))) (vector 0 (lambda (arg-1238) (lambda (arg-1242) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-1238 arg-1242))) (lambda (arg-1242) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-1242 eta-2))))) arg-1241 eta-1))))) arg-1237 arg-1239))) (lambda (arg-1241) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1237) (lambda (arg-1239) (TTC-Core-toBuf_TTC__Name arg-1237 arg-1239))) (lambda (arg-1242) (lambda (eta-2) (TTC-Core-fromBuf_TTC__Name arg-1242 eta-2)))) (vector 0 (lambda (arg-1237) (lambda (arg-1239) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1238) (lambda (arg-1242) (Binary-Utils-toBuf_TTC__Nat arg-1238 arg-1242))) (lambda (arg-1242) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Nat arg-1242 eta-2)))) (vector 0 (lambda (arg-1238) (lambda (arg-1242) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-1238 arg-1242))) (lambda (arg-1242) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-1242 eta-2))))) arg-1237 arg-1239))) (lambda (arg-1242) (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-1237) (lambda (arg-1239) (Binary-Utils-toBuf_TTC__Nat arg-1237 arg-1239))) (lambda (arg-1243) (lambda (eta-3) (Binary-Utils-fromBuf_TTC__Nat arg-1243 eta-3)))) (vector 0 (lambda (arg-1237) (lambda (arg-1239) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-1237 arg-1239))) (lambda (arg-1243) (lambda (eta-3) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-1243 eta-3))))) arg-1242 eta-2))))) arg-1241 eta-1))))) arg-1240 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-1237) (lambda (arg-1239) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1238) (lambda (arg-1240) (TTC-Core-toBuf_TTC__Name arg-1238 arg-1240))) (lambda (arg-1240) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-1240 eta-0)))) (vector 0 (lambda (arg-1238) (lambda (arg-1240) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-1238 arg-1240))) (lambda (arg-1240) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-1240 eta-0))))) arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1237) (lambda (arg-1239) (TTC-Core-toBuf_TTC__Name arg-1237 arg-1239))) (lambda (arg-1241) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-1241 eta-1)))) (vector 0 (lambda (arg-1237) (lambda (arg-1239) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-1237 arg-1239))) (lambda (arg-1241) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-1241 eta-1))))) arg-1240 eta-0)))) arg-0 (let ((sc3 arg-1)) (let ((e-4 (vector-ref sc3 5))) e-4)) ext-0))))))))))))))) +(define Metadata-Core-toBuf_TTC__Metadata (lambda (arg-0 arg-1 ext-0) (let ((act-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:\u000a" (Strings-Prelude-C-43C-43 " lhsApps: " (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (FC-Core-show_Show__FC x-0)) (lambda (d) (lambda (x-0) (FC-Core-showPrec_Show__FC d x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (Prelude-show_Show__Nat x-1)) (lambda (d) (lambda (x-1) (Prelude-showPrec_Show__Nat d x-1)))) (vector 0 (lambda (x-1) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) x-1)) (lambda (d) (lambda (x-1) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 (vector 0 ) d x-1))))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (Prelude-show_Show__Nat x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__Nat d-0 x-1)))) (vector 0 (lambda (x-1) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) x-1)) (lambda (d-0) (lambda (x-1) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 (vector 0 ) d-0 x-1))))) d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (FC-Core-show_Show__FC x-0)) (lambda (d-0) (lambda (x-0) (FC-Core-showPrec_Show__FC d-0 x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (Prelude-show_Show__Nat x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__Nat d-0 x-1)))) (vector 0 (lambda (x-1) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) x-1)) (lambda (d-0) (lambda (x-1) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 (vector 0 ) d-0 x-1))))) x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (Prelude-show_Show__Nat x-1)) (lambda (d-1) (lambda (x-1) (Prelude-showPrec_Show__Nat d-1 x-1)))) (vector 0 (lambda (x-1) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) x-1)) (lambda (d-1) (lambda (x-1) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 (vector 0 ) d-1 x-1))))) d-0 x-0))))) d x)))) e-0) (Strings-Prelude-C-43C-43 "\u000a" (Strings-Prelude-C-43C-43 " names: " (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (FC-Core-show_Show__FC x-0)) (lambda (d) (lambda (x-0) (FC-Core-showPrec_Show__FC d x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (Name-Core-show_Show__Name x-1)) (lambda (d) (lambda (x-1) (Name-Core-showPrec_Show__Name d x-1)))) (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__Nat x-2)) (lambda (d) (lambda (x-2) (Prelude-showPrec_Show__Nat d x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) x-2)) (lambda (d) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 (vector 0 ) d x-2))))) x-1)) (lambda (d) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__Nat x-2)) (lambda (d-0) (lambda (x-2) (Prelude-showPrec_Show__Nat d-0 x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) x-2)) (lambda (d-0) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 (vector 0 ) d-0 x-2))))) d x-1))))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (Name-Core-show_Show__Name x-1)) (lambda (d-0) (lambda (x-1) (Name-Core-showPrec_Show__Name d-0 x-1)))) (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__Nat x-2)) (lambda (d-0) (lambda (x-2) (Prelude-showPrec_Show__Nat d-0 x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) x-2)) (lambda (d-0) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 (vector 0 ) d-0 x-2))))) x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__Nat x-2)) (lambda (d-1) (lambda (x-2) (Prelude-showPrec_Show__Nat d-1 x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) x-2)) (lambda (d-1) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 (vector 0 ) d-1 x-2))))) d-0 x-1))))) d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (FC-Core-show_Show__FC x-0)) (lambda (d-0) (lambda (x-0) (FC-Core-showPrec_Show__FC d-0 x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (Name-Core-show_Show__Name x-1)) (lambda (d-0) (lambda (x-1) (Name-Core-showPrec_Show__Name d-0 x-1)))) (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__Nat x-2)) (lambda (d-0) (lambda (x-2) (Prelude-showPrec_Show__Nat d-0 x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) x-2)) (lambda (d-0) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 (vector 0 ) d-0 x-2))))) x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__Nat x-2)) (lambda (d-1) (lambda (x-2) (Prelude-showPrec_Show__Nat d-1 x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) x-2)) (lambda (d-1) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 (vector 0 ) d-1 x-2))))) d-0 x-1))))) x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (Name-Core-show_Show__Name x-1)) (lambda (d-1) (lambda (x-1) (Name-Core-showPrec_Show__Name d-1 x-1)))) (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__Nat x-2)) (lambda (d-1) (lambda (x-2) (Prelude-showPrec_Show__Nat d-1 x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) x-2)) (lambda (d-1) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 (vector 0 ) d-1 x-2))))) x-1)) (lambda (d-1) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__Nat x-2)) (lambda (d-2) (lambda (x-2) (Prelude-showPrec_Show__Nat d-2 x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) x-2)) (lambda (d-2) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 (vector 0 ) d-2 x-2))))) d-1 x-1))))) d-0 x-0))))) d x)))) e-1) (Strings-Prelude-C-43C-43 "\u000a" (Strings-Prelude-C-43C-43 " type declarations: " (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (FC-Core-show_Show__FC x-0)) (lambda (d) (lambda (x-0) (FC-Core-showPrec_Show__FC d x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (Name-Core-show_Show__Name x-1)) (lambda (d) (lambda (x-1) (Name-Core-showPrec_Show__Name d x-1)))) (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__Nat x-2)) (lambda (d) (lambda (x-2) (Prelude-showPrec_Show__Nat d x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) x-2)) (lambda (d) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 (vector 0 ) d x-2))))) x-1)) (lambda (d) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__Nat x-2)) (lambda (d-0) (lambda (x-2) (Prelude-showPrec_Show__Nat d-0 x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) x-2)) (lambda (d-0) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 (vector 0 ) d-0 x-2))))) d x-1))))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (Name-Core-show_Show__Name x-1)) (lambda (d-0) (lambda (x-1) (Name-Core-showPrec_Show__Name d-0 x-1)))) (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__Nat x-2)) (lambda (d-0) (lambda (x-2) (Prelude-showPrec_Show__Nat d-0 x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) x-2)) (lambda (d-0) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 (vector 0 ) d-0 x-2))))) x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__Nat x-2)) (lambda (d-1) (lambda (x-2) (Prelude-showPrec_Show__Nat d-1 x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) x-2)) (lambda (d-1) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 (vector 0 ) d-1 x-2))))) d-0 x-1))))) d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (FC-Core-show_Show__FC x-0)) (lambda (d-0) (lambda (x-0) (FC-Core-showPrec_Show__FC d-0 x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (Name-Core-show_Show__Name x-1)) (lambda (d-0) (lambda (x-1) (Name-Core-showPrec_Show__Name d-0 x-1)))) (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__Nat x-2)) (lambda (d-0) (lambda (x-2) (Prelude-showPrec_Show__Nat d-0 x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) x-2)) (lambda (d-0) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 (vector 0 ) d-0 x-2))))) x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__Nat x-2)) (lambda (d-1) (lambda (x-2) (Prelude-showPrec_Show__Nat d-1 x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) x-2)) (lambda (d-1) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 (vector 0 ) d-1 x-2))))) d-0 x-1))))) x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (Name-Core-show_Show__Name x-1)) (lambda (d-1) (lambda (x-1) (Name-Core-showPrec_Show__Name d-1 x-1)))) (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__Nat x-2)) (lambda (d-1) (lambda (x-2) (Prelude-showPrec_Show__Nat d-1 x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) x-2)) (lambda (d-1) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 (vector 0 ) d-1 x-2))))) x-1)) (lambda (d-1) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__Nat x-2)) (lambda (d-2) (lambda (x-2) (Prelude-showPrec_Show__Nat d-2 x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) x-2)) (lambda (d-2) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 (vector 0 ) d-2 x-2))))) d-1 x-1))))) d-0 x-0))))) d x)))) e-2) (Strings-Prelude-C-43C-43 "\u000a" (Strings-Prelude-C-43C-43 " current LHS: " (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) x)) (lambda (d) (lambda (x) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 (vector 0 ) d x)))) e-3) (Strings-Prelude-C-43C-43 "\u000a" (Strings-Prelude-C-43C-43 " holes: " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d) (lambda (x-0) (Name-Core-showPrec_Show__Name d x-0)))) (vector 0 (lambda (x-0) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) x-0)) (lambda (d) (lambda (x-0) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 (vector 0 ) d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d-0) (lambda (x-0) (Name-Core-showPrec_Show__Name d-0 x-0)))) (vector 0 (lambda (x-0) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) x-0)) (lambda (d-0) (lambda (x-0) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 (vector 0 ) d-0 x-0))))) d x)))) e-4))))))))))))))))))))))) -(define Metadata-Core-full_HasNames__Metadata (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-15 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Metadata-Core-n--13062-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--13062-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--13062-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--13062-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-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--13151-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--13151-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--13151-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--13151-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-1237) (lambda (arg-1239) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1238) (lambda (arg-1240) (TTC-Core-toBuf_TTC__FC arg-1238 arg-1240))) (lambda (arg-1240) (lambda (eta-0) (TTC-Core-fromBuf_TTC__FC arg-1240 eta-0)))) (vector 0 (lambda (arg-1238) (lambda (arg-1240) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1241) (lambda (arg-1242) (Binary-Utils-toBuf_TTC__Nat arg-1241 arg-1242))) (lambda (arg-1241) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Nat arg-1241 eta-0)))) (vector 0 (lambda (arg-1241) (lambda (arg-1242) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-1241 arg-1242))) (lambda (arg-1241) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-1241 eta-0))))) arg-1238 arg-1240))) (lambda (arg-1240) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1238) (lambda (arg-1241) (Binary-Utils-toBuf_TTC__Nat arg-1238 arg-1241))) (lambda (arg-1241) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-1241 eta-1)))) (vector 0 (lambda (arg-1238) (lambda (arg-1241) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-1238 arg-1241))) (lambda (arg-1241) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-1241 eta-1))))) arg-1240 eta-0))))) arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1237) (lambda (arg-1239) (TTC-Core-toBuf_TTC__FC arg-1237 arg-1239))) (lambda (arg-1241) (lambda (eta-1) (TTC-Core-fromBuf_TTC__FC arg-1241 eta-1)))) (vector 0 (lambda (arg-1237) (lambda (arg-1239) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1238) (lambda (arg-1241) (Binary-Utils-toBuf_TTC__Nat arg-1238 arg-1241))) (lambda (arg-1241) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-1241 eta-1)))) (vector 0 (lambda (arg-1238) (lambda (arg-1241) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-1238 arg-1241))) (lambda (arg-1241) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-1241 eta-1))))) arg-1237 arg-1239))) (lambda (arg-1241) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1237) (lambda (arg-1239) (Binary-Utils-toBuf_TTC__Nat arg-1237 arg-1239))) (lambda (arg-1242) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Nat arg-1242 eta-2)))) (vector 0 (lambda (arg-1237) (lambda (arg-1239) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-1237 arg-1239))) (lambda (arg-1242) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-1242 eta-2))))) arg-1241 eta-1))))) arg-1240 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-1237) (lambda (arg-1239) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1238) (lambda (arg-1240) (TTC-Core-toBuf_TTC__FC arg-1238 arg-1240))) (lambda (arg-1240) (lambda (eta-0) (TTC-Core-fromBuf_TTC__FC arg-1240 eta-0)))) (vector 0 (lambda (arg-1238) (lambda (arg-1240) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1241) (lambda (arg-1242) (TTC-Core-toBuf_TTC__Name arg-1241 arg-1242))) (lambda (arg-1241) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-1241 eta-0)))) (vector 0 (lambda (arg-1241) (lambda (arg-1242) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1243) (lambda (arg-1244) (Binary-Utils-toBuf_TTC__Nat arg-1243 arg-1244))) (lambda (arg-1243) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Nat arg-1243 eta-0)))) (vector 0 (lambda (arg-1243) (lambda (arg-1244) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-1243 arg-1244))) (lambda (arg-1243) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-1243 eta-0))))) arg-1241 arg-1242))) (lambda (arg-1241) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1242) (lambda (arg-1243) (Binary-Utils-toBuf_TTC__Nat arg-1242 arg-1243))) (lambda (arg-1242) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-1242 eta-1)))) (vector 0 (lambda (arg-1242) (lambda (arg-1243) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-1242 arg-1243))) (lambda (arg-1242) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-1242 eta-1))))) arg-1241 eta-0))))) arg-1238 arg-1240))) (lambda (arg-1240) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1238) (lambda (arg-1241) (TTC-Core-toBuf_TTC__Name arg-1238 arg-1241))) (lambda (arg-1241) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-1241 eta-1)))) (vector 0 (lambda (arg-1238) (lambda (arg-1241) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1242) (lambda (arg-1243) (Binary-Utils-toBuf_TTC__Nat arg-1242 arg-1243))) (lambda (arg-1242) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-1242 eta-1)))) (vector 0 (lambda (arg-1242) (lambda (arg-1243) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-1242 arg-1243))) (lambda (arg-1242) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-1242 eta-1))))) arg-1238 arg-1241))) (lambda (arg-1241) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1238) (lambda (arg-1242) (Binary-Utils-toBuf_TTC__Nat arg-1238 arg-1242))) (lambda (arg-1242) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Nat arg-1242 eta-2)))) (vector 0 (lambda (arg-1238) (lambda (arg-1242) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-1238 arg-1242))) (lambda (arg-1242) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-1242 eta-2))))) arg-1241 eta-1))))) arg-1240 eta-0))))) arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1237) (lambda (arg-1239) (TTC-Core-toBuf_TTC__FC arg-1237 arg-1239))) (lambda (arg-1241) (lambda (eta-1) (TTC-Core-fromBuf_TTC__FC arg-1241 eta-1)))) (vector 0 (lambda (arg-1237) (lambda (arg-1239) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1238) (lambda (arg-1241) (TTC-Core-toBuf_TTC__Name arg-1238 arg-1241))) (lambda (arg-1241) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-1241 eta-1)))) (vector 0 (lambda (arg-1238) (lambda (arg-1241) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1242) (lambda (arg-1243) (Binary-Utils-toBuf_TTC__Nat arg-1242 arg-1243))) (lambda (arg-1242) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-1242 eta-1)))) (vector 0 (lambda (arg-1242) (lambda (arg-1243) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-1242 arg-1243))) (lambda (arg-1242) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-1242 eta-1))))) arg-1238 arg-1241))) (lambda (arg-1241) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1238) (lambda (arg-1242) (Binary-Utils-toBuf_TTC__Nat arg-1238 arg-1242))) (lambda (arg-1242) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Nat arg-1242 eta-2)))) (vector 0 (lambda (arg-1238) (lambda (arg-1242) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-1238 arg-1242))) (lambda (arg-1242) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-1242 eta-2))))) arg-1241 eta-1))))) arg-1237 arg-1239))) (lambda (arg-1241) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1237) (lambda (arg-1239) (TTC-Core-toBuf_TTC__Name arg-1237 arg-1239))) (lambda (arg-1242) (lambda (eta-2) (TTC-Core-fromBuf_TTC__Name arg-1242 eta-2)))) (vector 0 (lambda (arg-1237) (lambda (arg-1239) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1238) (lambda (arg-1242) (Binary-Utils-toBuf_TTC__Nat arg-1238 arg-1242))) (lambda (arg-1242) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Nat arg-1242 eta-2)))) (vector 0 (lambda (arg-1238) (lambda (arg-1242) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-1238 arg-1242))) (lambda (arg-1242) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-1242 eta-2))))) arg-1237 arg-1239))) (lambda (arg-1242) (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-1237) (lambda (arg-1239) (Binary-Utils-toBuf_TTC__Nat arg-1237 arg-1239))) (lambda (arg-1243) (lambda (eta-3) (Binary-Utils-fromBuf_TTC__Nat arg-1243 eta-3)))) (vector 0 (lambda (arg-1237) (lambda (arg-1239) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-1237 arg-1239))) (lambda (arg-1243) (lambda (eta-3) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-1243 eta-3))))) arg-1242 eta-2))))) arg-1241 eta-1))))) arg-1240 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-1237) (lambda (arg-1239) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1238) (lambda (arg-1240) (TTC-Core-toBuf_TTC__FC arg-1238 arg-1240))) (lambda (arg-1240) (lambda (eta-0) (TTC-Core-fromBuf_TTC__FC arg-1240 eta-0)))) (vector 0 (lambda (arg-1238) (lambda (arg-1240) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1241) (lambda (arg-1242) (TTC-Core-toBuf_TTC__Name arg-1241 arg-1242))) (lambda (arg-1241) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-1241 eta-0)))) (vector 0 (lambda (arg-1241) (lambda (arg-1242) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1243) (lambda (arg-1244) (Binary-Utils-toBuf_TTC__Nat arg-1243 arg-1244))) (lambda (arg-1243) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Nat arg-1243 eta-0)))) (vector 0 (lambda (arg-1243) (lambda (arg-1244) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-1243 arg-1244))) (lambda (arg-1243) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-1243 eta-0))))) arg-1241 arg-1242))) (lambda (arg-1241) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1242) (lambda (arg-1243) (Binary-Utils-toBuf_TTC__Nat arg-1242 arg-1243))) (lambda (arg-1242) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-1242 eta-1)))) (vector 0 (lambda (arg-1242) (lambda (arg-1243) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-1242 arg-1243))) (lambda (arg-1242) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-1242 eta-1))))) arg-1241 eta-0))))) arg-1238 arg-1240))) (lambda (arg-1240) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1238) (lambda (arg-1241) (TTC-Core-toBuf_TTC__Name arg-1238 arg-1241))) (lambda (arg-1241) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-1241 eta-1)))) (vector 0 (lambda (arg-1238) (lambda (arg-1241) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1242) (lambda (arg-1243) (Binary-Utils-toBuf_TTC__Nat arg-1242 arg-1243))) (lambda (arg-1242) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-1242 eta-1)))) (vector 0 (lambda (arg-1242) (lambda (arg-1243) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-1242 arg-1243))) (lambda (arg-1242) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-1242 eta-1))))) arg-1238 arg-1241))) (lambda (arg-1241) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1238) (lambda (arg-1242) (Binary-Utils-toBuf_TTC__Nat arg-1238 arg-1242))) (lambda (arg-1242) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Nat arg-1242 eta-2)))) (vector 0 (lambda (arg-1238) (lambda (arg-1242) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-1238 arg-1242))) (lambda (arg-1242) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-1242 eta-2))))) arg-1241 eta-1))))) arg-1240 eta-0))))) arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1237) (lambda (arg-1239) (TTC-Core-toBuf_TTC__FC arg-1237 arg-1239))) (lambda (arg-1241) (lambda (eta-1) (TTC-Core-fromBuf_TTC__FC arg-1241 eta-1)))) (vector 0 (lambda (arg-1237) (lambda (arg-1239) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1238) (lambda (arg-1241) (TTC-Core-toBuf_TTC__Name arg-1238 arg-1241))) (lambda (arg-1241) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-1241 eta-1)))) (vector 0 (lambda (arg-1238) (lambda (arg-1241) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1242) (lambda (arg-1243) (Binary-Utils-toBuf_TTC__Nat arg-1242 arg-1243))) (lambda (arg-1242) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-1242 eta-1)))) (vector 0 (lambda (arg-1242) (lambda (arg-1243) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-1242 arg-1243))) (lambda (arg-1242) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-1242 eta-1))))) arg-1238 arg-1241))) (lambda (arg-1241) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1238) (lambda (arg-1242) (Binary-Utils-toBuf_TTC__Nat arg-1238 arg-1242))) (lambda (arg-1242) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Nat arg-1242 eta-2)))) (vector 0 (lambda (arg-1238) (lambda (arg-1242) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-1238 arg-1242))) (lambda (arg-1242) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-1242 eta-2))))) arg-1241 eta-1))))) arg-1237 arg-1239))) (lambda (arg-1241) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1237) (lambda (arg-1239) (TTC-Core-toBuf_TTC__Name arg-1237 arg-1239))) (lambda (arg-1242) (lambda (eta-2) (TTC-Core-fromBuf_TTC__Name arg-1242 eta-2)))) (vector 0 (lambda (arg-1237) (lambda (arg-1239) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1238) (lambda (arg-1242) (Binary-Utils-toBuf_TTC__Nat arg-1238 arg-1242))) (lambda (arg-1242) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Nat arg-1242 eta-2)))) (vector 0 (lambda (arg-1238) (lambda (arg-1242) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-1238 arg-1242))) (lambda (arg-1242) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-1242 eta-2))))) arg-1237 arg-1239))) (lambda (arg-1242) (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-1237) (lambda (arg-1239) (Binary-Utils-toBuf_TTC__Nat arg-1237 arg-1239))) (lambda (arg-1243) (lambda (eta-3) (Binary-Utils-fromBuf_TTC__Nat arg-1243 eta-3)))) (vector 0 (lambda (arg-1237) (lambda (arg-1239) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-1237 arg-1239))) (lambda (arg-1243) (lambda (eta-3) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-1243 eta-3))))) arg-1242 eta-2))))) arg-1241 eta-1))))) arg-1240 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-1237) (lambda (arg-1239) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1238) (lambda (arg-1240) (TTC-Core-toBuf_TTC__Name arg-1238 arg-1240))) (lambda (arg-1240) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-1240 eta-0)))) (vector 0 (lambda (arg-1238) (lambda (arg-1240) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-1238 arg-1240))) (lambda (arg-1240) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-1240 eta-0))))) arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1237) (lambda (arg-1239) (TTC-Core-toBuf_TTC__Name arg-1237 arg-1239))) (lambda (arg-1241) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-1241 eta-1)))) (vector 0 (lambda (arg-1237) (lambda (arg-1239) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-1237 arg-1239))) (lambda (arg-1241) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-1241 eta-1))))) arg-1240 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-1237) (lambda (arg-1239) (lambda (eta-0) (Metadata-Core-toBuf_TTC__TTMFile arg-1237 arg-1239 eta-0)))) (lambda (arg-1240) (lambda (eta-0) (Metadata-Core-fromBuf_TTC__TTMFile arg-1240 eta-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)))) @@ -3865,7 +3935,7 @@ (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--12888-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-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--12977-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)))) @@ -3875,563 +3945,571 @@ (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--12748-7483 'erased e-6 e-7 e-3 arg-1 ((arg-1 e-6) e-7)))))))))))) +(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--12837-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-4481) (lambda (arg-4482) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4481 arg-4482))) (lambda (arg-4483) (lambda (arg-4484) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4483 arg-4484)))) (Env-Core-bindEnv arg-0 arg-3 (Metadata-Core-n--12308-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--15513-14588 (lambda (arg-0 arg-1 arg-2 arg-3 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--15254-14520 (lambda (arg-0 arg-1 arg-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--15254-14392 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-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--15254-14309 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-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--15069-14155 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-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--15069-14133-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--14806-13921 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-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--14759-13886 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-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--14806-13921 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--14495-13847 (lambda (arg-0 arg-1 arg-2 arg-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--14806-13921 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--14588-13729 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (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--14495-13648-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--14495-13696 (lambda (arg-0 arg-1 arg-2 arg-3 arg-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--14495-13648-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--14433-13566 (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--14384-13537 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-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--14252-13468 (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--14252-13379-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--14255-13405 (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--14201-13338 (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--15069-14133-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--14495-13648-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--14495-13648-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--14252-13379-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--14252-13379-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 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-4524) (lambda (arg-4525) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4526 arg-4527)))) (Env-Core-bindEnv arg-0 arg-3 (Metadata-Core-n--12397-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--15685-15381 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (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--15426-15313 (lambda (arg-0 arg-1 arg-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--15426-15185 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (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--15426-15102 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-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--15241-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) (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--15241-14926-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--14978-14714 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-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--14931-14679 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-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--14978-14714 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--14667-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)) (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--14978-14714 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--14760-14522 (lambda (arg-0 arg-1 arg-2 arg-3 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--14667-14441-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--14667-14489 (lambda (arg-0 arg-1 arg-2 arg-3 arg-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--14667-14441-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--14605-14359 (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--14556-14330 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-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--14424-14261 (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--14424-14172-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--14427-14198 (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--14373-14131 (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--15241-14926-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--14667-14441-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--14667-14441-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--14424-14172-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--14424-14172-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--14433-13566 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--15069-14155 arg-0 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 e-6 (Record-Elab-TTImp-getRecordType 'erased arg-8 e-6)) ext-0))))))))))))) +(define Record-Elab-TTImp-replace (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (Record-Elab-TTImp-case--14605-14359 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--15241-14948 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--14495-13847 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--14495-13648-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--14495-13847 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--14495-13847 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--14252-13379-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-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--14667-14640 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--14667-14441-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--14667-14640 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--14667-14640 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--14424-14172-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--15254-14309 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 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--15426-15102 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--14650-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 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--14650-12396 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--14617-12358 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 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--14650-12396 arg-0 arg-1 arg-2 arg-3 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--14534-12279 (lambda (arg-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--14024-12217 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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--14045-12061 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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--14044-12014 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (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--14043-11854 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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--14024-11824-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--14024-11824-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--14024-11827-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--14024-11826-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--14024-11829-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--14024-11827-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--14024-11826-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--14024-11828-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--14024-11828-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--14024-11826-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--14024-11827-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--14024-11826-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--14024-11826-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--14045-12061 arg-0 arg-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--14024-11824-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--14043-11854 arg-0 arg-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--14024-11825-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--14534-12279 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--14024-11825-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--14024-11824-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 ((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--14024-11829-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 ((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-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--14650-12396 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--14626-13735 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (let ((sc0 arg-17)) (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--14580-13693 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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--14351-13514 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--14220-13456 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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--14220-13370 (lambda (arg-0 arg-1 arg-2 arg-3 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--14132-13297 (lambda (arg-0 arg-1 arg-2 arg-3 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--14220-13350-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 Local-Elab-TTImp-case--14938-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--14938-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--14905-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--14938-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--14822-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--14122-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--14122-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--14122-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--14143-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--14142-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--14141-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--14122-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--14122-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--14122-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--14122-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--14122-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--14122-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--14122-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--14122-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--14122-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--14122-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--14122-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--14122-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--14122-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--14143-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--14122-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--14141-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--14122-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--14822-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--14122-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--14122-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--14122-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--14938-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--14798-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 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--14752-14486 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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--14523-14307 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--14392-14249 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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--14392-14163 (lambda (arg-0 arg-1 arg-2 arg-3 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--14304-14090 (lambda (arg-0 arg-1 arg-2 arg-3 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--14392-14143-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--14220-13370 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--14220-13350-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--18465-17824 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-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--18535-17766 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 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--18535-17657 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 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--18535-17555 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 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--18535-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 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 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))) (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))))))))))))))) -(define ImplicitBind-Elab-TTImp-case--18535-17373 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 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--18465-17167 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-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--18535-17657 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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--18535-17555 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-24 (vector-ref sc11 2))) (let ((e-23 (vector-ref sc11 3))) (let ((e-4 (vector-ref sc11 4))) (let ((e-21 (vector-ref sc11 6))) (let ((e-20 (vector-ref sc11 7))) (let ((e-19 (vector-ref sc11 8))) (let ((e-18 (vector-ref sc11 9))) (let ((e-17 (vector-ref sc11 10))) (let ((e-16 (vector-ref sc11 11))) (let ((e-15 (vector-ref sc11 12))) (vector 0 e-1 e-24 e-23 e-4 (vector 0 ) 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--17976-16919 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 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))) (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)))))))))))))))) -(define ImplicitBind-Elab-TTImp-case--17976-16807 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-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--17910-16657 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--17976-16807 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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-19 (vector-ref sc5 2))) (let ((e-18 (vector-ref sc5 3))) (let ((e-4 (vector-ref sc5 4))) (let ((e-17 (vector-ref sc5 5))) (let ((e-16 (vector-ref sc5 6))) (let ((e-15 (vector-ref sc5 7))) (let ((e-14 (vector-ref sc5 8))) (let ((e-13 (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))) (vector 0 e-1 e-19 e-18 e-4 (vector 1 (vector 0 arg-14 (vector 0 arg-0 arg-7 (vector 1 ) e-2 e-6)) e-17) (vector 1 (vector 0 arg-14 (vector 0 arg-0 arg-7 (vector 1 ) e-2 e-7)) e-16) e-15 e-14 e-13 e-10 e-11 e-12)))))))))))))) 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--17836-16607 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--17976-16807 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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-20 (vector-ref sc7 2))) (let ((e-19 (vector-ref sc7 3))) (let ((e-4 (vector-ref sc7 4))) (let ((e-18 (vector-ref sc7 5))) (let ((e-17 (vector-ref sc7 6))) (let ((e-16 (vector-ref sc7 7))) (let ((e-15 (vector-ref sc7 8))) (let ((e-14 (vector-ref sc7 9))) (let ((e-13 (vector-ref sc7 10))) (let ((e-11 (vector-ref sc7 11))) (let ((e-12 (vector-ref sc7 12))) (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-13 e-11 e-12)))))))))))))) 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--17470-16247-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--17470-16543 (lambda (arg-0 arg-1 arg-2 arg-3 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--17836-16607 arg-0 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-16 (vector-ref sc5 5))) e-16)))) 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--17470-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) (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--16639-16188 (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--16639-16141 (lambda (arg-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--16661-15909 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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--16639-15499-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--16853-15729 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22) (let ((sc0 arg-22)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-15 ((ImplicitBind-Elab-TTImp-n--16639-15498-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--16639-15497-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--16639-15498-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--16660-15678 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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--16853-15729 arg-0 arg-1 arg-2 arg-3 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--16639-15498-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--16639-15498-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--16660-15562 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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--16639-15498-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--16639-15498-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--16639-15497-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--16579-15443 (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--16006-15292 (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--16006-14963-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--16023-15215 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--16083-15065 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-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--16023-15014 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-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--15821-14816 (lambda (arg-0 arg-1 arg-2 arg-3 arg-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--15524-14563 (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--15393-14491 (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--14988-14134 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 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--14683-14049 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-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--14664-13775-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-10860) (lambda (arg-10862) (lambda (arg-10864) (lambda (arg-10865) (lambda (arg-10866) (lambda (arg-10868) (lambda (arg-10869) (lambda (eta-1) (Unify-Core-unifyD_Unify__Term vars arg-10860 arg-10862 arg-10864 arg-10865 arg-10866 arg-10868 arg-10869 eta-1)))))))))) (lambda (vars) (lambda (arg-10871) (lambda (arg-10873) (lambda (arg-10875) (lambda (arg-10876) (lambda (arg-10877) (lambda (arg-10879) (lambda (arg-10880) (lambda (eta-1) (Unify-Core-unifyWithLazyD_Unify__Term vars arg-10871 arg-10873 arg-10875 arg-10876 arg-10877 arg-10879 arg-10880 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--14701-13941 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-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))) (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)))))))))))))))) -(define ImplicitBind-Elab-TTImp-case--14682-13796 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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-4481) (lambda (arg-4482) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4481 arg-4482))) (lambda (arg-4483) (lambda (arg-4484) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4483 arg-4484)))) 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-16 (vector-ref sc4 2))) (let ((e-3 (vector-ref sc4 3))) (let ((e-4 (vector-ref sc4 4))) (let ((e-15 (vector-ref sc4 5))) (let ((e-14 (vector-ref sc4 6))) (let ((e-13 (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))) (vector 0 e-1 e-16 e-3 e-4 e-15 (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-14) e-13 e-8 e-9 e-10 e-11 e-12)))))))))))))) 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--14345-13651 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-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--14345-13539-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--14345-13501 (lambda (arg-0 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--14132-13300 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-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--16006-14963-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--16006-14963-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--16006-14963-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--16006-14963-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--15296-14368-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--16639-15498-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--16660-15562 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--16660-15678 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--16639-15497-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--16507-15375-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--14664-13776-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--14664-13775-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-10860) (lambda (arg-10862) (lambda (arg-10864) (lambda (arg-10865) (lambda (arg-10866) (lambda (arg-10868) (lambda (arg-10869) (lambda (eta-1) (Unify-Core-unifyD_Unify__Term vars arg-10860 arg-10862 arg-10864 arg-10865 arg-10866 arg-10868 arg-10869 eta-1)))))))))) (lambda (vars) (lambda (arg-10871) (lambda (arg-10873) (lambda (arg-10875) (lambda (arg-10876) (lambda (arg-10877) (lambda (arg-10879) (lambda (arg-10880) (lambda (eta-1) (Unify-Core-unifyWithLazyD_Unify__Term vars arg-10871 arg-10873 arg-10875 arg-10876 arg-10877 arg-10879 arg-10880 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--14345-13539-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--14345-13539-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--14664-13775-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--14682-13796 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--15941-14907-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--15941-14907-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--15941-14907-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--15941-14907-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--15941-14907-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--17470-16246-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--16639-15499-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--16661-15909 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--16006-14964-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--16023-15014 '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--16006-14964-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--16023-15215 '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--16006-14964-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--16639-15500-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--16639-15499-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--16639-15500-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--17470-16247-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--17470-16246-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--14345-13540-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--14345-13540-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--15524-14563 '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--15296-14368-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--15393-14491 '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--15821-14816 arg-0 e-6 e-5 arg-2 e-10 e-8 e-4 e-1 tm arg-3 arg-1 (TT-Core-shrinkTerm 'erased 'erased e-10 (vector 1 (vector 0 ))))))(else (vector 3 arg-1 arg-2 arg-3 arg-4))))))))(else (vector 3 arg-1 arg-2 arg-3 arg-4)))))))(else (vector 3 arg-1 arg-2 arg-3 arg-4)))))))))(else (vector 3 arg-1 arg-2 arg-3 arg-4)))))) +(define Lazy-Elab-TTImp-checkDelay (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 ext-0) (let ((act-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--14392-14163 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--14392-14143-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--18639-18620 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-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--18709-18562 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 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--18709-18453 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 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--18709-18351 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 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--18709-18277 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 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--18709-18169 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 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--18639-17962 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-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--18709-18453 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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--18709-18351 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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--18149-17714 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 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--18149-17601 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-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--18083-17451 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--18149-17601 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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--18009-17401 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--18149-17601 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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--17643-17041-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--17643-17337 (lambda (arg-0 arg-1 arg-2 arg-3 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--18009-17401 arg-0 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--17643-17272 (lambda (arg-0 arg-1 arg-2 arg-3 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--16812-16982 (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--16812-16935 (lambda (arg-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--16834-16703 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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--16812-16293-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--17026-16523 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-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--16812-16292-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--16812-16291-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--16812-16292-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--16833-16472 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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--17026-16523 arg-0 arg-1 arg-2 arg-3 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--16812-16292-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--16812-16292-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--16833-16356 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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--16812-16292-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--16812-16292-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--16812-16291-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--16752-16237 (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--16179-16086 (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--16179-15757-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--16196-16009 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--16256-15859 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-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--16196-15808 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-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--15994-15610 (lambda (arg-0 arg-1 arg-2 arg-3 arg-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--15697-15357 (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--15566-15285 (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--15161-14928 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 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--14855-14843 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-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--14836-14568-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-10905) (lambda (arg-10907) (lambda (arg-10909) (lambda (arg-10910) (lambda (arg-10911) (lambda (arg-10913) (lambda (arg-10914) (lambda (eta-1) (Unify-Core-unifyD_Unify__Term vars arg-10905 arg-10907 arg-10909 arg-10910 arg-10911 arg-10913 arg-10914 eta-1)))))))))) (lambda (vars) (lambda (arg-10916) (lambda (arg-10918) (lambda (arg-10920) (lambda (arg-10921) (lambda (arg-10922) (lambda (arg-10924) (lambda (arg-10925) (lambda (eta-1) (Unify-Core-unifyWithLazyD_Unify__Term vars arg-10916 arg-10918 arg-10920 arg-10921 arg-10922 arg-10924 arg-10925 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--14873-14735 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-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--14854-14589 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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-4524) (lambda (arg-4525) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4526 arg-4527)))) 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--14517-14444 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (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--14517-14332-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--14517-14294 (lambda (arg-0 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--14304-14093 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-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--16179-15757-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--16179-15757-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--16179-15757-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--16179-15757-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--15469-15162-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--16812-16292-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--16833-16356 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--16833-16472 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--16812-16291-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--16680-16169-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--14836-14569-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--14836-14568-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-10905) (lambda (arg-10907) (lambda (arg-10909) (lambda (arg-10910) (lambda (arg-10911) (lambda (arg-10913) (lambda (arg-10914) (lambda (eta-1) (Unify-Core-unifyD_Unify__Term vars arg-10905 arg-10907 arg-10909 arg-10910 arg-10911 arg-10913 arg-10914 eta-1)))))))))) (lambda (vars) (lambda (arg-10916) (lambda (arg-10918) (lambda (arg-10920) (lambda (arg-10921) (lambda (arg-10922) (lambda (arg-10924) (lambda (arg-10925) (lambda (eta-1) (Unify-Core-unifyWithLazyD_Unify__Term vars arg-10916 arg-10918 arg-10920 arg-10921 arg-10922 arg-10924 arg-10925 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--14517-14332-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--14517-14332-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--14836-14568-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--14854-14589 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--16114-15701-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--16114-15701-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--16114-15701-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--16114-15701-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--16114-15701-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--17643-17040-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--16812-16293-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--16834-16703 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--16179-15758-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--16196-15808 '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--16179-15758-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--16196-16009 '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--16179-15758-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--16812-16294-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--16812-16293-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--16812-16294-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--17643-17041-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--17643-17040-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--14517-14333-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--14517-14333-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--15697-15357 '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--15469-15162-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--15566-15285 '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--15994-15610 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--14345-13651 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--14345-13540-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--14132-13300 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--15941-14907-liftImpsC-39 arg-0 e-0 e-3 e-6 arg-0 e-3) (vector 11 e-6))))(else arg-2))))))(else arg-2)))))(else arg-2))))) +(define ImplicitBind-Elab-TTImp-mkPatternHole (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-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--14517-14444 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--14517-14333-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--14304-14093 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--16114-15701-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-16 (vector-ref sc5 6))) e-16)))))) (let ((act-20 ((ImplicitBind-Elab-TTImp-n--16639-15498-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--16639-15500-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--17470-16543 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--17470-16478 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--18535-17657 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--18535-17555 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-28 (vector-ref sc15 2))) (let ((e-27 (vector-ref sc15 3))) (let ((e-4 (vector-ref sc15 4))) (let ((e-25 (vector-ref sc15 6))) (let ((e-24 (vector-ref sc15 7))) (let ((e-23 (vector-ref sc15 8))) (let ((e-22 (vector-ref sc15 9))) (let ((e-21 (vector-ref sc15 10))) (let ((e-20 (vector-ref sc15 11))) (let ((e-19 (vector-ref sc15 12))) (vector 0 e-1 e-28 e-27 e-4 (vector 0 ) 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--14664-13776-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-13 (vector-ref sc3 7))) e-13))) 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--16507-15375-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--16006-14963-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--16006-14964-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--14286-12093 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--14024-12047 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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--14063-11895 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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--14024-11848 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-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 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--16812-16292-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--16812-16294-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--17643-17337 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--17643-17272 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--18709-18453 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--18709-18351 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--14836-14569-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--16680-16169-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--16179-15757-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--16179-15758-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--14384-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--14122-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--14161-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--14122-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--14632-13419 (lambda (arg-0 arg-1 arg-2 arg-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--14632-13353 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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--14594-13300 (lambda (arg-0 arg-1 arg-2 arg-3 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--14594-13300 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--18003-19088 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--18003-18994 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--17219-18123-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--18003-18841 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-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--17219-18787 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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--18003-18841 arg-0 arg-1 arg-2 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--17219-18123-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--17219-18724 (lambda (arg-0 arg-1 arg-2 arg-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--17219-18126-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--17581-18497 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 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--17219-18124-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--17219-18126-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--17219-18126-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--17510-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 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--17219-18125-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--17219-18124-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--17219-18126-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--17219-18126-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--17219-18126-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--17219-18126-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--17219-18126-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--17219-18126-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--17244-18372 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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-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-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--17219-18125-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--17219-18124-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--17219-18126-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--17219-18126-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--17219-18126-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--17219-18126-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--17219-18126-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--17219-18126-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--17219-18126-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--17243-18248 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-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--15539-17997 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 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--16648-17858 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 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--15539-17597 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 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--16648-17858 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 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 ((caseRef (vector 1 arg-9 (vector 1 ) (vector 9 e-8)))) (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) (Context-Core-setFlag arg-15 arg-9 arg-20 (vector 0 ) eta-2)))) arg-23) 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 ((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--15539-16698-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-20 (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 ((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 (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 ((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 (Normalise-Core-logTermNF arg-0 arg-15 (+ 1 (+ 1 0)) (lambda () "Case application") arg-21 appTm 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 ((nestC-39 (vector 0 ))) (let ((act-23 ((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 ((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 (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--15569-17464 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-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--15539-16694-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--15539-16697-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--15569-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 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--15539-16694-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--15539-16697-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--15569-17324 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 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--15539-16694-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--15539-16697-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--15564-17116 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-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--15563-17042 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 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--15562-16919 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-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--15562-16823 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-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--15477-16627 (lambda (arg-0 arg-1 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--15334-16541 (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--15293-16497 (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--14917-16118 (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--15539-16695-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--15539-16695-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--15539-16695-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--15539-16695-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-2851) (lambda (arg-2852) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-2851 arg-2852))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (eta-0) (Case-Elab-TTImp-n--15539-16695-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--15539-16698-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--15569-17324 arg-0 arg-1 arg-2 arg-3 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--15539-16692-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--15539-16695-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--15569-17397 arg-0 arg-1 arg-2 arg-3 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--15539-16692-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--15539-16695-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--15569-17464 arg-0 arg-1 arg-2 arg-3 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--15539-16692-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--15539-16695-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--15539-16693-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--15539-16693-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--15293-16472-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--15539-16696-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--15539-16694-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--15539-16693-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--17219-18126-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--17244-18372 arg-0 arg-1 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--17219-18126-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--17219-18125-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--17219-18125-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--15455-16618-getNameFrom (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (Case-Elab-TTImp-case--15477-16627 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--15539-16691-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--15562-16823 arg-0 arg-1 arg-2 arg-3 arg-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--15562-16919 arg-0 arg-1 arg-2 arg-3 arg-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--17219-18123-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--17219-18124-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--17219-18124-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--17219-18124-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--15539-16697-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--15539-16696-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--15539-16692-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--15539-16691-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--15563-17042 arg-0 arg-1 arg-2 arg-3 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--15539-16692-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 Dot-Elab-TTImp-case--14804-14212 (lambda (arg-0 arg-1 arg-2 arg-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--14804-14146 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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--14766-14093 (lambda (arg-0 arg-1 arg-2 arg-3 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--14766-14093 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--18503-19380 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--18503-19286 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--17719-18415-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--18503-19133 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-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--17719-19079 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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--18503-19133 arg-0 arg-1 arg-2 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--17719-18415-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--17719-19016 (lambda (arg-0 arg-1 arg-2 arg-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--17719-18418-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--18081-18789 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 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--17719-18416-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--17719-18418-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--17719-18418-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--18010-18718 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--17719-18417-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--17719-18416-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--17719-18418-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--17719-18418-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--17719-18418-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--17719-18418-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--17719-18418-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--17719-18418-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--17744-18664 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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-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-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--17719-18417-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--17719-18416-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--17719-18418-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--17719-18418-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--17719-18418-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--17719-18418-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--17719-18418-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--17719-18418-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--17719-18418-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--17743-18540 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-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--15711-18289 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 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--16820-18196 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 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) (let ((sc0 arg-42)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 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--16820-18090 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 arg-30 arg-31 arg-32 arg-33 arg-34 arg-35 arg-36 arg-37 arg-38 arg-39 arg-40 arg-41 arg-42 arg-43 arg-44 arg-45 arg-46) (let ((sc0 arg-46)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 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-43 e-9))))))))))))) +(define Case-Elab-TTImp-case--16820-17942 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 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--15711-17642 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 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--16820-17942 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 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 ((caseRef (vector 1 arg-9 (vector 1 ) (vector 9 e-8)))) (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) (Context-Core-setFlag arg-15 arg-9 arg-20 (vector 0 ) eta-2)))) arg-23) 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 ((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--15711-16743-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-20 (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 ((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 (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 ((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 (Normalise-Core-logTermNF arg-0 arg-15 (+ 1 (+ 1 0)) (lambda () "Case application") arg-21 appTm 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 ((nestC-39 (vector 0 ))) (let ((act-23 (let ((act-23 (IORef-Data-readIORef 'erased arg-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 (let ((e-13 (vector-ref sc9 1))) (let ((olddelayed (let ((sc10 e-13)) (let ((e-15 (vector-ref sc10 9))) e-15)))) (let ((act-24 (let ((act-24 (IORef-Data-writeIORef 'erased arg-13 (let ((sc10 e-13)) (let ((e-0 (vector-ref sc10 1))) (let ((e-1 (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-1 e-20 e-19 e-4 e-18 e-17 e-16 (vector 0 ) e-14))))))))))) 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 ((act-25 ((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 ((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 (let ((act-26 (IORef-Data-readIORef 'erased arg-13 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-13 (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 (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--15741-17509 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-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--15711-16739-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--15711-16742-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--15741-17442 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 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--15711-16739-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--15711-16742-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--15741-17369 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 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--15711-16739-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--15711-16742-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--15736-17161 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-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--15735-17087 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 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--15734-16964 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-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--15734-16868 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-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--15649-16672 (lambda (arg-0 arg-1 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--15506-16586 (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--15465-16542 (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--15089-16163 (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--15711-16740-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--15711-16740-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--15711-16740-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--15711-16740-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-2851) (lambda (arg-2852) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-2851 arg-2852))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (eta-0) (Case-Elab-TTImp-n--15711-16740-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--15711-16743-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--15741-17369 arg-0 arg-1 arg-2 arg-3 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--15711-16737-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--15711-16740-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--15741-17442 arg-0 arg-1 arg-2 arg-3 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--15711-16737-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--15711-16740-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--15741-17509 arg-0 arg-1 arg-2 arg-3 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--15711-16737-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--15711-16740-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--15711-16738-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--15711-16738-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--15465-16517-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--15711-16741-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--15711-16739-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--15711-16738-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--17719-18418-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--17744-18664 arg-0 arg-1 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--17719-18418-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--17719-18417-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--17719-18417-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--15627-16663-getNameFrom (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (Case-Elab-TTImp-case--15649-16672 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--15711-16736-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--15734-16868 arg-0 arg-1 arg-2 arg-3 arg-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--15734-16964 arg-0 arg-1 arg-2 arg-3 arg-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--17719-18415-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--17719-18416-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--17719-18416-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--17719-18416-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--15711-16742-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--15711-16741-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--15711-16737-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--15711-16736-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--15735-17087 arg-0 arg-1 arg-2 arg-3 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--15711-16737-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--14917-16118 '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-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--15089-16163 '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--15293-16497 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--15293-16472-notLet e-2 e-1 e-7 e-6 e-9 e-8 'erased e-6)))))))(else (vector 0 )))))))(else (vector 0 )))))))(else (vector 0 )))))) +(define Case-Elab-TTImp-findScrutinee (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((1) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((0) (let ((e-8 (vector-ref sc2 1))) (let ((e-9 (vector-ref sc2 2))) (Case-Elab-TTImp-case--15465-16542 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--15465-16517-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--17219-18126-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--18003-18841 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--17219-18123-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--16648-17858 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 ((caseRef (vector 1 arg-7 (vector 1 ) (vector 9 e-16)))) (let ((act-27 ((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 ((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 ((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--15539-16698-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-28 (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 ((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 ((act-29 (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 ((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-logTermNF arg-0 arg-1 (+ 1 (+ 1 0)) (lambda () "Case application") env appTm 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 ((nestC-39 (vector 0 ))) (let ((act-31 ((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 ((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 (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--15455-16618-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-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--17719-18418-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--18503-19133 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--17719-18415-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--16820-17942 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 ((caseRef (vector 1 arg-7 (vector 1 ) (vector 9 e-16)))) (let ((act-27 ((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 ((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 ((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--15711-16743-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-28 (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 ((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 ((act-29 (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 ((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-logTermNF arg-0 arg-1 (+ 1 (+ 1 0)) (lambda () "Case application") env appTm 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 ((nestC-39 (vector 0 ))) (let ((act-31 (let ((act-31 (IORef-Data-readIORef 'erased arg-3 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 ((olddelayed (let ((sc18 e-21)) (let ((e-23 (vector-ref sc18 9))) e-23)))) (let ((act-32 (let ((act-32 (IORef-Data-writeIORef 'erased arg-3 (let ((sc18 e-21)) (let ((e-0 (vector-ref sc18 1))) (let ((e-1 (vector-ref sc18 2))) (let ((e-28 (vector-ref sc18 3))) (let ((e-27 (vector-ref sc18 4))) (let ((e-4 (vector-ref sc18 5))) (let ((e-26 (vector-ref sc18 6))) (let ((e-25 (vector-ref sc18 7))) (let ((e-24 (vector-ref sc18 8))) (let ((e-22 (vector-ref sc18 10))) (vector 0 e-0 e-1 e-28 e-27 e-4 e-26 e-25 e-24 (vector 0 ) e-22))))))))))) 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 ((act-33 ((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 ((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 (let ((act-34 (IORef-Data-readIORef 'erased arg-3 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 (let ((act-35 (IORef-Data-writeIORef 'erased arg-3 (let ((sc21 e-24)) (let ((e-0 (vector-ref sc21 1))) (let ((e-1 (vector-ref sc21 2))) (let ((e-31 (vector-ref sc21 3))) (let ((e-30 (vector-ref sc21 4))) (let ((e-4 (vector-ref sc21 5))) (let ((e-29 (vector-ref sc21 6))) (let ((e-28 (vector-ref sc21 7))) (let ((e-27 (vector-ref sc21 8))) (let ((e-25 (vector-ref sc21 10))) (vector 0 e-0 e-1 e-31 e-30 e-4 e-29 e-28 e-27 olddelayed e-25))))))))))) 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 (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--15627-16663-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--12967-15861 (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--12967-15798-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--12972-15833 (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--12971-15806 (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--12904-15763 (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--12899-15737 (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--12904-15763 arg-0 e-2 e-3 (Prelude-unpack e-3)))))))))) -(define Utils-TTImp-case--12562-15490 (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--12547-15473 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (Utils-TTImp-case--12562-15490 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--12295-15342 (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--12295-15296 (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--12295-15263 (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--12274-15240 (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--12967-15797-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--12967-15798-next (lambda (arg-0 arg-1 arg-2 arg-3) (Utils-TTImp-case--12972-15833 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--12967-15797-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--12967-15798-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-case--13061-15906 (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--13061-15843-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--13066-15878 (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--13065-15851 (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--12998-15808 (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--12993-15782 (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--12998-15808 arg-0 e-2 e-3 (Prelude-unpack e-3)))))))))) +(define Utils-TTImp-case--12656-15535 (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--12641-15518 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (Utils-TTImp-case--12656-15535 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--12389-15387 (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--12389-15341 (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--12389-15308 (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--12368-15285 (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--13061-15842-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--13061-15843-next (lambda (arg-0 arg-1 arg-2 arg-3) (Utils-TTImp-case--13066-15878 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--13061-15842-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--13061-15843-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--12547-15473 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-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--12641-15518 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--12899-15737 arg-0 (Strings-Data-span (lambda (eta-0) (Prelude-isDigit eta-0)) (Prelude-reverse arg-0))))) +(define Utils-TTImp-nameNum (lambda (arg-0) (Utils-TTImp-case--12993-15782 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--12274-15240 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-getUnique (lambda (arg-0 arg-1) (Utils-TTImp-case--12368-15285 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-2851) (lambda (arg-2852) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-2851 arg-2852))) (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--12295-15263 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-2851) (lambda (arg-2852) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-2851 arg-2852))) (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-2851) (lambda (arg-2852) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-2851 arg-2852))) (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-2851) (lambda (arg-2852) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-2851 arg-2852))) (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--15773-14962 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-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--15773-14922 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-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--15887-14841 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 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--15773-14751 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-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--15639-14647 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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--15639-14559 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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--15258-14333 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 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--15173-14211 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 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--14930-14149 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-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--14930-14057 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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--14930-13968 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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--14671-13805 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 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--14622-13718 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--14558-13642 (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--14372-13560 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 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--14326-13473 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (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--14227-13400 (lambda (arg-0 arg-1 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--14132-13341 (lambda (arg-0 arg-1 arg-2) (Binders-Elab-TTImp-n--14132-13270-drop 'erased arg-1 arg-2 'erased arg-1))) -(define Binders-Elab-TTImp-case--14138-13293 (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--14132-13270-drop 'erased arg-1 arg-2 'erased arg-6)) (else (vector 1 (vector 0 arg-4 arg-5) (Binders-Elab-TTImp-n--14132-13270-drop 'erased arg-1 arg-2 'erased arg-6))))))) -(define Binders-Elab-TTImp-n--14326-13448-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--14132-13270-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--14138-13293 'erased arg-1 arg-2 'erased e-6 e-7 e-3 (Name-Core-C-61C-61_Eq__Name e-6 arg-2)))))))))))) +(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--12389-15308 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-2851) (lambda (arg-2852) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-2851 arg-2852))) (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-2851) (lambda (arg-2852) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-2851 arg-2852))) (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-2851) (lambda (arg-2852) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-2851 arg-2852))) (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--15945-15755 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-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--15945-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 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--16059-15634 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 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--15945-15544 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-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--15811-15440 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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--15811-15352 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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--15430-15126 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 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--15345-15004 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 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--15102-14942 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-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--15102-14850 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16) (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--15102-14761 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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--14843-14598 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 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--14794-14511 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--14730-14435 (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--14544-14353 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 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--14498-14266 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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--14399-14193 (lambda (arg-0 arg-1 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--14304-14134 (lambda (arg-0 arg-1 arg-2) (Binders-Elab-TTImp-n--14304-14063-drop 'erased arg-1 arg-2 'erased arg-1))) +(define Binders-Elab-TTImp-case--14310-14086 (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--14304-14063-drop 'erased arg-1 arg-2 'erased arg-6)) (else (vector 1 (vector 0 arg-4 arg-5) (Binders-Elab-TTImp-n--14304-14063-drop 'erased arg-1 arg-2 'erased arg-6))))))) +(define Binders-Elab-TTImp-n--14498-14241-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--14304-14063-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--14310-14086 '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--14132-13270-drop 'erased arg-2 arg-1 'erased arg-2))) +(define Binders-Elab-TTImp-dropName (lambda (arg-0 arg-1 arg-2) (Binders-Elab-TTImp-n--14304-14063-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--14326-13448-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--15639-14559 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--14930-13968 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--14930-14057 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--15181-13990 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 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))) (vector 0 e-1 e-2 e-3 e-4 (vector 1 (vector 0 arg-17 (vector 1 arg-0 (As-Elab-TTImp-n--14594-13286-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--14594-13286-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)))))))))))))))) -(define As-Elab-TTImp-case--15181-13901 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 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--15104-13748 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23) (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--14594-13286-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-19 (vector-ref sc5 2))) (let ((e-18 (vector-ref sc5 3))) (let ((e-4 (vector-ref sc5 4))) (let ((e-17 (vector-ref sc5 5))) (let ((e-16 (vector-ref sc5 6))) (let ((e-15 (vector-ref sc5 7))) (let ((e-14 (vector-ref sc5 8))) (let ((e-13 (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))) (vector 0 e-1 e-19 e-18 e-4 (vector 1 (vector 0 arg-17 (vector 1 arg-0 (As-Elab-TTImp-n--14594-13286-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-17) (vector 1 (vector 0 arg-17 (vector 1 arg-0 (As-Elab-TTImp-n--14594-13286-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-16) e-15 e-14 e-13 e-10 e-11 e-12)))))))))))))) 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--15031-13692 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-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--14594-13286-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-22 (vector-ref sc7 2))) (let ((e-21 (vector-ref sc7 3))) (let ((e-20 (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-13 (vector-ref sc7 11))) (let ((e-12 (vector-ref sc7 12))) (vector 0 e-1 e-22 e-21 e-20 (vector 1 (vector 0 arg-17 (vector 1 arg-0 (As-Elab-TTImp-n--14594-13286-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-19) (vector 1 (vector 0 arg-17 (vector 1 arg-0 (As-Elab-TTImp-n--14594-13286-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-18) e-17 e-16 e-15 e-14 e-13 e-12)))))))))))))) 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--14959-13637 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-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--14594-13284-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--14594-13286-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-23 (vector-ref sc9 2))) (let ((e-22 (vector-ref sc9 3))) (let ((e-21 (vector-ref sc9 4))) (let ((e-20 (vector-ref sc9 5))) (let ((e-19 (vector-ref sc9 6))) (let ((e-18 (vector-ref sc9 7))) (let ((e-17 (vector-ref sc9 8))) (let ((e-16 (vector-ref sc9 9))) (let ((e-15 (vector-ref sc9 10))) (let ((e-14 (vector-ref sc9 11))) (let ((e-13 (vector-ref sc9 12))) (vector 0 e-1 e-23 e-22 e-21 (vector 1 (vector 0 arg-17 (vector 1 arg-0 (As-Elab-TTImp-n--14594-13286-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-20) (vector 1 (vector 0 arg-17 (vector 1 arg-0 (As-Elab-TTImp-n--14594-13286-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-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--14594-13577 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (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--14959-13637 arg-0 arg-1 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-15 (vector-ref sc4 5))) e-15)))) 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--14618-13512 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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--14618-13441 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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--14616-13369 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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--14616-13298 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (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--14594-13283-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--14616-13298 arg-0 arg-1 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--14616-13369 arg-0 arg-1 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--14594-13284-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--14594-13283-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--14594-13285-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--14618-13441 arg-0 arg-1 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--14618-13512 arg-0 arg-1 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--14594-13286-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--14594-13285-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--14959-13637 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-15 (vector-ref sc4 5))) e-15)))) 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--21218-19078 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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--21903-18889 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 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--21218-18726 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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--21218-18196-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-4481) (lambda (arg-4482) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4481 arg-4482))) (lambda (arg-4483) (lambda (arg-4484) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4483 arg-4484)))) 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-4481) (lambda (arg-4482) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4481 arg-4482))) (lambda (arg-4483) (lambda (arg-4484) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4483 arg-4484)))) 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 "\u000a\u0009Function type " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-16) (Strings-Prelude-C-43C-43 "\u000a\u0009Expected app type " (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x)) (lambda (d) (lambda (x) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d x)))) e-14)))))))))))) eta-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--21903-18889 arg-0 arg-1 arg-2 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--21218-18195-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--21694-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 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--21274-18558 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-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--21376-18330 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 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--21311-18280 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-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--21376-18330 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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--21218-18194-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)))))(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--21273-18234 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-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--21311-18280 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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--20844-17974 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 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--15390-17837 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 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--20844-17974 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 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--15390-17671 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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--15390-17496 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 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--20287-17357 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 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--15390-17336-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--15390-17213 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-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--19963-17076 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 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--15390-17055-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--15390-16933 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-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--19623-16796 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 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--15390-16758-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--19291-16543 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 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--15390-16476 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 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--15390-16323 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-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--18797-16152 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 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--15390-16043 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 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--18797-16152 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 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--18797-16152 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 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--18797-16152 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 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--17021-15833 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 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--17429-15479 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 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--17625-15160 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 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--17429-15046 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 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--17625-15160 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 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--17272-14886 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 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--17429-15046 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 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--17429-15479 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 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--17127-14763 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 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--17429-15046 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 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--17429-15479 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 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--17021-14644 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 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--17429-15046 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 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--17429-15479 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 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--15384-14561 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 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--17429-15046 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 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--17429-15479 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 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-4481) (lambda (arg-4482) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4481 arg-4482))) (lambda (arg-4483) (lambda (arg-4484) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4483 arg-4484)))) 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--15384-14454 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 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--16717-14336 (lambda (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--15382-14137-dotTerm arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-1)) eta-0))))))) -(define App-Elab-TTImp-case--16681-14314 (lambda (arg-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--16717-14336 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--15382-14137-dotTerm arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-1)) eta-0))))))) -(define App-Elab-TTImp-case--15382-14281 (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--16717-14336 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--15382-14137-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--16528-14141 (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--16315-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 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--16266-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) (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--15379-13922 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-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--16266-13958 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--15372-13720 (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--15366-13487 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-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--15360-13240 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--14928-12703 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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--14792-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 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--14928-12703 arg-0 arg-1 arg-2 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--14702-12441-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--14792-12544 (lambda (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--14702-12512 (lambda (arg-0 arg-1 arg-2 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--14928-12703 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--14702-12441-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--14402-12200 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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--14208-12156 (lambda (arg-0 arg-1 arg-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--14149-11935-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--14402-12200 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--14208-12079 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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))) (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)))))))))))))))) -(define App-Elab-TTImp-case--14149-11979 (lambda (arg-0 arg-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--14149-11935-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-18 (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-17 (vector-ref sc6 5))) (let ((e-16 (vector-ref sc6 6))) (let ((e-15 (vector-ref sc6 7))) (let ((e-14 (vector-ref sc6 8))) (let ((e-13 (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-18 e-2 e-3 e-4 e-17 e-16 e-15 e-14 e-13 e-10 (vector 1 e-5 e-11) e-12)))))))))))))) 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--14149-11934-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--14149-11935-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--14402-12200 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--14037-11853 (lambda (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--14024-11823 (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--14037-11853 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--14702-12441-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--14702-12441-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--14702-12441-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--14702-12441-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--14702-12441-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--15390-17336-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--20287-17357 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15390-17336-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--15390-17336-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--15390-17055-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--19963-17076 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--15390-17055-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--15390-17055-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--15390-16758-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--19623-16796 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--15390-16758-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--15390-16758-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--21218-18196-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--21274-18558 arg-0 arg-1 arg-2 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--21218-18193-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--14149-11935-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--15390-17635-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--15390-17635-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--21218-18195-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--21273-18234 arg-0 arg-1 arg-2 arg-3 arg-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--21218-18193-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--15366-13477-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--15360-13230-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--21218-18193-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--21218-18193-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--14149-11934-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--15382-14137-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--21218-18194-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) (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 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--14498-14241-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--15811-15352 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--15102-14761 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--15102-14850 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--15353-14784 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 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--14766-14079-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--14766-14079-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--15353-14694 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 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--15276-14541 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 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--14766-14079-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--14766-14079-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--14766-14079-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--15203-14485 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-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--14766-14079-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--14766-14079-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--14766-14079-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--15131-14430 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-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--14766-14077-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--14766-14079-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--14766-14079-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--14766-14079-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--14766-14370 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-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--15131-14430 arg-0 arg-1 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--14790-14305 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (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--14790-14234 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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--14788-14162 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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--14788-14091 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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--14766-14076-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--14788-14091 arg-0 arg-1 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--14788-14162 arg-0 arg-1 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--14766-14077-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--14766-14076-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--14766-14078-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--14790-14234 arg-0 arg-1 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--14790-14305 arg-0 arg-1 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--14766-14079-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--14766-14078-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--15131-14430 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--21317-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--22011-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--21317-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--21317-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-4524) (lambda (arg-4525) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4526 arg-4527)))) 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-4524) (lambda (arg-4525) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4526 arg-4527)))) 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 "\u000a\u0009Function type " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-16) (Strings-Prelude-C-43C-43 "\u000a\u0009Expected app type " (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x)) (lambda (d) (lambda (x) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d x)))) e-14)))))))))))) eta-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--22011-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--21317-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--21802-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--21373-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--21484-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--21419-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--21484-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--21317-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--21372-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--21419-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--20943-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--15489-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--20943-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--15489-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--15489-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--20386-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--15489-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--15489-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--20062-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--15489-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--15489-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--19722-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--15489-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--19390-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--15489-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--15489-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--18896-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--15489-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--18896-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--18896-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--18896-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--17120-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--17528-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--17724-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--17528-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--17724-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--17371-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--17528-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--17528-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--17226-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--17528-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--17528-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--17120-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--17528-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--17528-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--15483-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--17528-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--17528-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-4524) (lambda (arg-4525) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4526 arg-4527)))) 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--15483-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--16816-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--15481-14218-dotTerm arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-1)) eta-0))))))) +(define App-Elab-TTImp-case--16780-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--16816-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--15481-14218-dotTerm arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-1)) eta-0))))))) +(define App-Elab-TTImp-case--15481-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--16816-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--15481-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--16627-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--16414-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--16365-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--15478-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--16365-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--15471-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--15465-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--15459-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--15027-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--14891-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--15027-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--14801-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--14891-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--14801-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--15027-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--14801-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--14501-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--14306-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--14247-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--14501-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--14306-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--14247-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--14247-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--14247-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--14247-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--14501-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--14135-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--14122-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--14135-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--14801-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--14801-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--14801-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--14801-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--14801-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--15489-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--20386-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--15489-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--15489-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--15489-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--20062-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--15489-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--15489-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--15489-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--19722-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--15489-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--15489-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--21317-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--21373-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--21317-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--14247-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--15489-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--15489-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--21317-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--21372-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--21317-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--15465-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--15459-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--21317-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--21317-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--14247-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--15481-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--21317-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-27 (vector-ref sc3 1))) e-27))) 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--15366-13487 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--15366-13477-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--15360-13240 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--15360-13230-metavarImp arg-0 e-2 e-3 arg-19 arg-18 arg-17 arg-16 arg-14 arg-13 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (let ((sc1 arg-7)) (let ((e-0 (vector-ref sc1 1))) e-0))))))))) +(define App-Elab-TTImp-makeDefImplicit (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20) (let ((sc0 arg-16)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (App-Elab-TTImp-case--15465-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--15465-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--15459-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--15459-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--14702-12512 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--14149-11979 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--15382-14281 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-getVarType (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (App-Elab-TTImp-case--14801-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--14247-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--15481-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--14037-11853 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--15384-14561 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--16266-13958 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--15390-17671 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--15390-17635-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--20844-17974 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--18797-16152 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--18797-16152 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--18797-16152 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--15390-17213 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--15390-17055-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--15390-17213 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--15390-17055-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--15390-17213 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--15390-17055-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--15390-16933 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--15390-16758-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--15390-16933 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--15390-16758-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--15390-16933 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--15390-16758-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--15390-17496 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--15390-17336-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--15390-17496 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--15390-17336-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--15390-17496 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--15390-17336-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--15390-17671 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--15390-17635-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--20844-17974 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--15390-17671 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--15390-17635-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--20844-17974 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--15390-17671 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--15390-17635-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--20844-17974 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--15390-17671 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--15390-17635-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--20844-17974 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--15390-17671 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--15390-17635-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--20844-17974 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--21218-18196-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-4481) (lambda (arg-4482) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4481 arg-4482))) (lambda (arg-4483) (lambda (arg-4484) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4483 arg-4484)))) 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-4481) (lambda (arg-4482) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4481 arg-4482))) (lambda (arg-4483) (lambda (arg-4484) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4483 arg-4484)))) 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 "\u000a\u0009Function type " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-19) (Strings-Prelude-C-43C-43 "\u000a\u0009Expected app type " (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x)) (lambda (d) (lambda (x) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d x)))) e-17)))))))))))) eta-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--21903-18889 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--21218-18195-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--17548-16623 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-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--17548-16512 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-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--17548-16421 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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--17004-16342 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-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--17548-16421 arg-0 arg-1 arg-2 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) "\u000aTarget 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--17548-16421 arg-0 arg-1 arg-2 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) "\u000aTarget 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--17004-16112 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 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--17004-15969 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-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--17004-15875 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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--16943-15827 (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--16637-15672 (lambda (arg-0 arg-1 arg-2 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--16637-15571 (lambda (arg-0 arg-1 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--16566-15455 (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--16516-15389 (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--16248-15303 (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--16248-15238 (lambda (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--16248-15153 (lambda (arg-0 arg-1 arg-2 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--16171-15077 (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--15566-14959 (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--15907-14863 (lambda (arg-0 arg-1 arg-2 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--15566-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-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--15756-14735 (lambda (arg-0 arg-1 arg-2 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--15566-14703 (lambda (arg-0 arg-1 arg-2 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--15563-14626 (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--15560-14573 (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--15082-14294 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-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--14132-13360-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--14132-13355-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--14132-13360-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--14132-13355-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--14132-13360-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--15082-14141 (lambda (arg-0 arg-1 arg-2 arg-3 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--14995-14108 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-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--15082-14141 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--14132-13361-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--14132-13357-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))) (let ((act-19 ((Context-Core-lookupCtxtName arg-1 (let ((sc5 arg-11)) (let ((e-0 (vector-ref sc5 1))) e-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 ((Core-Core-filterM 'erased (lambda (eta-1) (Ambiguity-Elab-TTImp-n--14132-13354-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-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 ((sc7 e-10)) (case (vector-ref sc7 0) ((0) (let ((act-21 (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 ((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 arg-5) eta-0)))))) ((1) (let ((e-2 (vector-ref sc7 1))) (let ((e-3 (vector-ref sc7 2))) (let ((sc8 e-3)) (case (vector-ref sc8 0) ((0) (let ((act-21 (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 ((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 (Ambiguity-Elab-TTImp-n--14132-13360-mkAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 primApp e-5 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--14132-13355-uniqType arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 e-6 e-7 e-8 arg-1 arg-4) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Ambiguity-Elab-TTImp-n--14132-13360-mkAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 primApp e-5 eta-1)) e-10))) 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--14132-13355-uniqType arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 e-6 e-7 e-8 arg-1 arg-4) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Ambiguity-Elab-TTImp-n--14132-13360-mkAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 primApp e-5 eta-1)) e-10))) eta-0)))))))))))))))))))))))))))))))))))))))))) -(define Ambiguity-Elab-TTImp-case--14132-14030 (lambda (arg-0 arg-1 arg-2 arg-3 arg-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--14995-14108 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--14240-13894 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--14240-13805 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--14308-13458 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-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--14257-13410 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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--14308-13458 arg-0 arg-1 arg-2 arg-3 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--14236-13374 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-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--14308-13458 arg-0 arg-1 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--14132-13296 (lambda (arg-0 arg-1 arg-2 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--14132-13358-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--14240-13805 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-14 (vector-ref sc3 2))) e-14)))) (lambda () arg-11))))(else (Ambiguity-Elab-TTImp-case--14240-13894 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-14 (vector-ref sc2 2))) e-14)))))))))))(else (Ambiguity-Elab-TTImp-case--14240-13894 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--14132-13354-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--14236-13374 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--14132-13355-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--16500-15377-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-26 (vector-ref sc1 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))) (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--14132-13361-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--14132-13359-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--14132-13358-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--14132-13356-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--14132-13360-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--14132-13359-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--14132-13357-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--14132-13357-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--14132-13356-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--14132-13356-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--14132-13356-buildAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 9 e-6 arg-11 e-14 e-11) e-3)))))))))))))))))) +(define App-Elab-TTImp-checkVisibleNS (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-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--14135-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--15483-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--16365-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--15489-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--15489-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--20943-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--18896-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--18896-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--18896-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--15489-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--15489-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--15489-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--15489-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--15489-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--15489-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--15489-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--15489-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--15489-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--15489-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--15489-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--15489-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--15489-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--15489-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--15489-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--15489-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--15489-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--15489-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--15489-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--15489-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--20943-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--15489-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--15489-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--20943-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--15489-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--15489-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--20943-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--15489-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--15489-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--20943-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--15489-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--15489-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--20943-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--21317-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-4524) (lambda (arg-4525) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4526 arg-4527)))) 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-4524) (lambda (arg-4525) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4526 arg-4527)))) 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 "\u000a\u0009Function type " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-19) (Strings-Prelude-C-43C-43 "\u000a\u0009Expected app type " (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x)) (lambda (d) (lambda (x) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d x)))) e-17)))))))))))) eta-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--22011-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--21317-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--17854-17532 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-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--17854-17421 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-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--17854-17330 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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--17310-17251 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-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--17854-17330 arg-0 arg-1 arg-2 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) "\u000aTarget 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--17854-17330 arg-0 arg-1 arg-2 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) "\u000aTarget 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--17310-17021 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 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--17310-16878 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-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--17310-16784 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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--17249-16736 (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--16943-16581 (lambda (arg-0 arg-1 arg-2 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--16943-16480 (lambda (arg-0 arg-1 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--16872-16364 (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--16822-16298 (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--16554-16212 (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--16554-16147 (lambda (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--16554-16062 (lambda (arg-0 arg-1 arg-2 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--16477-15986 (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--15872-15868 (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--16213-15772 (lambda (arg-0 arg-1 arg-2 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--15872-15740 (lambda (arg-0 arg-1 arg-2 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--16062-15644 (lambda (arg-0 arg-1 arg-2 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--15872-15612 (lambda (arg-0 arg-1 arg-2 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--15869-15535 (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--15866-15482 (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--15470-15203 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-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--14304-14154-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--14304-14149-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--14304-14154-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--14304-14149-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--14304-14154-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--15271-15095 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--14304-14154-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--14304-14148-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--14304-14154-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--14304-14149-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--14304-14154-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--14304-14149-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--14304-14154-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--15271-14950 (lambda (arg-0 arg-1 arg-2 arg-3 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--15184-14917 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-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--15271-14950 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--14304-14155-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--14304-14151-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--15271-15095 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--14304-14147-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--14304-14839 (lambda (arg-0 arg-1 arg-2 arg-3 arg-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--15184-14917 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--14413-14703 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--14413-14614 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--14497-14267 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-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--14446-14219 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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--14497-14267 arg-0 arg-1 arg-2 arg-3 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--14409-14183 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-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--14497-14267 arg-0 arg-1 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--14304-14089 (lambda (arg-0 arg-1 arg-2 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--14304-14152-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--14413-14614 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--14413-14703 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--14413-14703 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--14304-14148-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--14409-14183 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--14304-14149-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--16806-16286-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-26 (vector-ref sc1 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))) (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--14304-14155-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--14304-14153-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--14304-14152-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--14304-14150-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--14304-14154-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--14304-14153-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--14304-14147-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--14304-14151-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--14304-14151-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--14304-14150-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--14304-14150-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--14304-14150-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--16637-15571 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--16637-15672 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--16500-15377-notOverloadableFn e-2 e-3 arg-0 (TTImp-TTImp-getFn e-3)))))))))) +(define Ambiguity-Elab-TTImp-pruneByType (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((act-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--16943-16480 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--16943-16581 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--16806-16286-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--15566-14703 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--15566-14831 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--15566-14959 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--15566-14703 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--15566-14831 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--15566-14959 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-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--15872-15612 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--15872-15740 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--15872-15868 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--15872-15612 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--15872-15740 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--15872-15868 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--14132-13296 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--14132-14030 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--14132-14030 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-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--14304-14089 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--14304-14839 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--14304-14839 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--17004-15875 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) "\u000aWith 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--17548-16421 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) "\u000aTarget 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--17548-16421 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) "\u000aTarget 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-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--17310-16784 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) "\u000aWith 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--17854-17330 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) "\u000aTarget 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--17854-17330 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) "\u000aTarget 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--19437-17787 (lambda (arg-0 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--19145-17648 (lambda (arg-0 arg-1 arg-2 arg-3 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--19145-17556 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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--18744-17340 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 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--18744-17219 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 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--12840-17150 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-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--18744-17219 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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--18308-16813 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-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--12832-16477-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--18271-16758 (lambda (arg-0 arg-1 arg-2 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--18308-16813 '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--18236-16730 (lambda (arg-0 arg-1 arg-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--12832-16478-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--18271-16758 '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--12832-16702 (lambda (arg-0 arg-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--12832-16478-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--18271-16758 '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--17989-16496 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-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--12832-16428 (lambda (arg-0 arg-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--16342-16110 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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--12827-15002-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--12827-14999-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--16341-15920 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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--16341-15807 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--16340-15667 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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--12827-15001-isLocArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-13 arg-12)))))) -(define LinearCheck-Core-case--16689-15408 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 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--16592-15289 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 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--16689-15408 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--16531-15212 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-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--12827-14999-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--16592-15289 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--16338-15047-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--16338-15169 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-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--12827-14999-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--16592-15289 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--16338-15047-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--16338-15047-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--16392-15065 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-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--12815-14793 (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--15964-14726 (lambda (arg-0 arg-1 arg-2 arg-3 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--12815-14685 (lambda (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--12815-14626 (lambda (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--12815-14566 (lambda (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--15691-14499 (lambda (arg-0 arg-1 arg-2 arg-3 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--12815-14458 (lambda (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--12815-14399 (lambda (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--15396-14245 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (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--12811-14209 (lambda (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--15258-14139 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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--12811-14096 (lambda (arg-0 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--12811-14039 (lambda (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--15057-13977 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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--12811-13934 (lambda (arg-0 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--14702-13692 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 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--14634-13624 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-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--14702-13692 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--14580-13571 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (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--14702-13692 arg-0 arg-1 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--12811-13528 (lambda (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--14702-13692 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--14413-13421 (lambda (arg-0 arg-1 arg-2 arg-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--12811-12671-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--13977-13388 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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--12811-12671-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--14036-13267 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--12811-12670-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--14036-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 arg-22) (let ((sc0 arg-22)) (cond ((equal? sc0 0) (Prelude-fromInteger_Num__Nat 1)) (else arg-20))))) -(define LinearCheck-Core-case--13977-13064 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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--14036-13267 arg-0 arg-1 arg-2 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--14036-13138 arg-0 arg-1 arg-2 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--12811-12669-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--12811-12672-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--12811-12669-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--12811-13017 (lambda (arg-0 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--13977-13388 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--12811-12669-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--14036-13267 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--14036-13138 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--12811-12669-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--12811-12672-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--12811-12669-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--13591-12916 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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--12811-12671-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--12811-12671-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--13590-12805 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (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--12811-12670-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--12811-12670-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--13595-12734 (lambda (arg-0 arg-1 arg-2 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--13589-12676 (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--13595-12734 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--13117-12550 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-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-6 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-15 (Context-Core-toFullNames 'erased arg-9 (vector 0 (lambda (arg-4481) (lambda (arg-4482) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4481 arg-4482))) (lambda (arg-4483) (lambda (arg-4484) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4483 arg-4484)))) 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))) (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--13278-12465 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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--12811-12203-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--13117-12403 (lambda (arg-0 arg-1 arg-2 arg-3 arg-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--13278-12465 arg-0 arg-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--13117-12302 (lambda (arg-0 arg-1 arg-2 arg-3 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--12811-12265 (lambda (arg-0 arg-1 arg-2 arg-3 arg-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--13117-12302 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--13117-12550 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 "\u000a" (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--13278-12465 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--12859-12085 (lambda (arg-0 arg-1 arg-2 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--11623-11825 (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--12480-11630 (lambda (arg-0 arg-1 arg-2 arg-3 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--11623-11603 (lambda (arg-0 arg-1 arg-2 arg-3 arg-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--12480-11630 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--11701-11095 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-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--11701-10959 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-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--11612-10909 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-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--11701-11095 '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--11552-10807 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (+ 1 arg-4))) -(define LinearCheck-Core-case--11502-10757 (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--12811-11969-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--12859-12085 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--12832-16477-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--12832-16477-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--12811-12203-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--12811-12203-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--12811-12203-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--12811-12203-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--12811-12203-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--12836-17014-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) (let ((sc0 arg-15)) (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-16)) (case (vector-ref sc2 0) ((1) (let ((e-15 (vector-ref sc2 1))) (let ((e-16 (vector-ref sc2 2))) (LinearCheck-Core-n--12836-17014-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 (vector 1 e-3 arg-13) arg-14 e-5 e-16 (vector 1 e-15 arg-17)))))(else (let ((sc2 arg-16)) (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-13 arg-14 arg-17 arg-15)) 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-7) (Strings-Prelude-C-43C-43 " " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) arg-4))))) eta-0))))))))) ((1) (let ((e-12 (vector-ref sc1 2))) (LinearCheck-Core-n--12836-17014-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 (SubstEnv-TT-Core-subst (List-Prelude-C-43C-43 'erased arg-13 arg-14) e-3 e-12 e-5) arg-16 arg-17)))(else (let ((sc1 arg-16)) (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-13 arg-14 arg-17 arg-15)) 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-7) (Strings-Prelude-C-43C-43 " " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) arg-4))))) eta-0))))))))))))(else (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 (SubstEnv-TT-Core-substs arg-13 arg-14 arg-17 arg-15)) 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-7) (Strings-Prelude-C-43C-43 " " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) arg-4))))) eta-0)))))))))) -(define LinearCheck-Core-n--11372-10635-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--12832-16478-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--12811-11968-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--12811-11967-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--12811-12669-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--13595-12734 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--12827-15001-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--16340-15667 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--12827-15001-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--12827-15001-isLocArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 e-3))))))))))) -(define LinearCheck-Core-n--12811-12670-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--13590-12805 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--12827-15003-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--12827-15002-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--12827-14999-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--12811-11967-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--12811-11967-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--12827-14999-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--12827-14999-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--16338-15169 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--16338-15169 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--12811-12671-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--13591-12916 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--16338-15047-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--12827-14999-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--16392-15065 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--12827-15005-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--12827-15004-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--12827-15005-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--12827-15004-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--12827-15006-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--12827-15006-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--12827-15005-combineUsages arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-2 e-5) eta-0))))))))))))))))) -(define LinearCheck-Core-n--19145-17507-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--12827-15000-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--12811-12672-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--12827-15002-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--16341-15920 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--16341-15807 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--12827-15000-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--12827-15001-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--12827-15002-checkEnvUsage arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (List-Prelude-C-43C-43 'erased arg-6 (vector 1 e-2 (vector 0 ))) e-3 arg-8 e-9 arg-10 arg-11 arg-12) eta-0)))))))))))))))))))))))) +(define LinearCheck-Core-case--19526-17832 (lambda (arg-0 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--19234-17693 (lambda (arg-0 arg-1 arg-2 arg-3 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--19234-17601 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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--18833-17385 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 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--18833-17264 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 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--12929-17195 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-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--18833-17264 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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--18397-16858 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-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--12921-16522-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--18360-16803 (lambda (arg-0 arg-1 arg-2 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--18397-16858 '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--18325-16775 (lambda (arg-0 arg-1 arg-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--12921-16523-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--18360-16803 '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--12921-16747 (lambda (arg-0 arg-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--12921-16523-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--18360-16803 '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--18078-16541 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-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--12921-16473 (lambda (arg-0 arg-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--16431-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))) (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--12916-15047-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--12916-15044-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--16430-15965 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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--16430-15852 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--16429-15712 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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--12916-15046-isLocArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-13 arg-12)))))) +(define LinearCheck-Core-case--16778-15453 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 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--16681-15334 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 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--16778-15453 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--16620-15257 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-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--12916-15044-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--16681-15334 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--16427-15092-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--16427-15214 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-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--12916-15044-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--16681-15334 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--16427-15092-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--16427-15092-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--16481-15110 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-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--12904-14838 (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--16053-14771 (lambda (arg-0 arg-1 arg-2 arg-3 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--12904-14730 (lambda (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--12904-14671 (lambda (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--12904-14611 (lambda (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--15780-14544 (lambda (arg-0 arg-1 arg-2 arg-3 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--12904-14503 (lambda (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--12904-14444 (lambda (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--15485-14290 (lambda (arg-0 arg-1 arg-2 arg-3 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--12900-14254 (lambda (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--15347-14184 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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--12900-14141 (lambda (arg-0 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--12900-14084 (lambda (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--15146-14022 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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--12900-13979 (lambda (arg-0 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--14791-13737 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 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--14723-13669 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 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--14791-13737 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--14669-13616 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-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--14791-13737 arg-0 arg-1 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--12900-13573 (lambda (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--14791-13737 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--14502-13466 (lambda (arg-0 arg-1 arg-2 arg-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--12900-12716-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--14066-13433 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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--12900-12716-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--14125-13312 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--12900-12715-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--14125-13183 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-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--14066-13109 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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--14125-13312 arg-0 arg-1 arg-2 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--14125-13183 arg-0 arg-1 arg-2 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--12900-12714-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--12900-12717-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--12900-12714-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--12900-13062 (lambda (arg-0 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--14066-13433 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--12900-12714-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--14125-13312 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--14125-13183 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--12900-12714-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--12900-12717-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--12900-12714-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--13680-12961 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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--12900-12716-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--12900-12716-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--13679-12850 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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--12900-12715-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--12900-12715-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--13684-12779 (lambda (arg-0 arg-1 arg-2 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--13678-12721 (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--13684-12779 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--13206-12595 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 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-6 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-15 (Context-Core-toFullNames 'erased arg-9 (vector 0 (lambda (arg-4524) (lambda (arg-4525) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4526 arg-4527)))) 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))) (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--13367-12510 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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--12900-12248-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--13206-12448 (lambda (arg-0 arg-1 arg-2 arg-3 arg-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--13367-12510 arg-0 arg-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--13206-12347 (lambda (arg-0 arg-1 arg-2 arg-3 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--12900-12310 (lambda (arg-0 arg-1 arg-2 arg-3 arg-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--13206-12347 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--13206-12595 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 "\u000a" (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--13367-12510 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--12948-12130 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (cond ((equal? sc0 0) (vector 1 arg-0 (vector 0 ))) (else (vector 0 )))))) +(define LinearCheck-Core-case--11712-11870 (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--12569-11675 (lambda (arg-0 arg-1 arg-2 arg-3 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--11712-11648 (lambda (arg-0 arg-1 arg-2 arg-3 arg-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--12569-11675 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--11790-11140 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19) (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--11790-11004 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-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--11701-10954 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-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--11790-11140 '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--11641-10852 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (+ 1 arg-4))) +(define LinearCheck-Core-case--11591-10802 (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--12900-12014-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--12948-12130 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--12921-16522-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--12921-16522-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--12900-12248-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--12900-12248-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--12900-12248-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--12900-12248-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--12900-12248-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--12925-17059-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) (let ((sc0 arg-15)) (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-16)) (case (vector-ref sc2 0) ((1) (let ((e-15 (vector-ref sc2 1))) (let ((e-16 (vector-ref sc2 2))) (LinearCheck-Core-n--12925-17059-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 (vector 1 e-3 arg-13) arg-14 e-5 e-16 (vector 1 e-15 arg-17)))))(else (let ((sc2 arg-16)) (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-13 arg-14 arg-17 arg-15)) 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-7) (Strings-Prelude-C-43C-43 " " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) arg-4))))) eta-0))))))))) ((1) (let ((e-12 (vector-ref sc1 2))) (LinearCheck-Core-n--12925-17059-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 (SubstEnv-TT-Core-subst (List-Prelude-C-43C-43 'erased arg-13 arg-14) e-3 e-12 e-5) arg-16 arg-17)))(else (let ((sc1 arg-16)) (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-13 arg-14 arg-17 arg-15)) 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-7) (Strings-Prelude-C-43C-43 " " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) arg-4))))) eta-0))))))))))))(else (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 (SubstEnv-TT-Core-substs arg-13 arg-14 arg-17 arg-15)) 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-7) (Strings-Prelude-C-43C-43 " " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) arg-4))))) eta-0)))))))))) +(define LinearCheck-Core-n--11461-10680-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--12921-16523-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--12900-12013-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--12900-12012-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--12900-12714-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--13684-12779 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--12916-15046-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--16429-15712 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--12916-15046-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--12916-15046-isLocArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 e-3))))))))))) +(define LinearCheck-Core-n--12900-12715-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--13679-12850 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--12916-15048-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--12916-15047-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--12916-15044-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--12900-12012-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--12900-12012-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--12916-15044-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--12916-15044-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--16427-15214 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--16427-15214 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--12900-12716-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--13680-12961 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--16427-15092-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--12916-15044-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--16481-15110 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--12916-15050-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--12916-15049-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--12916-15050-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--12916-15049-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--12916-15051-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--12916-15051-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--12916-15050-combineUsages arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-2 e-5) eta-0))))))))))))))))) +(define LinearCheck-Core-n--19234-17552-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--12916-15045-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--12900-12717-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--12916-15047-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--16430-15965 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--16430-15852 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--12916-15045-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--12916-15046-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--12916-15047-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--11372-10635-showAll 'erased arg-1 'erased arg-1) "]")))) +(define LinearCheck-Core-show_Show__C-40UsageC-32C-36varsC-41 (lambda (arg-0 arg-1) (Strings-Prelude-C-43C-43 "[" (Strings-Prelude-C-43C-43 (LinearCheck-Core-n--11461-10680-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--12480-11630 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--11623-11825 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--11612-10909 '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--11552-10807 e-2 e-3 'erased 'erased (LinearCheck-Core-localPrf 'erased 'erased e-3))))))))) +(define LinearCheck-Core-updateHoleUsage (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((3) (let ((e-29 (vector-ref sc0 2))) (let ((e-30 (vector-ref sc0 3))) (let ((e-31 (vector-ref sc0 4))) (let ((sc1 e-30)) (case (vector-ref sc1 0) ((1) (let ((e-34 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-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--12569-11675 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--11712-11870 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--11701-10954 '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--11641-10852 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--18744-17219 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\u000a " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-7) (Strings-Prelude-C-43C-43 " (" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-11) " not a function type)"))))) eta-0)))))))))))))))))))))))))(else (lambda (eta-0) (let ((act-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\u000a " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-7) (Strings-Prelude-C-43C-43 " (" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-7) " not a function type)"))))) eta-0))))))))))))))))))))))) (else (lambda (eta-0) (let ((act-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--12832-16702 '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-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--18833-17264 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\u000a " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-7) (Strings-Prelude-C-43C-43 " (" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-11) " not a function type)"))))) eta-0)))))))))))))))))))))))))(else (lambda (eta-0) (let ((act-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\u000a " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-7) (Strings-Prelude-C-43C-43 " (" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-7) " not a function type)"))))) eta-0))))))))))))))))))))))) (else (lambda (eta-0) (let ((act-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--12921-16747 '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--12811-11968-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--12811-11969-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--13117-12302 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--13117-12550 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 "\u000a" (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--13278-12465 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--12811-12669-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--13977-13388 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--12811-12669-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--14036-13267 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--14036-13138 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--12811-12669-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--12811-12672-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--12811-12669-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--14702-13692 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--12827-15003-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--12827-15006-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))) (lambda (eta-0) (let ((act-15 ((LinearCheck-Core-n--12836-17014-substMeta arg-0 e-0 e-3 e-4 e-7 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-7) 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-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--12900-12013-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--12900-12014-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--13206-12347 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--13206-12595 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 "\u000a" (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--13367-12510 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--12900-12714-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--14066-13433 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--12900-12714-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--14125-13312 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--14125-13183 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--12900-12714-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--12900-12717-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--12900-12714-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--14791-13737 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--12916-15048-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--12916-15051-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))) (lambda (eta-0) (let ((act-15 ((LinearCheck-Core-n--12925-17059-substMeta arg-0 e-0 e-3 e-4 e-7 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-7) 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--11502-10757 '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--19145-17648 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--19145-17556 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--19145-17507-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-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--11591-10802 '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--19234-17693 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--19234-17601 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--19234-17552-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--12755-15710 (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--12734-15662 (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--12718-15644 (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--12489-15528 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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--12489-15462 (lambda (arg-0 arg-1 arg-2 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--12450-15432 (lambda (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--12489-15528 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--12270-15329 (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--12270-15241-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--12283-15274 (lambda (arg-0 arg-1 arg-2 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--12270-15241-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--12270-15241-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--12270-15241-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--12283-15274 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--12283-15274 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-case--14692-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--14607-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--14586-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--14570-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--14341-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--14341-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--14302-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--14341-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--14122-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--14122-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--14135-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--14122-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--14122-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--14122-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--14135-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--14135-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--14692-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--12489-15528 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-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--14341-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--12270-15241-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--13571-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--13524-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--13279-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--13279-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--13215-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--13064-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--13064-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--12519-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-2894) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-2894))))) (lambda (a) (lambda (arg-2961) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-2961))) (lambda (b) (lambda (a) (lambda (arg-2962) (lambda (arg-2964) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-2962 arg-2964)))))) (lambda (b) (lambda (a) (lambda (arg-3123) (lambda (arg-3124) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3123 arg-3124))))) (lambda (a) (lambda (arg-3126) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3126)))) (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-2894) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-2894))))) (lambda (a) (lambda (arg-2961) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-2961))) (lambda (b) (lambda (a) (lambda (arg-2962) (lambda (arg-2964) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-2962 arg-2964)))))) (lambda (b) (lambda (a) (lambda (arg-3123) (lambda (arg-3124) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3123 arg-3124))))) (lambda (a) (lambda (arg-3126) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3126)))) 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-2894) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-2894))))) (lambda (a) (lambda (arg-2961) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-2961))) (lambda (b) (lambda (a) (lambda (arg-2962) (lambda (arg-2964) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-2962 arg-2964)))))) (lambda (b) (lambda (a) (lambda (arg-3123) (lambda (arg-3124) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3123 arg-3124))))) (lambda (a) (lambda (arg-3126) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3126)))) (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-2894) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-2894))))) (lambda (a) (lambda (arg-2961) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-2961))) (lambda (b) (lambda (a) (lambda (arg-2962) (lambda (arg-2964) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-2962 arg-2964)))))) (lambda (b) (lambda (a) (lambda (arg-3123) (lambda (arg-3124) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3123 arg-3124))))) (lambda (a) (lambda (arg-3126) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3126)))) (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-2894) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-2894))))) (lambda (a) (lambda (arg-2961) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-2961))) (lambda (b) (lambda (a) (lambda (arg-2962) (lambda (arg-2964) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-2962 arg-2964)))))) (lambda (b) (lambda (a) (lambda (arg-3123) (lambda (arg-3124) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3123 arg-3124))))) (lambda (a) (lambda (arg-3126) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3126)))) (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-2894) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-2894))))) (lambda (a) (lambda (arg-2961) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-2961))) (lambda (b) (lambda (a) (lambda (arg-2962) (lambda (arg-2964) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-2962 arg-2964)))))) (lambda (b) (lambda (a) (lambda (arg-3123) (lambda (arg-3124) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3123 arg-3124))))) (lambda (a) (lambda (arg-3126) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3126)))) (vector 16 arg-1 arg-0) eta-0))))))) -(define BindImplicits-TTImp-case--12519-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-2894) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-2894))))) (lambda (a) (lambda (arg-2961) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-2961))) (lambda (b) (lambda (a) (lambda (arg-2962) (lambda (arg-2964) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-2962 arg-2964)))))) (lambda (b) (lambda (a) (lambda (arg-3123) (lambda (arg-3124) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3123 arg-3124))))) (lambda (a) (lambda (arg-3126) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3126)))) (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-2894) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-2894))))) (lambda (a) (lambda (arg-2961) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-2961))) (lambda (b) (lambda (a) (lambda (arg-2962) (lambda (arg-2964) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-2962 arg-2964)))))) (lambda (b) (lambda (a) (lambda (arg-3123) (lambda (arg-3124) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3123 arg-3124))))) (lambda (a) (lambda (arg-3126) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3126)))) (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-2894) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-2894))))) (lambda (a) (lambda (arg-2961) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-2961))) (lambda (b) (lambda (a) (lambda (arg-2962) (lambda (arg-2964) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-2962 arg-2964)))))) (lambda (b) (lambda (a) (lambda (arg-3123) (lambda (arg-3124) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3123 arg-3124))))) (lambda (a) (lambda (arg-3126) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3126)))) (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-2894) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-2894))))) (lambda (a) (lambda (arg-2961) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-2961))) (lambda (b) (lambda (a) (lambda (arg-2962) (lambda (arg-2964) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-2962 arg-2964)))))) (lambda (b) (lambda (a) (lambda (arg-3123) (lambda (arg-3124) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3123 arg-3124))))) (lambda (a) (lambda (arg-3126) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3126)))) 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-2894) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-2894))))) (lambda (a) (lambda (arg-2961) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-2961))) (lambda (b) (lambda (a) (lambda (arg-2962) (lambda (arg-2964) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-2962 arg-2964)))))) (lambda (b) (lambda (a) (lambda (arg-3123) (lambda (arg-3124) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3123 arg-3124))))) (lambda (a) (lambda (arg-3126) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3126)))) (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-2894) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-2894))))) (lambda (a) (lambda (arg-2961) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-2961))) (lambda (b) (lambda (a) (lambda (arg-2962) (lambda (arg-2964) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-2962 arg-2964)))))) (lambda (b) (lambda (a) (lambda (arg-3123) (lambda (arg-3124) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3123 arg-3124))))) (lambda (a) (lambda (arg-3126) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3126)))) (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-2894) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-2894))))) (lambda (a) (lambda (arg-2961) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-2961))) (lambda (b) (lambda (a) (lambda (arg-2962) (lambda (arg-2964) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-2962 arg-2964)))))) (lambda (b) (lambda (a) (lambda (arg-3123) (lambda (arg-3124) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3123 arg-3124))))) (lambda (a) (lambda (arg-3126) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3126)))) (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-2894) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-2894))))) (lambda (a) (lambda (arg-2961) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-2961))) (lambda (b) (lambda (a) (lambda (arg-2962) (lambda (arg-2964) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-2962 arg-2964)))))) (lambda (b) (lambda (a) (lambda (arg-3123) (lambda (arg-3124) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3123 arg-3124))))) (lambda (a) (lambda (arg-3126) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3126)))) (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-2894) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-2894))))) (lambda (a) (lambda (arg-2961) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-2961))) (lambda (b) (lambda (a) (lambda (arg-2962) (lambda (arg-2964) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-2962 arg-2964)))))) (lambda (b) (lambda (a) (lambda (arg-3123) (lambda (arg-3124) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3123 arg-3124))))) (lambda (a) (lambda (arg-3126) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3126)))) (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-2894) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-2894))))) (lambda (a) (lambda (arg-2961) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-2961))) (lambda (b) (lambda (a) (lambda (arg-2962) (lambda (arg-2964) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-2962 arg-2964)))))) (lambda (b) (lambda (a) (lambda (arg-3123) (lambda (arg-3124) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3123 arg-3124))))) (lambda (a) (lambda (arg-3126) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3126)))) (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--13462-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--13462-1617-tag arg-0 arg-1 'erased (Prelude-C-43_Num__Int arg-3 1) e-3))))))))) -(define BindImplicits-TTImp-n--12519-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-2894) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-2894))))) (lambda (a) (lambda (arg-2961) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-2961))) (lambda (b) (lambda (a) (lambda (arg-2962) (lambda (arg-2964) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-2962 arg-2964)))))) (lambda (b) (lambda (a) (lambda (arg-3123) (lambda (arg-3124) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3123 arg-3124))))) (lambda (a) (lambda (arg-3126) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3126)))) (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-2894) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-2894))))) (lambda (a) (lambda (arg-2961) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-2961))) (lambda (b) (lambda (a) (lambda (arg-2962) (lambda (arg-2964) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-2962 arg-2964)))))) (lambda (b) (lambda (a) (lambda (arg-3123) (lambda (arg-3124) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3123 arg-3124))))) (lambda (a) (lambda (arg-3126) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3126)))) (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-2894) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-2894))))) (lambda (a) (lambda (arg-2961) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-2961))) (lambda (b) (lambda (a) (lambda (arg-2962) (lambda (arg-2964) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-2962 arg-2964)))))) (lambda (b) (lambda (a) (lambda (arg-3123) (lambda (arg-3124) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3123 arg-3124))))) (lambda (a) (lambda (arg-3126) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3126)))) arg-5 eta-0))))))) -(define BindImplicits-TTImp-n--13064-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--12519-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-2894) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-2894))))) (lambda (a) (lambda (arg-2961) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-2961))) (lambda (b) (lambda (a) (lambda (arg-2962) (lambda (arg-2964) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-2962 arg-2964)))))) (lambda (b) (lambda (a) (lambda (arg-3123) (lambda (arg-3124) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3123 arg-3124))))) (lambda (a) (lambda (arg-3126) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3126)))) (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-2894) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-2894))))) (lambda (a) (lambda (arg-2961) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-2961))) (lambda (b) (lambda (a) (lambda (arg-2962) (lambda (arg-2964) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-2962 arg-2964)))))) (lambda (b) (lambda (a) (lambda (arg-3123) (lambda (arg-3124) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3123 arg-3124))))) (lambda (a) (lambda (arg-3126) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3126)))) (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-2894) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-2894))))) (lambda (a) (lambda (arg-2961) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-2961))) (lambda (b) (lambda (a) (lambda (arg-2962) (lambda (arg-2964) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-2962 arg-2964)))))) (lambda (b) (lambda (a) (lambda (arg-3123) (lambda (arg-3124) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3123 arg-3124))))) (lambda (a) (lambda (arg-3126) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3126)))) (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-2894) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-2894))))) (lambda (a) (lambda (arg-2961) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-2961))) (lambda (b) (lambda (a) (lambda (arg-2962) (lambda (arg-2964) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-2962 arg-2964)))))) (lambda (b) (lambda (a) (lambda (arg-3123) (lambda (arg-3124) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3123 arg-3124))))) (lambda (a) (lambda (arg-3126) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3126)))) (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-2894) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-2894))))) (lambda (a) (lambda (arg-2961) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-2961))) (lambda (b) (lambda (a) (lambda (arg-2962) (lambda (arg-2964) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-2962 arg-2964)))))) (lambda (b) (lambda (a) (lambda (arg-3123) (lambda (arg-3124) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3123 arg-3124))))) (lambda (a) (lambda (arg-3126) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3126)))) (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-2894) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-2894))))) (lambda (a) (lambda (arg-2961) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-2961))) (lambda (b) (lambda (a) (lambda (arg-2962) (lambda (arg-2964) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-2962 arg-2964)))))) (lambda (b) (lambda (a) (lambda (arg-3123) (lambda (arg-3124) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3123 arg-3124))))) (lambda (a) (lambda (arg-3126) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3126)))) (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-2894) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-2894))))) (lambda (a) (lambda (arg-2961) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-2961))) (lambda (b) (lambda (a) (lambda (arg-2962) (lambda (arg-2964) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-2962 arg-2964)))))) (lambda (b) (lambda (a) (lambda (arg-3123) (lambda (arg-3124) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3123 arg-3124))))) (lambda (a) (lambda (arg-3126) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3126)))) (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-2894) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-2894))))) (lambda (a) (lambda (arg-2961) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-2961))) (lambda (b) (lambda (a) (lambda (arg-2962) (lambda (arg-2964) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-2962 arg-2964)))))) (lambda (b) (lambda (a) (lambda (arg-3123) (lambda (arg-3124) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3123 arg-3124))))) (lambda (a) (lambda (arg-3126) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3126)))) (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-2894) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-2894))))) (lambda (a) (lambda (arg-2961) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-2961))) (lambda (b) (lambda (a) (lambda (arg-2962) (lambda (arg-2964) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-2962 arg-2964)))))) (lambda (b) (lambda (a) (lambda (arg-3123) (lambda (arg-3124) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3123 arg-3124))))) (lambda (a) (lambda (arg-3126) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3126)))) (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-2894) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-2894))))) (lambda (a) (lambda (arg-2961) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-2961))) (lambda (b) (lambda (a) (lambda (arg-2962) (lambda (arg-2964) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-2962 arg-2964)))))) (lambda (b) (lambda (a) (lambda (arg-3123) (lambda (arg-3124) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3123 arg-3124))))) (lambda (a) (lambda (arg-3126) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3126)))) (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-2894) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-2894))))) (lambda (a) (lambda (arg-2961) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-2961))) (lambda (b) (lambda (a) (lambda (arg-2962) (lambda (arg-2964) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-2962 arg-2964)))))) (lambda (b) (lambda (a) (lambda (arg-3123) (lambda (arg-3124) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3123 arg-3124))))) (lambda (a) (lambda (arg-3126) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3126)))) (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-2894) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-2894))))) (lambda (a) (lambda (arg-2961) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-2961))) (lambda (b) (lambda (a) (lambda (arg-2962) (lambda (arg-2964) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-2962 arg-2964)))))) (lambda (b) (lambda (a) (lambda (arg-3123) (lambda (arg-3124) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3123 arg-3124))))) (lambda (a) (lambda (arg-3126) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3126)))) (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-2894) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-2894))))) (lambda (a) (lambda (arg-2961) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-2961))) (lambda (b) (lambda (a) (lambda (arg-2962) (lambda (arg-2964) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-2962 arg-2964)))))) (lambda (b) (lambda (a) (lambda (arg-3123) (lambda (arg-3124) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3123 arg-3124))))) (lambda (a) (lambda (arg-3126) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3126)))) (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-2894) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-2894))))) (lambda (a) (lambda (arg-2961) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-2961))) (lambda (b) (lambda (a) (lambda (arg-2962) (lambda (arg-2964) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-2962 arg-2964)))))) (lambda (b) (lambda (a) (lambda (arg-3123) (lambda (arg-3124) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3123 arg-3124))))) (lambda (a) (lambda (arg-3126) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3126)))) (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-2894) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-2894))))) (lambda (a) (lambda (arg-2961) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-2961))) (lambda (b) (lambda (a) (lambda (arg-2962) (lambda (arg-2964) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-2962 arg-2964)))))) (lambda (b) (lambda (a) (lambda (arg-3123) (lambda (arg-3124) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3123 arg-3124))))) (lambda (a) (lambda (arg-3126) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3126)))) (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-2894) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-2894))))) (lambda (a) (lambda (arg-2961) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-2961))) (lambda (b) (lambda (a) (lambda (arg-2962) (lambda (arg-2964) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-2962 arg-2964)))))) (lambda (b) (lambda (a) (lambda (arg-3123) (lambda (arg-3124) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3123 arg-3124))))) (lambda (a) (lambda (arg-3126) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3126)))) (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-2894) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-2894))))) (lambda (a) (lambda (arg-2961) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-2961))) (lambda (b) (lambda (a) (lambda (arg-2962) (lambda (arg-2964) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-2962 arg-2964)))))) (lambda (b) (lambda (a) (lambda (arg-3123) (lambda (arg-3124) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3123 arg-3124))))) (lambda (a) (lambda (arg-3126) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3126)))) (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-2894) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-2894))))) (lambda (a) (lambda (arg-2961) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-2961))) (lambda (b) (lambda (a) (lambda (arg-2962) (lambda (arg-2964) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-2962 arg-2964)))))) (lambda (b) (lambda (a) (lambda (arg-3123) (lambda (arg-3124) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3123 arg-3124))))) (lambda (a) (lambda (arg-3126) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3126)))) (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-2894) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-2894))))) (lambda (a) (lambda (arg-2961) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-2961))) (lambda (b) (lambda (a) (lambda (arg-2962) (lambda (arg-2964) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-2962 arg-2964)))))) (lambda (b) (lambda (a) (lambda (arg-3123) (lambda (arg-3124) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3123 arg-3124))))) (lambda (a) (lambda (arg-3126) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3126)))) (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-2894) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-2894))))) (lambda (a) (lambda (arg-2961) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-2961))) (lambda (b) (lambda (a) (lambda (arg-2962) (lambda (arg-2964) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-2962 arg-2964)))))) (lambda (b) (lambda (a) (lambda (arg-3123) (lambda (arg-3124) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3123 arg-3124))))) (lambda (a) (lambda (arg-3126) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3126)))) (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-2894) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-2894))))) (lambda (a) (lambda (arg-2961) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-2961))) (lambda (b) (lambda (a) (lambda (arg-2962) (lambda (arg-2964) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-2962 arg-2964)))))) (lambda (b) (lambda (a) (lambda (arg-3123) (lambda (arg-3124) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3123 arg-3124))))) (lambda (a) (lambda (arg-3126) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3126)))) (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-2894) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-2894))))) (lambda (a) (lambda (arg-2961) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-2961))) (lambda (b) (lambda (a) (lambda (arg-2962) (lambda (arg-2964) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-2962 arg-2964)))))) (lambda (b) (lambda (a) (lambda (arg-3123) (lambda (arg-3124) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3123 arg-3124))))) (lambda (a) (lambda (arg-3126) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3126)))) (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-2894) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-2894))))) (lambda (a) (lambda (arg-2961) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-2961))) (lambda (b) (lambda (a) (lambda (arg-2962) (lambda (arg-2964) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-2962 arg-2964)))))) (lambda (b) (lambda (a) (lambda (arg-3123) (lambda (arg-3124) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3123 arg-3124))))) (lambda (a) (lambda (arg-3126) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3126)))) (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-2894) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-2894))))) (lambda (a) (lambda (arg-2961) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-2961))) (lambda (b) (lambda (a) (lambda (arg-2962) (lambda (arg-2964) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-2962 arg-2964)))))) (lambda (b) (lambda (a) (lambda (arg-3123) (lambda (arg-3124) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3123 arg-3124))))) (lambda (a) (lambda (arg-3126) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3126)))) (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-2894) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-2894))))) (lambda (a) (lambda (arg-2961) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-2961))) (lambda (b) (lambda (a) (lambda (arg-2962) (lambda (arg-2964) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-2962 arg-2964)))))) (lambda (b) (lambda (a) (lambda (arg-3123) (lambda (arg-3124) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3123 arg-3124))))) (lambda (a) (lambda (arg-3126) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3126)))) (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-2894) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-2894))))) (lambda (a) (lambda (arg-2961) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-2961))) (lambda (b) (lambda (a) (lambda (arg-2962) (lambda (arg-2964) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-2962 arg-2964)))))) (lambda (b) (lambda (a) (lambda (arg-3123) (lambda (arg-3124) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3123 arg-3124))))) (lambda (a) (lambda (arg-3126) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3126)))) (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-2894) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-2894))))) (lambda (a) (lambda (arg-2961) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-2961))) (lambda (b) (lambda (a) (lambda (arg-2962) (lambda (arg-2964) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-2962 arg-2964)))))) (lambda (b) (lambda (a) (lambda (arg-3123) (lambda (arg-3124) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3123 arg-3124))))) (lambda (a) (lambda (arg-3126) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3126)))) (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-2894) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-2894))))) (lambda (a) (lambda (arg-2961) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-2961))) (lambda (b) (lambda (a) (lambda (arg-2962) (lambda (arg-2964) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-2962 arg-2964)))))) (lambda (b) (lambda (a) (lambda (arg-3123) (lambda (arg-3124) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3123 arg-3124))))) (lambda (a) (lambda (arg-3126) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3126)))) (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-2894) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-2894))))) (lambda (a) (lambda (arg-2961) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-2961))) (lambda (b) (lambda (a) (lambda (arg-2962) (lambda (arg-2964) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-2962 arg-2964)))))) (lambda (b) (lambda (a) (lambda (arg-3123) (lambda (arg-3124) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3123 arg-3124))))) (lambda (a) (lambda (arg-3126) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3126)))) (BindImplicits-TTImp-n--12519-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-2894) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-2894))))) (lambda (a) (lambda (arg-2961) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-2961))) (lambda (b) (lambda (a) (lambda (arg-2962) (lambda (arg-2964) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-2962 arg-2964)))))) (lambda (b) (lambda (a) (lambda (arg-3123) (lambda (arg-3124) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3123 arg-3124))))) (lambda (a) (lambda (arg-3126) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3126)))) (Prelude-traverse_Traversable__List 'erased 'erased 'erased (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-2894) (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-2895) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func-0 arg-2895))))) func arg-2894 eta-2)))))) (lambda (a) (lambda (arg-2961) (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-2894) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-2894))))) (lambda (a-0) (lambda (arg-2962) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-2962))) (lambda (b) (lambda (a-0) (lambda (arg-2962) (lambda (arg-2964) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-2962 arg-2964)))))) (lambda (b) (lambda (a-0) (lambda (arg-3123) (lambda (arg-3124) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3123 arg-3124))))) (lambda (a-0) (lambda (arg-3126) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3126)))) arg-2961 eta-2)))) (lambda (b) (lambda (a) (lambda (arg-2962) (lambda (arg-2964) (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-2894) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-2894))))) (lambda (a-0) (lambda (arg-2961) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-2961))) (lambda (b-0) (lambda (a-0) (lambda (arg-2963) (lambda (arg-2965) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-2963 arg-2965)))))) (lambda (b-0) (lambda (a-0) (lambda (arg-3123) (lambda (arg-3124) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3123 arg-3124))))) (lambda (a-0) (lambda (arg-3126) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3126)))) arg-2962 arg-2964 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-2894) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-2894))))) (lambda (a) (lambda (arg-2961) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-2961))) (lambda (b) (lambda (a) (lambda (arg-2962) (lambda (arg-2964) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-2962 arg-2964)))))) (lambda (b) (lambda (a) (lambda (arg-3123) (lambda (arg-3124) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3123 arg-3124))))) (lambda (a) (lambda (arg-3126) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3126)))) (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--12519-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-2894) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-2894))))) (lambda (a) (lambda (arg-2961) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-2961))) (lambda (b) (lambda (a) (lambda (arg-2962) (lambda (arg-2964) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-2962 arg-2964)))))) (lambda (b) (lambda (a) (lambda (arg-3123) (lambda (arg-3124) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3123 arg-3124))))) (lambda (a) (lambda (arg-3126) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3126)))) arg-2 eta-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--14122-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--13665-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--13618-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--13373-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--13373-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--13309-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--13158-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--13158-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--12613-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-2894) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-2894))))) (lambda (a) (lambda (arg-2961) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-2961))) (lambda (b) (lambda (a) (lambda (arg-2962) (lambda (arg-2964) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-2962 arg-2964)))))) (lambda (b) (lambda (a) (lambda (arg-3123) (lambda (arg-3124) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3123 arg-3124))))) (lambda (a) (lambda (arg-3126) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3126)))) (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-2894) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-2894))))) (lambda (a) (lambda (arg-2961) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-2961))) (lambda (b) (lambda (a) (lambda (arg-2962) (lambda (arg-2964) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-2962 arg-2964)))))) (lambda (b) (lambda (a) (lambda (arg-3123) (lambda (arg-3124) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3123 arg-3124))))) (lambda (a) (lambda (arg-3126) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3126)))) 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-2894) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-2894))))) (lambda (a) (lambda (arg-2961) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-2961))) (lambda (b) (lambda (a) (lambda (arg-2962) (lambda (arg-2964) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-2962 arg-2964)))))) (lambda (b) (lambda (a) (lambda (arg-3123) (lambda (arg-3124) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3123 arg-3124))))) (lambda (a) (lambda (arg-3126) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3126)))) (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-2894) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-2894))))) (lambda (a) (lambda (arg-2961) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-2961))) (lambda (b) (lambda (a) (lambda (arg-2962) (lambda (arg-2964) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-2962 arg-2964)))))) (lambda (b) (lambda (a) (lambda (arg-3123) (lambda (arg-3124) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3123 arg-3124))))) (lambda (a) (lambda (arg-3126) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3126)))) (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-2894) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-2894))))) (lambda (a) (lambda (arg-2961) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-2961))) (lambda (b) (lambda (a) (lambda (arg-2962) (lambda (arg-2964) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-2962 arg-2964)))))) (lambda (b) (lambda (a) (lambda (arg-3123) (lambda (arg-3124) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3123 arg-3124))))) (lambda (a) (lambda (arg-3126) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3126)))) (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-2894) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-2894))))) (lambda (a) (lambda (arg-2961) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-2961))) (lambda (b) (lambda (a) (lambda (arg-2962) (lambda (arg-2964) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-2962 arg-2964)))))) (lambda (b) (lambda (a) (lambda (arg-3123) (lambda (arg-3124) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3123 arg-3124))))) (lambda (a) (lambda (arg-3126) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3126)))) (vector 16 arg-1 arg-0) eta-0))))))) +(define BindImplicits-TTImp-case--12613-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-2894) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-2894))))) (lambda (a) (lambda (arg-2961) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-2961))) (lambda (b) (lambda (a) (lambda (arg-2962) (lambda (arg-2964) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-2962 arg-2964)))))) (lambda (b) (lambda (a) (lambda (arg-3123) (lambda (arg-3124) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3123 arg-3124))))) (lambda (a) (lambda (arg-3126) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3126)))) (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-2894) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-2894))))) (lambda (a) (lambda (arg-2961) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-2961))) (lambda (b) (lambda (a) (lambda (arg-2962) (lambda (arg-2964) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-2962 arg-2964)))))) (lambda (b) (lambda (a) (lambda (arg-3123) (lambda (arg-3124) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3123 arg-3124))))) (lambda (a) (lambda (arg-3126) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3126)))) (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-2894) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-2894))))) (lambda (a) (lambda (arg-2961) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-2961))) (lambda (b) (lambda (a) (lambda (arg-2962) (lambda (arg-2964) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-2962 arg-2964)))))) (lambda (b) (lambda (a) (lambda (arg-3123) (lambda (arg-3124) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3123 arg-3124))))) (lambda (a) (lambda (arg-3126) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3126)))) (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-2894) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-2894))))) (lambda (a) (lambda (arg-2961) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-2961))) (lambda (b) (lambda (a) (lambda (arg-2962) (lambda (arg-2964) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-2962 arg-2964)))))) (lambda (b) (lambda (a) (lambda (arg-3123) (lambda (arg-3124) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3123 arg-3124))))) (lambda (a) (lambda (arg-3126) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3126)))) 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-2894) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-2894))))) (lambda (a) (lambda (arg-2961) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-2961))) (lambda (b) (lambda (a) (lambda (arg-2962) (lambda (arg-2964) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-2962 arg-2964)))))) (lambda (b) (lambda (a) (lambda (arg-3123) (lambda (arg-3124) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3123 arg-3124))))) (lambda (a) (lambda (arg-3126) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3126)))) (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-2894) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-2894))))) (lambda (a) (lambda (arg-2961) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-2961))) (lambda (b) (lambda (a) (lambda (arg-2962) (lambda (arg-2964) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-2962 arg-2964)))))) (lambda (b) (lambda (a) (lambda (arg-3123) (lambda (arg-3124) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3123 arg-3124))))) (lambda (a) (lambda (arg-3126) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3126)))) (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-2894) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-2894))))) (lambda (a) (lambda (arg-2961) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-2961))) (lambda (b) (lambda (a) (lambda (arg-2962) (lambda (arg-2964) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-2962 arg-2964)))))) (lambda (b) (lambda (a) (lambda (arg-3123) (lambda (arg-3124) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3123 arg-3124))))) (lambda (a) (lambda (arg-3126) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3126)))) (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-2894) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-2894))))) (lambda (a) (lambda (arg-2961) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-2961))) (lambda (b) (lambda (a) (lambda (arg-2962) (lambda (arg-2964) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-2962 arg-2964)))))) (lambda (b) (lambda (a) (lambda (arg-3123) (lambda (arg-3124) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3123 arg-3124))))) (lambda (a) (lambda (arg-3126) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3126)))) (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-2894) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-2894))))) (lambda (a) (lambda (arg-2961) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-2961))) (lambda (b) (lambda (a) (lambda (arg-2962) (lambda (arg-2964) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-2962 arg-2964)))))) (lambda (b) (lambda (a) (lambda (arg-3123) (lambda (arg-3124) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3123 arg-3124))))) (lambda (a) (lambda (arg-3126) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3126)))) (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-2894) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-2894))))) (lambda (a) (lambda (arg-2961) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-2961))) (lambda (b) (lambda (a) (lambda (arg-2962) (lambda (arg-2964) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-2962 arg-2964)))))) (lambda (b) (lambda (a) (lambda (arg-3123) (lambda (arg-3124) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3123 arg-3124))))) (lambda (a) (lambda (arg-3126) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3126)))) (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--13556-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--13556-1617-tag arg-0 arg-1 'erased (Prelude-C-43_Num__Int arg-3 1) e-3))))))))) +(define BindImplicits-TTImp-n--12613-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-2894) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-2894))))) (lambda (a) (lambda (arg-2961) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-2961))) (lambda (b) (lambda (a) (lambda (arg-2962) (lambda (arg-2964) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-2962 arg-2964)))))) (lambda (b) (lambda (a) (lambda (arg-3123) (lambda (arg-3124) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3123 arg-3124))))) (lambda (a) (lambda (arg-3126) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3126)))) (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-2894) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-2894))))) (lambda (a) (lambda (arg-2961) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-2961))) (lambda (b) (lambda (a) (lambda (arg-2962) (lambda (arg-2964) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-2962 arg-2964)))))) (lambda (b) (lambda (a) (lambda (arg-3123) (lambda (arg-3124) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3123 arg-3124))))) (lambda (a) (lambda (arg-3126) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3126)))) (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-2894) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-2894))))) (lambda (a) (lambda (arg-2961) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-2961))) (lambda (b) (lambda (a) (lambda (arg-2962) (lambda (arg-2964) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-2962 arg-2964)))))) (lambda (b) (lambda (a) (lambda (arg-3123) (lambda (arg-3124) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3123 arg-3124))))) (lambda (a) (lambda (arg-3126) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3126)))) arg-5 eta-0))))))) +(define BindImplicits-TTImp-n--13158-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--12613-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-2894) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-2894))))) (lambda (a) (lambda (arg-2961) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-2961))) (lambda (b) (lambda (a) (lambda (arg-2962) (lambda (arg-2964) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-2962 arg-2964)))))) (lambda (b) (lambda (a) (lambda (arg-3123) (lambda (arg-3124) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3123 arg-3124))))) (lambda (a) (lambda (arg-3126) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3126)))) (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-2894) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-2894))))) (lambda (a) (lambda (arg-2961) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-2961))) (lambda (b) (lambda (a) (lambda (arg-2962) (lambda (arg-2964) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-2962 arg-2964)))))) (lambda (b) (lambda (a) (lambda (arg-3123) (lambda (arg-3124) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3123 arg-3124))))) (lambda (a) (lambda (arg-3126) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3126)))) (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-2894) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-2894))))) (lambda (a) (lambda (arg-2961) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-2961))) (lambda (b) (lambda (a) (lambda (arg-2962) (lambda (arg-2964) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-2962 arg-2964)))))) (lambda (b) (lambda (a) (lambda (arg-3123) (lambda (arg-3124) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3123 arg-3124))))) (lambda (a) (lambda (arg-3126) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3126)))) (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-2894) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-2894))))) (lambda (a) (lambda (arg-2961) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-2961))) (lambda (b) (lambda (a) (lambda (arg-2962) (lambda (arg-2964) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-2962 arg-2964)))))) (lambda (b) (lambda (a) (lambda (arg-3123) (lambda (arg-3124) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3123 arg-3124))))) (lambda (a) (lambda (arg-3126) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3126)))) (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-2894) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-2894))))) (lambda (a) (lambda (arg-2961) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-2961))) (lambda (b) (lambda (a) (lambda (arg-2962) (lambda (arg-2964) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-2962 arg-2964)))))) (lambda (b) (lambda (a) (lambda (arg-3123) (lambda (arg-3124) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3123 arg-3124))))) (lambda (a) (lambda (arg-3126) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3126)))) (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-2894) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-2894))))) (lambda (a) (lambda (arg-2961) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-2961))) (lambda (b) (lambda (a) (lambda (arg-2962) (lambda (arg-2964) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-2962 arg-2964)))))) (lambda (b) (lambda (a) (lambda (arg-3123) (lambda (arg-3124) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3123 arg-3124))))) (lambda (a) (lambda (arg-3126) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3126)))) (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-2894) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-2894))))) (lambda (a) (lambda (arg-2961) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-2961))) (lambda (b) (lambda (a) (lambda (arg-2962) (lambda (arg-2964) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-2962 arg-2964)))))) (lambda (b) (lambda (a) (lambda (arg-3123) (lambda (arg-3124) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3123 arg-3124))))) (lambda (a) (lambda (arg-3126) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3126)))) (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-2894) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-2894))))) (lambda (a) (lambda (arg-2961) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-2961))) (lambda (b) (lambda (a) (lambda (arg-2962) (lambda (arg-2964) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-2962 arg-2964)))))) (lambda (b) (lambda (a) (lambda (arg-3123) (lambda (arg-3124) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3123 arg-3124))))) (lambda (a) (lambda (arg-3126) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3126)))) (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-2894) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-2894))))) (lambda (a) (lambda (arg-2961) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-2961))) (lambda (b) (lambda (a) (lambda (arg-2962) (lambda (arg-2964) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-2962 arg-2964)))))) (lambda (b) (lambda (a) (lambda (arg-3123) (lambda (arg-3124) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3123 arg-3124))))) (lambda (a) (lambda (arg-3126) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3126)))) (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-2894) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-2894))))) (lambda (a) (lambda (arg-2961) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-2961))) (lambda (b) (lambda (a) (lambda (arg-2962) (lambda (arg-2964) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-2962 arg-2964)))))) (lambda (b) (lambda (a) (lambda (arg-3123) (lambda (arg-3124) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3123 arg-3124))))) (lambda (a) (lambda (arg-3126) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3126)))) (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-2894) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-2894))))) (lambda (a) (lambda (arg-2961) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-2961))) (lambda (b) (lambda (a) (lambda (arg-2962) (lambda (arg-2964) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-2962 arg-2964)))))) (lambda (b) (lambda (a) (lambda (arg-3123) (lambda (arg-3124) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3123 arg-3124))))) (lambda (a) (lambda (arg-3126) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3126)))) (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-2894) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-2894))))) (lambda (a) (lambda (arg-2961) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-2961))) (lambda (b) (lambda (a) (lambda (arg-2962) (lambda (arg-2964) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-2962 arg-2964)))))) (lambda (b) (lambda (a) (lambda (arg-3123) (lambda (arg-3124) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3123 arg-3124))))) (lambda (a) (lambda (arg-3126) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3126)))) (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-2894) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-2894))))) (lambda (a) (lambda (arg-2961) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-2961))) (lambda (b) (lambda (a) (lambda (arg-2962) (lambda (arg-2964) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-2962 arg-2964)))))) (lambda (b) (lambda (a) (lambda (arg-3123) (lambda (arg-3124) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3123 arg-3124))))) (lambda (a) (lambda (arg-3126) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3126)))) (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-2894) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-2894))))) (lambda (a) (lambda (arg-2961) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-2961))) (lambda (b) (lambda (a) (lambda (arg-2962) (lambda (arg-2964) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-2962 arg-2964)))))) (lambda (b) (lambda (a) (lambda (arg-3123) (lambda (arg-3124) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3123 arg-3124))))) (lambda (a) (lambda (arg-3126) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3126)))) (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-2894) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-2894))))) (lambda (a) (lambda (arg-2961) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-2961))) (lambda (b) (lambda (a) (lambda (arg-2962) (lambda (arg-2964) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-2962 arg-2964)))))) (lambda (b) (lambda (a) (lambda (arg-3123) (lambda (arg-3124) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3123 arg-3124))))) (lambda (a) (lambda (arg-3126) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3126)))) (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-2894) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-2894))))) (lambda (a) (lambda (arg-2961) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-2961))) (lambda (b) (lambda (a) (lambda (arg-2962) (lambda (arg-2964) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-2962 arg-2964)))))) (lambda (b) (lambda (a) (lambda (arg-3123) (lambda (arg-3124) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3123 arg-3124))))) (lambda (a) (lambda (arg-3126) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3126)))) (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-2894) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-2894))))) (lambda (a) (lambda (arg-2961) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-2961))) (lambda (b) (lambda (a) (lambda (arg-2962) (lambda (arg-2964) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-2962 arg-2964)))))) (lambda (b) (lambda (a) (lambda (arg-3123) (lambda (arg-3124) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3123 arg-3124))))) (lambda (a) (lambda (arg-3126) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3126)))) (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-2894) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-2894))))) (lambda (a) (lambda (arg-2961) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-2961))) (lambda (b) (lambda (a) (lambda (arg-2962) (lambda (arg-2964) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-2962 arg-2964)))))) (lambda (b) (lambda (a) (lambda (arg-3123) (lambda (arg-3124) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3123 arg-3124))))) (lambda (a) (lambda (arg-3126) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3126)))) (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-2894) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-2894))))) (lambda (a) (lambda (arg-2961) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-2961))) (lambda (b) (lambda (a) (lambda (arg-2962) (lambda (arg-2964) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-2962 arg-2964)))))) (lambda (b) (lambda (a) (lambda (arg-3123) (lambda (arg-3124) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3123 arg-3124))))) (lambda (a) (lambda (arg-3126) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3126)))) (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-2894) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-2894))))) (lambda (a) (lambda (arg-2961) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-2961))) (lambda (b) (lambda (a) (lambda (arg-2962) (lambda (arg-2964) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-2962 arg-2964)))))) (lambda (b) (lambda (a) (lambda (arg-3123) (lambda (arg-3124) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3123 arg-3124))))) (lambda (a) (lambda (arg-3126) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3126)))) (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-2894) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-2894))))) (lambda (a) (lambda (arg-2961) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-2961))) (lambda (b) (lambda (a) (lambda (arg-2962) (lambda (arg-2964) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-2962 arg-2964)))))) (lambda (b) (lambda (a) (lambda (arg-3123) (lambda (arg-3124) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3123 arg-3124))))) (lambda (a) (lambda (arg-3126) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3126)))) (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-2894) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-2894))))) (lambda (a) (lambda (arg-2961) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-2961))) (lambda (b) (lambda (a) (lambda (arg-2962) (lambda (arg-2964) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-2962 arg-2964)))))) (lambda (b) (lambda (a) (lambda (arg-3123) (lambda (arg-3124) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3123 arg-3124))))) (lambda (a) (lambda (arg-3126) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3126)))) (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-2894) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-2894))))) (lambda (a) (lambda (arg-2961) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-2961))) (lambda (b) (lambda (a) (lambda (arg-2962) (lambda (arg-2964) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-2962 arg-2964)))))) (lambda (b) (lambda (a) (lambda (arg-3123) (lambda (arg-3124) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3123 arg-3124))))) (lambda (a) (lambda (arg-3126) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3126)))) (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-2894) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-2894))))) (lambda (a) (lambda (arg-2961) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-2961))) (lambda (b) (lambda (a) (lambda (arg-2962) (lambda (arg-2964) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-2962 arg-2964)))))) (lambda (b) (lambda (a) (lambda (arg-3123) (lambda (arg-3124) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3123 arg-3124))))) (lambda (a) (lambda (arg-3126) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3126)))) (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-2894) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-2894))))) (lambda (a) (lambda (arg-2961) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-2961))) (lambda (b) (lambda (a) (lambda (arg-2962) (lambda (arg-2964) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-2962 arg-2964)))))) (lambda (b) (lambda (a) (lambda (arg-3123) (lambda (arg-3124) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3123 arg-3124))))) (lambda (a) (lambda (arg-3126) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3126)))) (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-2894) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-2894))))) (lambda (a) (lambda (arg-2961) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-2961))) (lambda (b) (lambda (a) (lambda (arg-2962) (lambda (arg-2964) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-2962 arg-2964)))))) (lambda (b) (lambda (a) (lambda (arg-3123) (lambda (arg-3124) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3123 arg-3124))))) (lambda (a) (lambda (arg-3126) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3126)))) (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-2894) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-2894))))) (lambda (a) (lambda (arg-2961) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-2961))) (lambda (b) (lambda (a) (lambda (arg-2962) (lambda (arg-2964) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-2962 arg-2964)))))) (lambda (b) (lambda (a) (lambda (arg-3123) (lambda (arg-3124) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3123 arg-3124))))) (lambda (a) (lambda (arg-3126) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3126)))) (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-2894) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-2894))))) (lambda (a) (lambda (arg-2961) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-2961))) (lambda (b) (lambda (a) (lambda (arg-2962) (lambda (arg-2964) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-2962 arg-2964)))))) (lambda (b) (lambda (a) (lambda (arg-3123) (lambda (arg-3124) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3123 arg-3124))))) (lambda (a) (lambda (arg-3126) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3126)))) (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-2894) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-2894))))) (lambda (a) (lambda (arg-2961) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-2961))) (lambda (b) (lambda (a) (lambda (arg-2962) (lambda (arg-2964) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-2962 arg-2964)))))) (lambda (b) (lambda (a) (lambda (arg-3123) (lambda (arg-3124) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3123 arg-3124))))) (lambda (a) (lambda (arg-3126) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3126)))) (BindImplicits-TTImp-n--12613-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-2894) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-2894))))) (lambda (a) (lambda (arg-2961) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-2961))) (lambda (b) (lambda (a) (lambda (arg-2962) (lambda (arg-2964) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-2962 arg-2964)))))) (lambda (b) (lambda (a) (lambda (arg-3123) (lambda (arg-3124) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3123 arg-3124))))) (lambda (a) (lambda (arg-3126) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3126)))) (Prelude-traverse_Traversable__List 'erased 'erased 'erased (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-2894) (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-2895) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func-0 arg-2895))))) func arg-2894 eta-2)))))) (lambda (a) (lambda (arg-2961) (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-2894) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-2894))))) (lambda (a-0) (lambda (arg-2962) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-2962))) (lambda (b) (lambda (a-0) (lambda (arg-2962) (lambda (arg-2964) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-2962 arg-2964)))))) (lambda (b) (lambda (a-0) (lambda (arg-3123) (lambda (arg-3124) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3123 arg-3124))))) (lambda (a-0) (lambda (arg-3126) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3126)))) arg-2961 eta-2)))) (lambda (b) (lambda (a) (lambda (arg-2962) (lambda (arg-2964) (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-2894) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-2894))))) (lambda (a-0) (lambda (arg-2961) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-2961))) (lambda (b-0) (lambda (a-0) (lambda (arg-2963) (lambda (arg-2965) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-2963 arg-2965)))))) (lambda (b-0) (lambda (a-0) (lambda (arg-3123) (lambda (arg-3124) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3123 arg-3124))))) (lambda (a-0) (lambda (arg-3126) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3126)))) arg-2962 arg-2964 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-2894) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-2894))))) (lambda (a) (lambda (arg-2961) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-2961))) (lambda (b) (lambda (a) (lambda (arg-2962) (lambda (arg-2964) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-2962 arg-2964)))))) (lambda (b) (lambda (a) (lambda (arg-3123) (lambda (arg-3124) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3123 arg-3124))))) (lambda (a) (lambda (arg-3126) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3126)))) (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--12613-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-2894) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-2894))))) (lambda (a) (lambda (arg-2961) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-2961))) (lambda (b) (lambda (a) (lambda (arg-2962) (lambda (arg-2964) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-2962 arg-2964)))))) (lambda (b) (lambda (a) (lambda (arg-3123) (lambda (arg-3124) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3123 arg-3124))))) (lambda (a) (lambda (arg-3126) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3126)))) 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--13279-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--13279-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--13064-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-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--13373-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--13373-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--13158-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--13462-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--1687-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--1613-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--1687-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--1500-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--1411-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--1342-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 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--13556-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--1342-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-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-2894) (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-2894 eta-0)))))) (lambda (a) (lambda (arg-2961) (lambda (eta-0) (State-Monad-Control-pure_Applicative__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 'erased 'erased 'erased arg-2 arg-2961 eta-0)))) (lambda (b) (lambda (a) (lambda (arg-2962) (lambda (arg-2964) (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-2962 arg-2964 eta-0))))))) (lambda (b) (lambda (a) (lambda (arg-3123) (lambda (arg-3124) (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-3123 arg-3124 eta-0)))))) (lambda (a) (lambda (arg-3126) (lambda (eta-0) (State-Monad-Control-join_Monad__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 'erased 'erased 'erased arg-2 arg-3126 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-2894) (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-2894 eta-0)))))) (lambda (a) (lambda (arg-2961) (lambda (eta-0) (State-Monad-Control-pure_Applicative__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 'erased 'erased 'erased arg-2 arg-2961 eta-0)))) (lambda (b) (lambda (a) (lambda (arg-2962) (lambda (arg-2964) (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-2962 arg-2964 eta-0))))))) (lambda (b) (lambda (a) (lambda (arg-3123) (lambda (arg-3124) (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-3123 arg-3124 eta-0)))))) (lambda (a) (lambda (arg-3126) (lambda (eta-0) (State-Monad-Control-join_Monad__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 'erased 'erased 'erased arg-2 arg-3126 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-2894) (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-2894 eta-0)))))) (lambda (a) (lambda (arg-2961) (lambda (eta-0) (State-Monad-Control-pure_Applicative__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 'erased 'erased 'erased arg-2 arg-2961 eta-0)))) (lambda (b) (lambda (a) (lambda (arg-2962) (lambda (arg-2964) (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-2962 arg-2964 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--1687-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-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))) @@ -4446,504 +4524,543 @@ (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--21010-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-case--21411-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--26879-22158 (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--26859-22151 (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--26879-22158 arg-4 arg-3 (ProcessDef-TTImp-nameListEq arg-3 arg-4) arg-0)))) (else (vector 0 )))))) -(define ProcessDef-TTImp-with--21109-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 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--21109-17250 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-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--29410-24684 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28) (let ((sc0 arg-28)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-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 (vector 1 arg-10 e-20) e-21 e-22 e-23 e-24))))))))))))))))))))))))))))) -(define ProcessDef-TTImp-case--29410-24609 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 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-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--29233-24356 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-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 (Context-Core-logC arg-9 (+ 1 (+ 1 0)) (lambda (eta-1) (let ((act-15 (Context-Core-toFullNames 'erased arg-9 (vector 0 (lambda (arg-4481) (lambda (arg-4482) (Context-Core-full_HasNames__C-40CaseTreeC-32C-36varsC-41 'erased arg-4481 arg-4482))) (lambda (arg-4483) (lambda (arg-4484) (Context-Core-resolved_HasNames__C-40CaseTreeC-32C-36varsC-41 'erased arg-4483 arg-4484)))) 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 (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-5))))) 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 ((act-16 (Context-Core-addDef arg-9 (vector 9 arg-17) (let ((sc2 arg-12)) (let ((e-0 (vector-ref sc2 1))) (let ((e-1 (vector-ref sc2 2))) (let ((e-23 (vector-ref sc2 3))) (let ((e-22 (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-23 e-22 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) e-2 e-3 e-3 arg-19) e-18 e-19 e-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 ((act-17 (let ((sc3 (TT-Core-C-61C-61_Eq__Visibility (let ((sc4 arg-12)) (let ((e-9 (vector-ref sc4 10))) e-9)) (vector 2 )))) (cond ((equal? sc3 0) (((let ((rmetas (CaseTree-Core-getMetas 'erased e-3))) (lambda () (lambda (eta-1) (let ((act-17 (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 ((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 ((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 ((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 (let ((sc4 (Prelude-C-38C-38 (Name-Core-isUserName arg-10) (lambda () (TT-Core-C-47C-61_Eq__Visibility (let ((sc5 arg-12)) (let ((e-9 (vector-ref sc5 10))) e-9)) (vector 0 )))))) (cond ((equal? sc4 0) (((let ((tymetas (TT-Core-getMetas 'erased (let ((sc5 arg-12)) (let ((e-25 (vector-ref sc5 3))) e-25))))) (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 ((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-addToSave arg-9 arg-10 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-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-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 ((act-21 (IORef-Data-writeIORef 'erased arg-9 (let ((sc7 e-10)) (let ((e-0 (vector-ref sc7 1))) (let ((e-1 (vector-ref sc7 2))) (let ((e-32 (vector-ref sc7 3))) (let ((e-31 (vector-ref sc7 4))) (let ((e-4 (vector-ref sc7 5))) (let ((e-30 (vector-ref sc7 6))) (let ((e-29 (vector-ref sc7 7))) (let ((e-28 (vector-ref sc7 8))) (let ((e-27 (vector-ref sc7 9))) (let ((e-26 (vector-ref sc7 10))) (let ((e-25 (vector-ref sc7 11))) (let ((e-11 (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))) (vector 0 e-0 e-1 e-32 e-31 e-4 e-30 e-29 e-28 e-27 e-26 e-25 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))))))))))))))))))))))))))) 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-4 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((act-22 (Context-Core-toResolvedNames 'erased arg-9 (vector 0 (lambda (arg-4481) (lambda (arg-4482) (Context-Core-full_HasNames__Name arg-4481 arg-4482))) (lambda (arg-4483) (lambda (arg-4484) (Context-Core-resolved_HasNames__Name arg-4483 arg-4484)))) (vector 0 (vector 1 "Builtin" (vector 0 )) (vector 1 "assert_total")) 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 ((sc9 (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? sc9 0) (let ((act-23 (ProcessDef-TTImp-calcRefs arg-9 1 e-12 (vector 9 arg-17) 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 (Termination-Core-calculateSizeChange arg-9 arg-3 arg-10 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-14 (vector-ref sc11 1))) (Context-Core-setSizeChange arg-9 arg-3 arg-10 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 ((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-8 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 (ProcessDef-TTImp-n--28200-23305-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 ((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 (Context-Core-setCovering arg-9 arg-3 arg-10 e-15 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-writeIORef 'erased arg-8 e-14 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 ((sc14 (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? sc14 0) (ProcessDef-TTImp-compileRunTime arg-9 arg-8 arg-7 e-12 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--29233-24250 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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--29190-24204 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-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--29233-24250 arg-0 arg-1 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 ((act-18 (Context-Core-logC arg-9 (+ 1 (+ 1 0)) (lambda (eta-1) (let ((act-18 (Context-Core-toFullNames 'erased arg-9 (vector 0 (lambda (arg-4481) (lambda (arg-4482) (Context-Core-full_HasNames__C-40CaseTreeC-32C-36varsC-41 'erased arg-4481 arg-4482))) (lambda (arg-4483) (lambda (arg-4484) (Context-Core-resolved_HasNames__C-40CaseTreeC-32C-36varsC-41 'erased arg-4483 arg-4484)))) e-3 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-8 (vector-ref sc5 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 ((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 (Context-Core-addDef arg-9 (vector 9 e-5) (let ((sc6 arg-12)) (let ((e-0 (vector-ref sc6 1))) (let ((e-1 (vector-ref sc6 2))) (let ((e-26 (vector-ref sc6 3))) (let ((e-25 (vector-ref sc6 4))) (let ((e-4 (vector-ref sc6 5))) (let ((e-24 (vector-ref sc6 6))) (let ((e-23 (vector-ref sc6 7))) (let ((e-22 (vector-ref sc6 8))) (let ((e-21 (vector-ref sc6 9))) (let ((e-9 (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-18 (vector-ref sc6 19))) (let ((e-19 (vector-ref sc6 20))) (let ((e-20 (vector-ref sc6 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-3 e-3 pats) e-18 e-19 e-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 (let ((act-20 (let ((sc7 (TT-Core-C-61C-61_Eq__Visibility (let ((sc8 arg-12)) (let ((e-21 (vector-ref sc8 10))) e-21)) (vector 2 )))) (cond ((equal? sc7 0) (((let ((rmetas (CaseTree-Core-getMetas 'erased e-3))) (lambda () (lambda (eta-1) (let ((act-20 (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 ((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-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 ((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 ((sc8 (Prelude-C-38C-38 (Name-Core-isUserName arg-10) (lambda () (TT-Core-C-47C-61_Eq__Visibility (let ((sc9 arg-12)) (let ((e-22 (vector-ref sc9 10))) e-22)) (vector 0 )))))) (cond ((equal? sc8 0) (((let ((tymetas (TT-Core-getMetas 'erased (let ((sc9 arg-12)) (let ((e-28 (vector-ref sc9 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 ((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-addToSave arg-9 arg-10 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 (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-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 ((act-24 (let ((act-24 (IORef-Data-writeIORef 'erased arg-9 (let ((sc11 e-13)) (let ((e-0 (vector-ref sc11 1))) (let ((e-1 (vector-ref sc11 2))) (let ((e-35 (vector-ref sc11 3))) (let ((e-34 (vector-ref sc11 4))) (let ((e-4 (vector-ref sc11 5))) (let ((e-33 (vector-ref sc11 6))) (let ((e-32 (vector-ref sc11 7))) (let ((e-31 (vector-ref sc11 8))) (let ((e-30 (vector-ref sc11 9))) (let ((e-29 (vector-ref sc11 10))) (let ((e-28 (vector-ref sc11 11))) (let ((e-27 (vector-ref sc11 12))) (let ((e-26 (vector-ref sc11 13))) (let ((e-25 (vector-ref sc11 14))) (let ((e-14 (vector-ref sc11 15))) (let ((e-15 (vector-ref sc11 16))) (let ((e-16 (vector-ref sc11 17))) (let ((e-17 (vector-ref sc11 18))) (let ((e-18 (vector-ref sc11 19))) (let ((e-19 (vector-ref sc11 20))) (let ((e-20 (vector-ref sc11 21))) (let ((e-21 (vector-ref sc11 22))) (let ((e-22 (vector-ref sc11 23))) (let ((e-23 (vector-ref sc11 24))) (let ((e-24 (vector-ref sc11 25))) (vector 0 e-0 e-1 e-35 e-34 e-4 e-33 e-32 e-31 e-30 e-29 e-28 e-27 e-26 e-25 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))))))))))))))))))))))))))) 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 (Context-Core-toResolvedNames 'erased arg-9 (vector 0 (lambda (arg-4481) (lambda (arg-4482) (Context-Core-full_HasNames__Name arg-4481 arg-4482))) (lambda (arg-4483) (lambda (arg-4484) (Context-Core-resolved_HasNames__Name arg-4483 arg-4484)))) (vector 0 (vector 1 "Builtin" (vector 0 )) (vector 1 "assert_total")) 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-15 (vector-ref sc12 1))) (let ((act-26 (let ((sc13 (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? sc13 0) (let ((act-26 (ProcessDef-TTImp-calcRefs arg-9 1 e-15 (vector 9 e-5) 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 ((act-27 (Termination-Core-calculateSizeChange arg-9 arg-3 arg-10 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 ((e-17 (vector-ref sc15 1))) (Context-Core-setSizeChange arg-9 arg-3 arg-10 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 (let ((act-27 (let ((act-27 (IORef-Data-readIORef 'erased arg-8 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-27) 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 ((e-17 (vector-ref sc14 1))) (let ((act-28 (ProcessDef-TTImp-n--28200-23305-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 ((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))) (let ((act-29 (Context-Core-setCovering arg-9 arg-3 arg-10 e-18 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 (let ((act-30 (IORef-Data-writeIORef 'erased arg-8 e-17 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-4 (vector-ref sc17 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((sc18 (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? sc18 0) (ProcessDef-TTImp-compileRunTime arg-9 arg-8 arg-7 e-15 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--28200-24174 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-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--29190-24204 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--28911-24000 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 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 (lambda (eta-0) (Context-Core-toFullNames 'erased arg-9 (vector 0 (lambda (arg-4481) (lambda (arg-4482) (Context-Core-full_HasNames__Covering arg-4481 arg-4482))) (lambda (arg-4483) (lambda (arg-4484) (Context-Core-resolved_HasNames__Covering arg-4483 arg-4484)))) (vector 2 arg-24) eta-0))))))) -(define ProcessDef-TTImp-case--28662-23941 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 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 (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-4481) (lambda (arg-4482) (Context-Core-full_HasNames__Covering arg-4481 arg-4482))) (lambda (arg-4483) (lambda (arg-4484) (Context-Core-resolved_HasNames__Covering arg-4483 arg-4484)))) (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-23)) eta-0))))))) -(define ProcessDef-TTImp-case--28662-23840 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-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 (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-16 arg-9 arg-3 (vector 9 arg-13) arg-17 eta-0))))))) -(define ProcessDef-TTImp-case--28221-23717 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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 ((_-0 (vector 0 e-2 e-3))) ((ProcessDef-TTImp-case--28662-23840 arg-0 arg-1 arg-2 arg-3 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 _-0 ((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--28200-23302-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 ((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-logC arg-9 (+ 1 (+ 1 (+ 1 0))) (lambda (eta-1) (let ((act-16 ((Core-Core-traverse 'erased 'erased (lambda (eta-2) (lambda (eta-3) (Context-Core-toFullNames 'erased arg-9 (vector 0 (lambda (arg-4481) (lambda (arg-4482) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4481 arg-4482))) (lambda (arg-4483) (lambda (arg-4484) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4483 arg-4484)))) eta-2 eta-3))) e-5) 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))) (let ((act-17 ((Context-Core-getFullName arg-9 (vector 9 arg-13)) 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 (Strings-Prelude-C-43C-43 "Initially missing in " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-7) (Strings-Prelude-C-43C-43 ":\u000a" (Name-Core-showSep "\u000a" (Prelude-map_Functor__List 'erased 'erased (lambda (arg-17) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) arg-17)) e-6)))))) 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 ((act-17 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (ProcessDef-TTImp-n--28200-23303-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-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 ((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-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 ((miss (List-Data-mapMaybe 'erased 'erased (lambda (eta-1) eta-1) e-8))) (let ((_-0 (vector 0 e-2 e-3))) ((ProcessDef-TTImp-case--28662-23941 arg-0 arg-1 arg-2 arg-3 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 _-0 e-5 e-6 e-7 e-8 miss (List-Data-isNil 'erased miss)) eta-0))))))))))))))))))))))))))))) -(define ProcessDef-TTImp-case--28344-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 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) (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--28219-23435 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (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-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-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 0 )) eta-0)) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 arg-10)) 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--28082-23253 (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))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 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))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 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)))))))))))))))))))))))))))) -(define ProcessDef-TTImp-case--27854-23062 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-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)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 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-12 arg-8 arg-11 arg-15 arg-10) e-18 e-19 e-20)))))))))))))))))))))))) -(define ProcessDef-TTImp-case--27781-22986 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-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)) (lambda (eta-0) (let ((act-15 (Context-Core-addDef arg-3 arg-0 (let ((sc2 arg-6)) (let ((e-0 (vector-ref sc2 1))) (let ((e-21 (vector-ref sc2 2))) (let ((e-2 (vector-ref sc2 3))) (let ((e-3 (vector-ref sc2 4))) (let ((e-4 (vector-ref sc2 5))) (let ((e-5 (vector-ref sc2 6))) (let ((e-6 (vector-ref sc2 7))) (let ((e-7 (vector-ref sc2 8))) (let ((e-8 (vector-ref sc2 9))) (let ((e-9 (vector-ref sc2 10))) (let ((e-10 (vector-ref sc2 11))) (let ((e-11 (vector-ref sc2 12))) (let ((e-12 (vector-ref sc2 13))) (let ((e-13 (vector-ref sc2 14))) (let ((e-14 (vector-ref sc2 15))) (let ((e-15 (vector-ref sc2 16))) (let ((e-16 (vector-ref sc2 17))) (let ((e-18 (vector-ref sc2 19))) (let ((e-19 (vector-ref sc2 20))) (let ((e-20 (vector-ref sc2 21))) (vector 0 e-0 e-21 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 (vector 1 arg-12 arg-8 arg-11 arg-16 arg-10) 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--27727-22928 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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-log arg-3 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Runtime tree for " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name (let ((sc1 arg-6)) (let ((e-1 (vector-ref sc1 2))) e-1))) (Strings-Prelude-C-43C-43 ": " (CaseTree-Core-show_Show__C-40CaseTreeC-32C-36varsC-41 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 ((_-0 (vector 0 e-2 e-3))) ((ProcessDef-TTImp-case--27781-22986 arg-0 arg-1 arg-2 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 (ProcessDef-TTImp-nameListEq arg-8 e-2)) eta-0))))))))))))) -(define ProcessDef-TTImp-case--27695-22882 (lambda (arg-0 arg-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-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref 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-6)) (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--27545-22712-toErased arg-0 arg-1 arg-2 arg-3 (let ((sc1 arg-6)) (let ((e-25 (vector-ref sc1 1))) e-25)) (ProcessDef-TTImp-n--27545-22711-getSpec arg-0 arg-1 arg-2 arg-3 (let ((sc1 arg-6)) (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 ((act-16 ((CaseBuilder-Core-getPMDef arg-3 (let ((sc2 arg-6)) (let ((e-26 (vector-ref sc2 1))) e-26)) (vector 1 ) arg-0 ty (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (ProcessDef-TTImp-n--27545-22713-toClause arg-0 arg-1 arg-2 arg-3 (let ((sc2 arg-6)) (let ((e-26 (vector-ref sc2 1))) e-26)) eta-1)) 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))) (let ((sc3 e-6)) (let ((e-8 (vector-ref sc3 1))) (let ((e-7 (vector-ref sc3 2))) (let ((act-17 (Context-Core-log arg-3 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Runtime tree for " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name (let ((sc4 arg-6)) (let ((e-28 (vector-ref sc4 2))) e-28))) (Strings-Prelude-C-43C-43 ": " (CaseTree-Core-show_Show__C-40CaseTreeC-32C-36varsC-41 e-8 e-7))))) 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))) (let ((_-0 (vector 0 e-8 e-7))) ((ProcessDef-TTImp-case--27781-22986 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-1 e-3 e-4 e-2 e-0 ty e-5 e-8 e-7 _-0 e-9 (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--27545-22857 (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 (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--27695-22882 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-1 _-0 (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--27189-22608 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-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--27189-22570 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-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--27189-22432 (lambda (arg-0 arg-1 arg-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--27101-22404 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-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--26929-22194-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--27101-22356 (lambda (arg-0 arg-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--27080-22338 (lambda (arg-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--26929-22194-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--26929-22323 (lambda (arg-0 arg-1 arg-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--27080-22338 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--26959-22246 (lambda (arg-0 arg-1 arg-2 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--26929-22194-dropErased arg-0 arg-1 arg-2 arg-3 arg-5 arg-6)) (else (ProcessDef-TTImp-n--26929-22194-dropErased arg-0 arg-1 arg-2 arg-3 arg-5 (NameMap-Data-delete 'erased arg-4 arg-6))))))) -(define ProcessDef-TTImp-case--26935-22219 (lambda (arg-0 arg-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--26959-22246 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--26929-22194-dropErased arg-0 arg-1 arg-2 arg-3 arg-5 arg-6)))))) -(define ProcessDef-TTImp-case--24808-22045 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-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--25601-21560 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 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--25601-21332 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 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--25405-21047 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 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--25601-21332 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 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))) (Core-Core-wrapError 'erased (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--23339-20047-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--25282-20888 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 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--25405-21047 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 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--25162-20803 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 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--25282-20888 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 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--25029-20720 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 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--25162-20803 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 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--24903-20619 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 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--25029-20720 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 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--24808-20512 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 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--24903-20619 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 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--23339-20046-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--23339-20436 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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--24808-22045 arg-0 arg-1 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))) (Core-Core-wrapError 'erased (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--24903-20619 arg-0 arg-1 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--23339-20046-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--24333-20326 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-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--24333-20248 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-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--24333-20170 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-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--24333-20092 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-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--23902-19958 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--23902-19820 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 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--23339-19675 (lambda (arg-0 arg-1 arg-2 arg-3 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--23902-19958 arg-0 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))) (Core-Core-wrapError 'erased (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-addHash 'erased arg-12 (vector 0 (lambda (arg-1569) (Hash-Core-hash_Hashable__C-40TermC-32C-36varsC-41 'erased arg-1569)) (lambda (arg-1570) (lambda (arg-1571) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased arg-1570 arg-1571)))) 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-addHash 'erased arg-12 (vector 0 (lambda (arg-1569) (Hash-Core-hash_Hashable__C-40TermC-32C-36varsC-41 'erased arg-1569)) (lambda (arg-1570) (lambda (arg-1571) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased arg-1570 arg-1571)))) 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--23706-19589 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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--23339-19508 (lambda (arg-0 arg-1 arg-2 arg-3 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--23473-19389 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 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--23384-19323 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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 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--23339-19246 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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 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--22926-18938 (lambda (arg-0 arg-1 arg-2 arg-3 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--22926-18877 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (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--22354-18614 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 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--22354-18529 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-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--22354-18395 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 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--22236-18328 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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))) (Core-Core-wrapError 'erased (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--22236-18269 (lambda (arg-0 arg-1 arg-2 arg-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--21991-18172 (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--21991-18014-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--21991-18011-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--22010-18115 (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--22009-18045 (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--21991-18012-lookupAll arg-0 arg-1 arg-2 arg-3 arg-7 arg-6))) (else (ProcessDef-TTImp-n--21991-18012-lookupAll arg-0 arg-1 arg-2 arg-3 arg-7 arg-6)))))) -(define ProcessDef-TTImp-case--21850-17953 (lambda (arg-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--21850-17895 (lambda (arg-0 arg-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--21693-17803 (lambda (arg-0 arg-1 arg-2 arg-3 arg-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--21328-17429-findLinArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-0 (ProcessDef-TTImp-n--21328-17428-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--21328-17741 (lambda (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--21328-17429-findLinArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-0 (ProcessDef-TTImp-n--21328-17428-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--21361-17533 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-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--21328-17429-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--21328-17429-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--21360-17435 (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--20711-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) (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--20711-16863 (lambda (arg-0 arg-1 arg-2 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--20425-16696 (lambda (arg-0 arg-1 arg-2 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--20425-16613 (lambda (arg-0 arg-1 arg-2 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--27545-22712-toErased (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 (LinearCheck-Core-linearCheck e-2 arg-3 arg-1 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))) 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-3 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-3 arg-2 arg-1 e-6 arg-5 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-3 arg-1 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))) 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--27545-22713-toClause (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))) (vector 0 e-2 e-6 e-10 e-11)))))))))))) -(define ProcessDef-TTImp-n--28200-23301-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--28200-23301-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--21991-18011-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--23133-19018-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--23133-19018-notLets arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-3 e-8))(else (ProcessDef-TTImp-n--23133-19018-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--23339-20047-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--23339-20047-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--21991-18012-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--22009-18045 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--23339-20046-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--24333-20092 arg-0 arg-1 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--23339-20046-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--24333-20170 arg-0 arg-1 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--23339-20046-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--24333-20248 arg-0 arg-1 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--23339-20046-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--24333-20326 arg-0 arg-1 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--23339-20046-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--27545-22711-getSpec (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)) (case (vector-ref sc1 0) ((7) (let ((e-4 (vector-ref sc1 1))) (vector 1 e-4)))(else (ProcessDef-TTImp-n--27545-22711-getSpec arg-0 arg-1 arg-2 arg-3 e-3))))))))))) -(define ProcessDef-TTImp-n--28200-23304-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--21328-17429-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--21328-17429-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--21328-17429-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--21361-17533 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--21328-17429-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--21328-17429-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--21328-17429-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--21328-17429-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--21361-17533 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--21328-17429-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--21328-17429-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--21328-17429-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--21328-17429-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--21361-17533 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--21328-17429-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--21328-17429-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--21328-17429-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--21328-17429-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--26929-22194-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--26959-22246 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--26929-22194-dropErased arg-0 arg-1 arg-2 arg-3 e-3 arg-5) eta-0)))))))))))))))))))))) -(define ProcessDef-TTImp-n--21991-18014-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--21991-18013-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--21991-18014-combineAll arg-0 arg-1 arg-2 arg-3 e-5 e-3) eta-0)))))))))))))) -(define ProcessDef-TTImp-n--21991-18013-combine (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (ProcessDef-TTImp-case--22010-18115 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--28200-23303-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 ((ProcessDef-TTImp-checkClause (vector 0 ) arg-9 arg-8 arg-7 arg-11 1 arg-10 (vector 0 ) (vector 0 ) (vector 0 ) (vector 2 arg-3 e-5)) 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-9 e-6 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-either 'erased 'erased 'erased (lambda () (lambda (e) (lambda (eta-1) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-1)))) (lambda () (lambda (chktm) (lambda (eta-1) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 arg-12)) eta-1)))) e-8) eta-0)))))))))))))))))))) (lambda (err) (let ((sc1 err)) (case (vector-ref sc1 0) ((5) (let ((e-0 (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))) (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 ((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-7 e-2 e-3) 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 ((Normalise-Core-nf e-0 e-7 e-2 e-4) 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 ((ProcessDef-TTImp-impossibleOK e-0 e-7 e-8 e-9) 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 ((sc6 e-10)) (cond ((equal? sc6 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 arg-12)) eta-0))))))))))))))))))))))))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 arg-12)) eta-0)))))) ext-0)))))))) -(define ProcessDef-TTImp-n--28200-23305-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--28200-23304-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 ((act-17 (let ((_-0 (vector 0 e-2 e-3))) ((ProcessDef-TTImp-case--28662-23840 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-2 e-3 _-0 ((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--28200-23302-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 ((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 (Context-Core-logC arg-9 (+ 1 (+ 1 (+ 1 0))) (lambda (eta-0) (let ((act-18 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Context-Core-toFullNames 'erased arg-9 (vector 0 (lambda (arg-4481) (lambda (arg-4482) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4481 arg-4482))) (lambda (arg-4483) (lambda (arg-4484) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4483 arg-4484)))) eta-1 eta-2))) 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 ((Context-Core-getFullName arg-9 (vector 9 arg-10)) 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))) (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-9) (Strings-Prelude-C-43C-43 ":\u000a" (Name-Core-showSep "\u000a" (Prelude-map_Functor__List 'erased 'erased (lambda (arg-14) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) arg-14)) e-8)))))) eta-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 ((act-19 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (lambda (eta-1) (ProcessDef-TTImp-n--28200-23303-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-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 ((e-9 (vector-ref sc5 1))) (let ((act-20 ((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-9)) 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 ((miss (List-Data-mapMaybe 'erased 'erased (lambda (eta-0) eta-0) e-10))) (let ((_-0 (vector 0 e-2 e-3))) ((ProcessDef-TTImp-case--28662-23941 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-2 e-3 _-0 e-7 e-8 e-9 e-10 miss (List-Data-isNil 'erased miss)) ext-0))))))))))))))))))))))))))))))))))))))) -(define ProcessDef-TTImp-n--28200-23302-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--28200-23301-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--21328-17428-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-with--27285-22217 (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--27265-22210 (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--27285-22217 arg-4 arg-3 (ProcessDef-TTImp-nameListEq arg-3 arg-4) arg-0)))) (else (vector 0 )))))) +(define ProcessDef-TTImp-with--21505-17372 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-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--21505-17299 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-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--30071-24961 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28) (let ((sc0 arg-28)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-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 (vector 1 arg-10 e-20) e-21 e-22 e-23 e-24))))))))))))))))))))))))))))) +(define ProcessDef-TTImp-case--30071-24886 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 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-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--29894-24628 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-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 (Context-Core-logC arg-9 (+ 1 (+ 1 0)) (lambda (eta-1) (let ((act-15 (Context-Core-toFullNames 'erased arg-9 (vector 0 (lambda (arg-4524) (lambda (arg-4525) (Context-Core-full_HasNames__C-40CaseTreeC-32C-36varsC-41 'erased arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__C-40CaseTreeC-32C-36varsC-41 'erased arg-4526 arg-4527)))) 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 (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-5))))) 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 ((act-16 (Context-Core-addDef arg-9 (vector 9 arg-17) (let ((sc2 arg-12)) (let ((e-0 (vector-ref sc2 1))) (let ((e-1 (vector-ref sc2 2))) (let ((e-23 (vector-ref sc2 3))) (let ((e-22 (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-23 e-22 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) e-2 e-3 e-3 arg-19) e-18 e-19 e-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 ((act-17 (let ((sc3 (TT-Core-C-61C-61_Eq__Visibility (let ((sc4 arg-12)) (let ((e-9 (vector-ref sc4 10))) e-9)) (vector 2 )))) (cond ((equal? sc3 0) (((let ((rmetas (CaseTree-Core-getMetas 'erased e-3))) (lambda () (lambda (eta-1) (let ((act-17 (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 ((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 ((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 ((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 (let ((sc4 (Prelude-C-38C-38 (Name-Core-isUserName arg-10) (lambda () (TT-Core-C-47C-61_Eq__Visibility (let ((sc5 arg-12)) (let ((e-9 (vector-ref sc5 10))) e-9)) (vector 0 )))))) (cond ((equal? sc4 0) (((let ((tymetas (TT-Core-getMetas 'erased (let ((sc5 arg-12)) (let ((e-25 (vector-ref sc5 3))) e-25))))) (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 ((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-addToSave arg-9 arg-10 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-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-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 ((act-21 (IORef-Data-writeIORef 'erased arg-9 (let ((sc7 e-10)) (let ((e-0 (vector-ref sc7 1))) (let ((e-1 (vector-ref sc7 2))) (let ((e-32 (vector-ref sc7 3))) (let ((e-31 (vector-ref sc7 4))) (let ((e-4 (vector-ref sc7 5))) (let ((e-30 (vector-ref sc7 6))) (let ((e-29 (vector-ref sc7 7))) (let ((e-28 (vector-ref sc7 8))) (let ((e-27 (vector-ref sc7 9))) (let ((e-26 (vector-ref sc7 10))) (let ((e-25 (vector-ref sc7 11))) (let ((e-11 (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))) (vector 0 e-0 e-1 e-32 e-31 e-4 e-30 e-29 e-28 e-27 e-26 e-25 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))))))))))))))))))))))))))) 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-4 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((act-22 (Context-Core-toResolvedNames 'erased arg-9 (vector 0 (lambda (arg-4524) (lambda (arg-4525) (Context-Core-full_HasNames__Name arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__Name arg-4526 arg-4527)))) (vector 0 (vector 1 "Builtin" (vector 0 )) (vector 1 "assert_total")) 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 ((sc9 (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? sc9 0) (let ((act-23 (ProcessDef-TTImp-calcRefs arg-9 1 e-12 (vector 9 arg-17) 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 (Termination-Core-calculateSizeChange arg-9 arg-3 arg-10 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-14 (vector-ref sc11 1))) (let ((act-25 (Context-Core-setSizeChange arg-9 arg-3 arg-10 e-14 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 (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 ((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-8 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 (ProcessDef-TTImp-n--28861-23577-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 ((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 (Context-Core-setCovering arg-9 arg-3 arg-10 e-15 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-writeIORef 'erased arg-8 e-14 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 ((sc14 (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? sc14 0) (ProcessDef-TTImp-compileRunTime arg-9 arg-8 arg-7 arg-3 e-15 e-12 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--29894-24522 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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--29851-24476 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-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--29894-24522 arg-0 arg-1 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 ((act-18 (Context-Core-logC arg-9 (+ 1 (+ 1 0)) (lambda (eta-1) (let ((act-18 (Context-Core-toFullNames 'erased arg-9 (vector 0 (lambda (arg-4524) (lambda (arg-4525) (Context-Core-full_HasNames__C-40CaseTreeC-32C-36varsC-41 'erased arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__C-40CaseTreeC-32C-36varsC-41 'erased arg-4526 arg-4527)))) e-3 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-8 (vector-ref sc5 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 ((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 (Context-Core-addDef arg-9 (vector 9 e-5) (let ((sc6 arg-12)) (let ((e-0 (vector-ref sc6 1))) (let ((e-1 (vector-ref sc6 2))) (let ((e-26 (vector-ref sc6 3))) (let ((e-25 (vector-ref sc6 4))) (let ((e-4 (vector-ref sc6 5))) (let ((e-24 (vector-ref sc6 6))) (let ((e-23 (vector-ref sc6 7))) (let ((e-22 (vector-ref sc6 8))) (let ((e-21 (vector-ref sc6 9))) (let ((e-9 (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-18 (vector-ref sc6 19))) (let ((e-19 (vector-ref sc6 20))) (let ((e-20 (vector-ref sc6 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-3 e-3 pats) e-18 e-19 e-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 (let ((act-20 (let ((sc7 (TT-Core-C-61C-61_Eq__Visibility (let ((sc8 arg-12)) (let ((e-21 (vector-ref sc8 10))) e-21)) (vector 2 )))) (cond ((equal? sc7 0) (((let ((rmetas (CaseTree-Core-getMetas 'erased e-3))) (lambda () (lambda (eta-1) (let ((act-20 (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 ((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-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 ((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 ((sc8 (Prelude-C-38C-38 (Name-Core-isUserName arg-10) (lambda () (TT-Core-C-47C-61_Eq__Visibility (let ((sc9 arg-12)) (let ((e-22 (vector-ref sc9 10))) e-22)) (vector 0 )))))) (cond ((equal? sc8 0) (((let ((tymetas (TT-Core-getMetas 'erased (let ((sc9 arg-12)) (let ((e-28 (vector-ref sc9 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 ((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-addToSave arg-9 arg-10 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 (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-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 ((act-24 (let ((act-24 (IORef-Data-writeIORef 'erased arg-9 (let ((sc11 e-13)) (let ((e-0 (vector-ref sc11 1))) (let ((e-1 (vector-ref sc11 2))) (let ((e-35 (vector-ref sc11 3))) (let ((e-34 (vector-ref sc11 4))) (let ((e-4 (vector-ref sc11 5))) (let ((e-33 (vector-ref sc11 6))) (let ((e-32 (vector-ref sc11 7))) (let ((e-31 (vector-ref sc11 8))) (let ((e-30 (vector-ref sc11 9))) (let ((e-29 (vector-ref sc11 10))) (let ((e-28 (vector-ref sc11 11))) (let ((e-27 (vector-ref sc11 12))) (let ((e-26 (vector-ref sc11 13))) (let ((e-25 (vector-ref sc11 14))) (let ((e-14 (vector-ref sc11 15))) (let ((e-15 (vector-ref sc11 16))) (let ((e-16 (vector-ref sc11 17))) (let ((e-17 (vector-ref sc11 18))) (let ((e-18 (vector-ref sc11 19))) (let ((e-19 (vector-ref sc11 20))) (let ((e-20 (vector-ref sc11 21))) (let ((e-21 (vector-ref sc11 22))) (let ((e-22 (vector-ref sc11 23))) (let ((e-23 (vector-ref sc11 24))) (let ((e-24 (vector-ref sc11 25))) (vector 0 e-0 e-1 e-35 e-34 e-4 e-33 e-32 e-31 e-30 e-29 e-28 e-27 e-26 e-25 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))))))))))))))))))))))))))) 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 (Context-Core-toResolvedNames 'erased arg-9 (vector 0 (lambda (arg-4524) (lambda (arg-4525) (Context-Core-full_HasNames__Name arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__Name arg-4526 arg-4527)))) (vector 0 (vector 1 "Builtin" (vector 0 )) (vector 1 "assert_total")) 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-15 (vector-ref sc12 1))) (let ((act-26 (let ((sc13 (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? sc13 0) (let ((act-26 (ProcessDef-TTImp-calcRefs arg-9 1 e-15 (vector 9 e-5) 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 ((act-27 (Termination-Core-calculateSizeChange arg-9 arg-3 arg-10 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 ((e-17 (vector-ref sc15 1))) (let ((act-28 (Context-Core-setSizeChange arg-9 arg-3 arg-10 e-17 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 (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 ((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 (let ((act-27 (IORef-Data-readIORef 'erased arg-8 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-27) 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 ((e-17 (vector-ref sc14 1))) (let ((act-28 (ProcessDef-TTImp-n--28861-23577-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 ((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))) (let ((act-29 (Context-Core-setCovering arg-9 arg-3 arg-10 e-18 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 (let ((act-30 (IORef-Data-writeIORef 'erased arg-8 e-17 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-4 (vector-ref sc17 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((sc18 (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? sc18 0) (ProcessDef-TTImp-compileRunTime arg-9 arg-8 arg-7 arg-3 e-18 e-15 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--28861-24446 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-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--29851-24476 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--29572-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 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 (lambda (eta-0) (Context-Core-toFullNames 'erased arg-9 (vector 0 (lambda (arg-4524) (lambda (arg-4525) (Context-Core-full_HasNames__Covering arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__Covering arg-4526 arg-4527)))) (vector 2 arg-24) eta-0))))))) +(define ProcessDef-TTImp-case--29323-24213 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 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 (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-4524) (lambda (arg-4525) (Context-Core-full_HasNames__Covering arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__Covering arg-4526 arg-4527)))) (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-23)) eta-0))))))) +(define ProcessDef-TTImp-case--29323-24112 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-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 (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-16 arg-9 arg-3 (vector 9 arg-13) arg-17 eta-0))))))) +(define ProcessDef-TTImp-case--28882-23989 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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 ((_-0 (vector 0 e-2 e-3))) ((ProcessDef-TTImp-case--29323-24112 arg-0 arg-1 arg-2 arg-3 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 _-0 ((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--28861-23574-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 ((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-logC arg-9 (+ 1 (+ 1 (+ 1 0))) (lambda (eta-1) (let ((act-16 ((Core-Core-traverse 'erased 'erased (lambda (eta-2) (lambda (eta-3) (Context-Core-toFullNames 'erased arg-9 (vector 0 (lambda (arg-4524) (lambda (arg-4525) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4526 arg-4527)))) eta-2 eta-3))) e-5) 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))) (let ((act-17 ((Context-Core-getFullName arg-9 (vector 9 arg-13)) 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 (Strings-Prelude-C-43C-43 "Initially missing in " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-7) (Strings-Prelude-C-43C-43 ":\u000a" (Name-Core-showSep "\u000a" (Prelude-map_Functor__List 'erased 'erased (lambda (arg-17) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) arg-17)) e-6)))))) 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 ((act-17 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (ProcessDef-TTImp-n--28861-23575-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-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 ((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-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 ((miss (List-Data-mapMaybe 'erased 'erased (lambda (eta-1) eta-1) e-8))) (let ((_-0 (vector 0 e-2 e-3))) ((ProcessDef-TTImp-case--29323-24213 arg-0 arg-1 arg-2 arg-3 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 _-0 e-5 e-6 e-7 e-8 miss (List-Data-isNil 'erased miss)) eta-0))))))))))))))))))))))))))))) +(define ProcessDef-TTImp-case--29005-23764 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 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) (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--28880-23707 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (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-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-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 0 )) eta-0)) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 arg-10)) 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--28735-23521 (lambda (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-21 (vector-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 (vector 0 ) e-21 e-22 e-23 e-24)))))))))))))))))))))))))))) +(define ProcessDef-TTImp-case--28462-23298 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22) (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 arg-14 arg-10 arg-13 arg-19 arg-12) e-18 e-19 e-20)))))))))))))))))))))))) +(define ProcessDef-TTImp-case--28377-23214 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23) (let ((sc0 arg-23)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (lambda (eta-0) (let ((act-15 (Context-Core-addDef arg-5 arg-0 (let ((sc2 arg-8)) (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-20 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--28227-23148 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-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 (Context-Core-log arg-5 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Runtime tree for " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name (let ((sc1 arg-8)) (let ((e-1 (vector-ref sc1 2))) e-1))) (Strings-Prelude-C-43C-43 ": " (CaseTree-Core-show_Show__C-40CaseTreeC-32C-36varsC-41 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 ((_-0 (vector 0 e-2 e-3))) ((ProcessDef-TTImp-case--28377-23214 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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 (ProcessDef-TTImp-nameListEq arg-10 e-2)) eta-0))))))))))))) +(define ProcessDef-TTImp-case--28227-23060 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (ProcessDef-TTImp-n--27951-22775-addErrorCase arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-17))(else arg-17))))) +(define ProcessDef-TTImp-case--28189-23026 (lambda (arg-0 arg-1 arg-2 arg-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-8)) (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--27951-22777-toErased arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (let ((sc1 arg-8)) (let ((e-25 (vector-ref sc1 1))) e-25)) (ProcessDef-TTImp-n--27951-22776-getSpec arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (let ((sc1 arg-8)) (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--27951-22778-toClause arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (let ((sc2 arg-8)) (let ((e-26 (vector-ref sc2 1))) e-26)) eta-1)) e-5))) (let ((clauses (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((1) (ProcessDef-TTImp-n--27951-22775-addErrorCase arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 clauses_init))(else clauses_init))))) (let ((act-16 ((CaseBuilder-Core-getPMDef arg-5 (let ((sc2 arg-8)) (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 ((act-17 (Context-Core-log arg-5 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Runtime tree for " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name (let ((sc4 arg-8)) (let ((e-28 (vector-ref sc4 2))) e-28))) (Strings-Prelude-C-43C-43 ": " (CaseTree-Core-show_Show__C-40CaseTreeC-32C-36varsC-41 e-8 e-7))))) 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))) (let ((_-0 (vector 0 e-8 e-7))) ((ProcessDef-TTImp-case--28377-23214 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-8 e-7 _-0 e-9 (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--27951-22997 (lambda (arg-0 arg-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 (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--28189-23026 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-1 _-0 (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--27595-22667 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-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--27595-22629 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-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--27595-22491 (lambda (arg-0 arg-1 arg-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--27507-22463 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-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--27335-22253-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--27507-22415 (lambda (arg-0 arg-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--27486-22397 (lambda (arg-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--27335-22253-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--27335-22382 (lambda (arg-0 arg-1 arg-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--27486-22397 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--27365-22305 (lambda (arg-0 arg-1 arg-2 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--27335-22253-dropErased arg-0 arg-1 arg-2 arg-3 arg-5 arg-6)) (else (ProcessDef-TTImp-n--27335-22253-dropErased arg-0 arg-1 arg-2 arg-3 arg-5 (NameMap-Data-delete 'erased arg-4 arg-6))))))) +(define ProcessDef-TTImp-case--27341-22278 (lambda (arg-0 arg-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--27365-22305 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--27335-22253-dropErased arg-0 arg-1 arg-2 arg-3 arg-5 arg-6)))))) +(define ProcessDef-TTImp-case--25214-22104 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-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--26007-21619 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 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--26007-21391 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 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--25811-21106 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 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--26007-21391 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 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--23740-20106-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--25688-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) (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--25811-21106 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 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--25568-20862 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 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--25688-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 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--25435-20779 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 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--25568-20862 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 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--25309-20678 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 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--25435-20779 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 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--25214-20571 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 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--25309-20678 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 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--23740-20105-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--23740-20495 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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--25214-22104 arg-0 arg-1 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--25309-20678 arg-0 arg-1 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--23740-20105-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--24739-20385 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-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--24739-20307 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-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--24739-20229 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-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--24739-20151 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-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--24304-20017 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--24304-19879 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 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--23740-19730 (lambda (arg-0 arg-1 arg-2 arg-3 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--24304-20017 arg-0 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-1587) (Hash-Core-hash_Hashable__C-40TermC-32C-36varsC-41 'erased arg-1587)) (lambda (arg-1588) (lambda (arg-1589) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased arg-1588 arg-1589)))) (vector 0 (lambda (arg-4524) (lambda (arg-4525) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4526 arg-4527)))) 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-1587) (Hash-Core-hash_Hashable__C-40TermC-32C-36varsC-41 'erased arg-1587)) (lambda (arg-1588) (lambda (arg-1589) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased arg-1588 arg-1589)))) (vector 0 (lambda (arg-4524) (lambda (arg-4525) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4526 arg-4527)))) 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--24108-19644 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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--23740-19563 (lambda (arg-0 arg-1 arg-2 arg-3 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--23874-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 arg-14 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--23785-19377 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--23740-19300 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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--23322-18987 (lambda (arg-0 arg-1 arg-2 arg-3 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--23322-18926 (lambda (arg-0 arg-1 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--22750-18663 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 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--22750-18578 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-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--22750-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) (let ((sc0 arg-9)) (cond ((equal? sc0 0) (vector 3 )) (else (vector 1 arg-8)))))) +(define ProcessDef-TTImp-case--22632-18377 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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--22632-18318 (lambda (arg-0 arg-1 arg-2 arg-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--22387-18221 (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--22387-18063-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--22387-18060-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--22406-18164 (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--22405-18094 (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--22387-18061-lookupAll arg-0 arg-1 arg-2 arg-3 arg-7 arg-6))) (else (ProcessDef-TTImp-n--22387-18061-lookupAll arg-0 arg-1 arg-2 arg-3 arg-7 arg-6)))))) +(define ProcessDef-TTImp-case--22246-18002 (lambda (arg-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--22246-17944 (lambda (arg-0 arg-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--22089-17852 (lambda (arg-0 arg-1 arg-2 arg-3 arg-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--21724-17478-findLinArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-0 (ProcessDef-TTImp-n--21724-17477-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--21724-17790 (lambda (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--21724-17478-findLinArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-0 (ProcessDef-TTImp-n--21724-17477-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--21757-17582 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-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--21724-17478-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--21724-17478-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--21756-17484 (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--21105-16994 (lambda (arg-0 arg-1 arg-2 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--21105-16910 (lambda (arg-0 arg-1 arg-2 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--20817-16742 (lambda (arg-0 arg-1 arg-2 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--20817-16658 (lambda (arg-0 arg-1 arg-2 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--27951-22777-toErased (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 (LinearCheck-Core-linearCheck e-2 arg-5 arg-3 arg-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))) 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-5 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-5 arg-4 arg-3 e-6 arg-7 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-5 arg-3 arg-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))) 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--27951-22778-toClause (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))) (vector 0 e-2 e-6 e-10 e-11)))))))))))) +(define ProcessDef-TTImp-n--28861-23573-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--28861-23573-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--22387-18060-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--23529-19067-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--23529-19067-notLets arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-3 e-8))(else (ProcessDef-TTImp-n--23529-19067-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--27951-22772-mkCrash (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (TT-Core-apply 'erased arg-2 (vector 1 arg-2 (vector 1 ) (vector 0 (vector 1 "Builtin" (vector 0 )) (vector 1 "idris_crash"))) (vector 1 (vector 10 arg-2 1) (vector 1 (vector 9 arg-2 (vector 2 arg-7)) (vector 0 )))))) +(define ProcessDef-TTImp-n--23740-20106-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--23740-20106-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--27951-22773-matchAny (lambda (arg-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))) (vector 4 e-1 (ProcessDef-TTImp-n--27951-22773-matchAny arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 'erased e-2) (vector 10 e-1 1)))))(else arg-7))))) +(define ProcessDef-TTImp-n--27951-22774-makeErrorClause (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (vector 0 arg-6 arg-7 (ProcessDef-TTImp-n--27951-22773-matchAny arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-8) (ProcessDef-TTImp-n--27951-22772-mkCrash arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 (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-2)))))))) +(define ProcessDef-TTImp-n--22387-18061-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--22405-18094 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--23740-20105-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--24739-20151 arg-0 arg-1 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--23740-20105-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--24739-20229 arg-0 arg-1 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--23740-20105-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--24739-20307 arg-0 arg-1 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--23740-20105-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--24739-20385 arg-0 arg-1 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--23740-20105-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--27951-22776-getSpec (lambda (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) ((7) (let ((e-4 (vector-ref sc1 1))) (vector 1 e-4)))(else (ProcessDef-TTImp-n--27951-22776-getSpec arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-3))))))))))) +(define ProcessDef-TTImp-n--28861-23576-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--21724-17478-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--21724-17478-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--21724-17478-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--21757-17582 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--21724-17478-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--21724-17478-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--21724-17478-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--21724-17478-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--21757-17582 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--21724-17478-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--21724-17478-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--21724-17478-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--21724-17478-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--21757-17582 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--21724-17478-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--21724-17478-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--21724-17478-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--21724-17478-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--27335-22253-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--27365-22305 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--27335-22253-dropErased arg-0 arg-1 arg-2 arg-3 e-3 arg-5) eta-0)))))))))))))))))))))) +(define ProcessDef-TTImp-n--22387-18063-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--22387-18062-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--22387-18063-combineAll arg-0 arg-1 arg-2 arg-3 e-5 e-3) eta-0)))))))))))))) +(define ProcessDef-TTImp-n--22387-18062-combine (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (ProcessDef-TTImp-case--22406-18164 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--28861-23575-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 ((ProcessDef-TTImp-checkClause (vector 0 ) arg-9 arg-8 arg-7 arg-11 1 arg-10 (vector 0 ) (vector 0 ) (vector 0 ) (vector 2 arg-3 e-5)) 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-9 e-6 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-either 'erased 'erased 'erased (lambda () (lambda (e) (lambda (eta-1) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-1)))) (lambda () (lambda (chktm) (lambda (eta-1) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 arg-12)) eta-1)))) e-8) eta-0)))))))))))))))))))) (lambda (err) (let ((sc1 err)) (case (vector-ref sc1 0) ((5) (let ((e-0 (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))) (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 ((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-7 e-2 e-3) 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 ((Normalise-Core-nf e-0 e-7 e-2 e-4) 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 ((ProcessDef-TTImp-impossibleOK e-0 e-7 e-8 e-9) 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 ((sc6 e-10)) (cond ((equal? sc6 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 arg-12)) eta-0))))))))))))))))))))))))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 arg-12)) eta-0)))))) ext-0)))))))) +(define ProcessDef-TTImp-n--28861-23577-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--28861-23576-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 ((act-17 (let ((_-0 (vector 0 e-2 e-3))) ((ProcessDef-TTImp-case--29323-24112 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-2 e-3 _-0 ((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--28861-23574-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 ((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 (Context-Core-logC arg-9 (+ 1 (+ 1 (+ 1 0))) (lambda (eta-0) (let ((act-18 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Context-Core-toFullNames 'erased arg-9 (vector 0 (lambda (arg-4524) (lambda (arg-4525) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4526 arg-4527)))) eta-1 eta-2))) 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 ((Context-Core-getFullName arg-9 (vector 9 arg-10)) 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))) (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-9) (Strings-Prelude-C-43C-43 ":\u000a" (Name-Core-showSep "\u000a" (Prelude-map_Functor__List 'erased 'erased (lambda (arg-14) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) arg-14)) e-8)))))) eta-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 ((act-19 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (lambda (eta-1) (ProcessDef-TTImp-n--28861-23575-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-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 ((e-9 (vector-ref sc5 1))) (let ((act-20 ((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-9)) 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 ((miss (List-Data-mapMaybe 'erased 'erased (lambda (eta-0) eta-0) e-10))) (let ((_-0 (vector 0 e-2 e-3))) ((ProcessDef-TTImp-case--29323-24213 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-2 e-3 _-0 e-7 e-8 e-9 e-10 miss (List-Data-isNil 'erased miss)) ext-0))))))))))))))))))))))))))))))))))))))) +(define ProcessDef-TTImp-n--28861-23574-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--28861-23573-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--27951-22775-addErrorCase (lambda (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) (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--27951-22774-makeErrorClause arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-4 e-5 e-6) (vector 0 ))))(else (vector 1 e-2 (ProcessDef-TTImp-n--27951-22775-addErrorCase arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-3))))))))))(else (vector 1 e-2 (ProcessDef-TTImp-n--27951-22775-addErrorCase arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-3)))))))))))) +(define ProcessDef-TTImp-n--21724-17477-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-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--21850-17895 '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--21850-17953 '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-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--29190-24204 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-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--22246-17944 '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--22246-18002 '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-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--29851-24476 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--26859-22151 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 ext-0) (let ((act-15 (let ((act-15 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-4481) (lambda (arg-4482) (Context-Core-full_HasNames__Name arg-4481 arg-4482))) (lambda (arg-4483) (lambda (arg-4484) (Context-Core-resolved_HasNames__Name arg-4483 arg-4484)))) 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))) (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-3 (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 ((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--27695-22882 arg-3 arg-2 arg-1 arg-0 e-5 e-6 e-1 _-0 (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--20425-16613 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--20425-16696 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-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--27265-22210 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 arg-5 ext-0) (let ((act-15 (let ((act-15 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-4524) (lambda (arg-4525) (Context-Core-full_HasNames__Name arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__Name arg-4526 arg-4527)))) 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))) (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-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 ((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--28189-23026 arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 e-5 e-6 e-1 _-0 (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--20817-16658 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--20817-16742 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--20711-16863 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--20711-16946 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-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--21105-16910 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--21105-16994 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) (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) ((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-1 arg-2 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 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 (vector 1 (vector 3 e-6 e-7 e-8) arg-2) 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--21328-17741 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--21109-17250 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--21109-17323 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 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 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-3 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-28 (vector-ref sc4 6))) (let ((e-27 (vector-ref sc4 7))) (let ((e-26 (vector-ref sc4 8))) (let ((e-25 (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))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-28 e-27 e-26 e-25 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)))))))))))))))))))))))))) 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--21991-18172 e-6 e-7 e-3 arg-0 (ProcessDef-TTImp-n--21991-18012-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))) (Core-Core-wrapError 'erased (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 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--23902-19958 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))) (Core-Core-wrapError 'erased (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-addHash 'erased arg-1 (vector 0 (lambda (arg-1569) (Hash-Core-hash_Hashable__C-40TermC-32C-36varsC-41 'erased arg-1569)) (lambda (arg-1570) (lambda (arg-1571) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased arg-1570 arg-1571)))) 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-addHash 'erased arg-1 (vector 0 (lambda (arg-1569) (Hash-Core-hash_Hashable__C-40TermC-32C-36varsC-41 'erased arg-1569)) (lambda (arg-1570) (lambda (arg-1571) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased arg-1570 arg-1571)))) 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--24808-22045 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))) (Core-Core-wrapError 'erased (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--24903-20619 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--23339-20046-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--27080-22338 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--23133-19018-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--22926-18877 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--22926-18938 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-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--21724-17790 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--21505-17299 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--21505-17372 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 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 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-0) (lambda (eta-1) (ProcessDef-TTImp-mkRunTime arg-0 arg-1 arg-2 arg-3 arg-4 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-5 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-28 (vector-ref sc4 6))) (let ((e-27 (vector-ref sc4 7))) (let ((e-26 (vector-ref sc4 8))) (let ((e-25 (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))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-28 e-27 e-26 e-25 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)))))))))))))))))))))))))) 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--22387-18221 e-6 e-7 e-3 arg-0 (ProcessDef-TTImp-n--22387-18061-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--24304-20017 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-1587) (Hash-Core-hash_Hashable__C-40TermC-32C-36varsC-41 'erased arg-1587)) (lambda (arg-1588) (lambda (arg-1589) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased arg-1588 arg-1589)))) (vector 0 (lambda (arg-4524) (lambda (arg-4525) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4526 arg-4527)))) 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-1587) (Hash-Core-hash_Hashable__C-40TermC-32C-36varsC-41 'erased arg-1587)) (lambda (arg-1588) (lambda (arg-1589) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased arg-1588 arg-1589)))) (vector 0 (lambda (arg-4524) (lambda (arg-4525) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4526 arg-4527)))) 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--25214-22104 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--25309-20678 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--23740-20105-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--27486-22397 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--23529-19067-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--23322-18926 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--23322-18987 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--13722-16167 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--13665-16117 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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--13722-16167 '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--13616-16074 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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--13722-16167 '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--13513-16034 (lambda (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--13722-16167 '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--13526-15980 (lambda (arg-0 arg-1 arg-2 arg-3 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--13392-15917 (lambda (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--13392-15862 (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--12726-15800 (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--12724-15726 (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--12724-15545 (lambda (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--12724-15440 (lambda (arg-0 arg-1 arg-2 arg-3 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--12724-15367 (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--12724-15325 (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--12724-15278 (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--13977-16346-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--13977-16345-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--13977-16345-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--13977-16345-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--13977-16345-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--13977-16345-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--13977-16345-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--13977-16345-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--13977-16345-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--13977-16345-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--13977-16345-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--13977-16345-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--13977-16346-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--13977-16345-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--13977-16345-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--13977-16345-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--13977-16345-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--13977-16345-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--13977-16345-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--13977-16344-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--13977-16345-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--13977-16345-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--13977-16345-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--13977-16345-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--13977-16345-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--13977-16343-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--13977-16343-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--13977-16344-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--13977-16344-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--13977-16343-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--12724-15399-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--13513-15958-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--13513-15958-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--13977-16345-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--12726-15800 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-case--13816-16212 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--13759-16162 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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--13816-16212 '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--13710-16119 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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--13816-16212 '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--13607-16079 (lambda (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--13816-16212 '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--13620-16025 (lambda (arg-0 arg-1 arg-2 arg-3 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--13486-15962 (lambda (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--13486-15907 (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--12820-15845 (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--12818-15771 (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--12818-15590 (lambda (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--12818-15485 (lambda (arg-0 arg-1 arg-2 arg-3 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--12818-15412 (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--12818-15370 (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--12818-15323 (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--14071-16391-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--14071-16390-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--14071-16390-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--14071-16390-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--14071-16390-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--14071-16390-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--14071-16390-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--14071-16390-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--14071-16390-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--14071-16390-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--14071-16390-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--14071-16390-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--14071-16391-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--14071-16390-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--14071-16390-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--14071-16390-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--14071-16390-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--14071-16390-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--14071-16390-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--14071-16389-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--14071-16390-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--14071-16390-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--14071-16390-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--14071-16390-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--14071-16390-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--14071-16388-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--14071-16388-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--14071-16389-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--14071-16389-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--14071-16388-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--12818-15444-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--13607-16003-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--13607-16003-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--14071-16390-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--12820-15845 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--13513-15958-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--13722-16167 '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--12724-15278 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--12724-15325 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--12724-15367 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--12724-15726 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--12724-15726 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--12724-15726 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--12724-15726 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--12724-15726 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--12724-15726 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--12724-15367 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--12724-15726 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--12724-15726 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--12724-15726 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--12724-15726 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--12724-15726 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--12724-15726 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--12724-15440 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--12724-15399-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--12724-15726 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--12724-15726 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--12724-15726 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--12724-15726 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--12724-15726 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--12724-15726 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--12724-15726 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--12724-15726 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--12724-15726 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--12724-15726 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--12724-15726 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--12724-15726 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--12724-15545 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--12724-15726 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--12724-15726 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--12724-15726 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--12724-15726 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--12724-15726 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--12724-15726 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--12724-15726 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--12724-15726 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--12724-15726 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--12724-15726 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--12724-15726 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--12724-15726 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--12724-15726 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--12724-15726 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--12724-15726 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--12724-15726 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--12724-15726 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--12724-15726 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--13392-15862 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--13392-15917 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--13392-15917 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--13392-15917 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--13392-15917 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--18013-22242 (lambda (arg-0 arg-1 arg-2 arg-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--19053-21913 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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--19010-21796 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-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--18013-21731-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--18013-21766 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-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--19010-21796 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--17989-21343 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-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--18272-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) (vector 1 (+ 1 arg-16)))) -(define PartialEval-TTImp-case--18291-21227 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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--18272-21139 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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--17989-21123-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--17989-21075 (lambda (arg-0 arg-1 arg-2 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--18095-21015 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--17668-20611 (lambda (arg-0 arg-1 arg-2 arg-3 arg-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--17638-20579 (lambda (arg-0 arg-1 arg-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--17435-20440 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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--17368-20374 (lambda (arg-0 arg-1 arg-2 arg-3 arg-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-1569) (Hash-Core-hash_Hashable__C-40TermC-32C-36varsC-41 'erased arg-1569)) (lambda (arg-1570) (lambda (arg-1571) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased arg-1570 arg-1571)))) (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--17435-20440 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--16988-20315 (lambda (arg-0 arg-1 arg-2 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-4481) (lambda (arg-4482) (Context-Core-full_HasNames__Name arg-4481 arg-4482))) (lambda (arg-4483) (lambda (arg-4484) (Context-Core-resolved_HasNames__Name arg-4483 arg-4484)))) 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--16988-19999-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-1569) (Hash-Core-hash_Hashable__C-40TermC-32C-36varsC-41 'erased arg-1569)) (lambda (arg-1570) (lambda (arg-1571) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased arg-1570 arg-1571)))) (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--17435-20440 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--17107-20142 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-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--17056-20086 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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--17107-20142 arg-0 arg-1 arg-2 arg-3 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--16988-19998-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--17004-20050 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-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--17056-20086 arg-0 arg-1 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--16855-19908 (lambda (arg-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--16749-19798-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--16749-19866 (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--16749-19798-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--16780-19814 (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--16749-19798-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--16749-19798-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--15589-19742 (lambda (arg-0 arg-1 arg-2 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))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 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))))))))))))))))))))))))))))) -(define PartialEval-TTImp-case--16445-19571 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-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-4481) (lambda (arg-4482) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4481 arg-4482))) (lambda (arg-4483) (lambda (arg-4484) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4483 arg-4484)))) 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--15892-19512 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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-4481) (lambda (arg-4482) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4481 arg-4482))) (lambda (arg-4483) (lambda (arg-4484) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4483 arg-4484)))) 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--16057-19269 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 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 ":\u000a" (Name-Core-showSep "\u000a" (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (PartialEval-TTImp-n--15589-18759-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--15892-19175 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 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--15589-18758-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:\u000a" (Name-Core-showSep "\u000a" (Prelude-map_Functor__List 'erased 'erased (lambda (eta-2) (PartialEval-TTImp-n--15589-18759-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 ":\u000a" (Name-Core-showSep "\u000a" (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (PartialEval-TTImp-n--15589-18759-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--15589-19019 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-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-4481) (lambda (arg-4482) (Context-Core-full_HasNames__Name arg-4481 arg-4482))) (lambda (arg-4483) (lambda (arg-4484) (Context-Core-resolved_HasNames__Name arg-4483 arg-4484)))) 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-4481) (lambda (arg-4482) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4481 arg-4482))) (lambda (arg-4483) (lambda (arg-4484) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4483 arg-4484)))) 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--15589-18756-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--15892-19175 '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--15753-18939 (lambda (arg-0 arg-1 arg-2 arg-3 arg-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--15589-18908 (lambda (arg-0 arg-1 arg-2 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--15520-18704 (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--15505-18686 (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--15025-18590 (lambda (arg-0 arg-1 arg-2 arg-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--15025-18220-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--15025-18221-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--15025-18225-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--14952-18162 (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--14832-18050 (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--14625-17874 (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--14589-17835 (lambda (arg-0 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--14422-17674 (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--14323-17595 (lambda (arg-0 arg-1 arg-2 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--15025-18225-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--15025-18224-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--15589-18758-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--15589-18759-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--15025-18223-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--15025-18223-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--15025-18223-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--15025-18221-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--15025-18221-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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 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--15025-18221-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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15025-18221-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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15025-18221-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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15025-18221-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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 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--15025-18221-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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15025-18221-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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15025-18221-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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15025-18221-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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 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--15025-18221-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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15025-18221-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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15025-18221-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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15025-18221-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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 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--15025-18221-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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15025-18221-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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15025-18221-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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15025-18221-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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 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--15025-18221-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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15025-18221-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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15025-18221-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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15025-18221-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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15025-18221-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15025-18220-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--15025-18220-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--15025-18220-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--15025-18220-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--16988-19999-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--16988-19999-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--17056-20086 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--15025-18222-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--15025-18222-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--15025-18222-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--15589-18756-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--15589-18756-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--15589-18756-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--17989-21123-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--18272-21139 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--17989-21123-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--18013-21731-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--18013-21731-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--16749-19798-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--16780-19814 '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--15025-18224-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--15025-18223-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--15025-18222-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--16988-19997-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--16988-19997-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--16988-19998-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--16988-19997-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--17989-20986-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--18095-21015 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--17989-20986-addLater arg-0 'erased arg-2 'erased arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 'erased 'erased arg-16 e-3 'erased))))))))) +(define WithClause-TTImp-getNewLHS (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 ext-0) (let ((act-15 ((WithClause-TTImp-n--13607-16003-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--13816-16212 '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--12818-15323 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--12818-15370 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--12818-15412 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--12818-15771 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--12818-15771 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--12818-15771 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--12818-15771 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--12818-15771 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--12818-15771 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--12818-15412 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--12818-15771 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--12818-15771 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--12818-15771 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--12818-15771 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--12818-15771 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--12818-15771 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--12818-15485 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--12818-15444-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--12818-15771 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--12818-15771 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--12818-15771 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--12818-15771 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--12818-15771 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--12818-15771 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--12818-15771 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--12818-15771 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--12818-15771 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--12818-15771 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--12818-15771 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--12818-15771 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--12818-15590 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--12818-15771 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--12818-15771 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--12818-15771 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--12818-15771 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--12818-15771 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--12818-15771 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--12818-15771 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--12818-15771 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--12818-15771 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--12818-15771 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--12818-15771 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--12818-15771 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--12818-15771 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--12818-15771 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--12818-15771 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--12818-15771 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--12818-15771 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--12818-15771 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--13486-15907 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--13486-15962 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--13486-15962 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--13486-15962 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--13486-15962 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--18111-22287 (lambda (arg-0 arg-1 arg-2 arg-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--19151-21958 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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--19108-21841 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-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--18111-21776-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--18111-21811 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-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--19108-21841 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--18087-21388 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-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--18370-21337 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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--18389-21272 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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--18370-21184 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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--18087-21168-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--18087-21120 (lambda (arg-0 arg-1 arg-2 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--18193-21060 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--17766-20656 (lambda (arg-0 arg-1 arg-2 arg-3 arg-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--17736-20624 (lambda (arg-0 arg-1 arg-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--17533-20485 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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--17466-20419 (lambda (arg-0 arg-1 arg-2 arg-3 arg-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-1587) (Hash-Core-hash_Hashable__C-40TermC-32C-36varsC-41 'erased arg-1587)) (lambda (arg-1588) (lambda (arg-1589) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased arg-1588 arg-1589)))) (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--17533-20485 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--17086-20360 (lambda (arg-0 arg-1 arg-2 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-4524) (lambda (arg-4525) (Context-Core-full_HasNames__Name arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__Name arg-4526 arg-4527)))) 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--17086-20044-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-1587) (Hash-Core-hash_Hashable__C-40TermC-32C-36varsC-41 'erased arg-1587)) (lambda (arg-1588) (lambda (arg-1589) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased arg-1588 arg-1589)))) (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--17533-20485 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--17205-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 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--17154-20131 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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--17205-20187 arg-0 arg-1 arg-2 arg-3 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--17086-20043-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--17102-20095 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-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--17154-20131 arg-0 arg-1 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--16953-19953 (lambda (arg-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--16847-19843-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--16847-19911 (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--16847-19843-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--16878-19859 (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--16847-19843-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--16847-19843-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--15687-19787 (lambda (arg-0 arg-1 arg-2 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))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 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))))))))))))))))))))))))))))) +(define PartialEval-TTImp-case--16543-19616 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-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-4524) (lambda (arg-4525) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4526 arg-4527)))) 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--15990-19557 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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-4524) (lambda (arg-4525) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4526 arg-4527)))) 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--16155-19314 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 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 ":\u000a" (Name-Core-showSep "\u000a" (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (PartialEval-TTImp-n--15687-18804-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--15990-19220 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 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--15687-18803-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:\u000a" (Name-Core-showSep "\u000a" (Prelude-map_Functor__List 'erased 'erased (lambda (eta-2) (PartialEval-TTImp-n--15687-18804-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 ":\u000a" (Name-Core-showSep "\u000a" (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (PartialEval-TTImp-n--15687-18804-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--15687-19064 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-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-4524) (lambda (arg-4525) (Context-Core-full_HasNames__Name arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__Name arg-4526 arg-4527)))) 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-4524) (lambda (arg-4525) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4526 arg-4527)))) 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--15687-18801-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--15990-19220 '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--15851-18984 (lambda (arg-0 arg-1 arg-2 arg-3 arg-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--15687-18953 (lambda (arg-0 arg-1 arg-2 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--15618-18749 (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--15603-18731 (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--15123-18635 (lambda (arg-0 arg-1 arg-2 arg-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--15123-18265-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--15123-18266-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--15123-18270-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--15050-18207 (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--14930-18095 (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--14723-17919 (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--14687-17880 (lambda (arg-0 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--14520-17719 (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--14421-17640 (lambda (arg-0 arg-1 arg-2 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--15123-18270-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--15123-18269-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--15687-18803-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--15687-18804-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--15123-18268-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--15123-18268-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--15123-18268-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--15123-18266-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--15123-18266-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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 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--15123-18266-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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15123-18266-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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15123-18266-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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15123-18266-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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 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--15123-18266-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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15123-18266-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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15123-18266-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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15123-18266-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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 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--15123-18266-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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15123-18266-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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15123-18266-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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15123-18266-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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 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--15123-18266-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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15123-18266-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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15123-18266-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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15123-18266-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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 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--15123-18266-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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15123-18266-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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15123-18266-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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15123-18266-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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15123-18266-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15123-18265-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--15123-18265-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--15123-18265-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--15123-18265-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--17086-20044-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--17086-20044-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--17154-20131 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--15123-18267-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--15123-18267-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--15123-18267-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--15687-18801-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--15687-18801-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--15687-18801-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--18087-21168-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--18370-21184 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--18087-21168-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--18111-21776-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--18111-21776-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--16847-19843-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--16878-19859 '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--15123-18269-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--15123-18268-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--15123-18267-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--17086-20042-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--17086-20042-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--17086-20043-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--17086-20042-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--18087-21031-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--18193-21060 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--18087-21031-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--14422-17674 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--14323-17595 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--16988-20315 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--14832-18050 e-2 e-6 e-10 e-11 arg-0 (TT-Core-getFnArgs 'erased e-10))))))))))))) +(define PartialEval-TTImp-substLoc (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (PartialEval-TTImp-case--14520-17719 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--14421-17640 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--17086-20360 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--14930-18095 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--17989-21075 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--17989-20986-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--17989-21343 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--17989-21123-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--19010-21796 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-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--18087-21120 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--18087-21031-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--18087-21388 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--18087-21168-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--19108-21841 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--14589-17835 '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-4481) (lambda (arg-4482) (Context-Core-full_HasNames__Name arg-4481 arg-4482))) (lambda (arg-4483) (lambda (arg-4484) (Context-Core-resolved_HasNames__Name arg-4483 arg-4484)))) 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-4481) (lambda (arg-4482) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4481 arg-4482))) (lambda (arg-4483) (lambda (arg-4484) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4483 arg-4484)))) 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--15589-18756-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--15892-19175 '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-4481) (lambda (arg-4482) (Context-Core-full_HasNames__Name arg-4481 arg-4482))) (lambda (arg-4483) (lambda (arg-4484) (Context-Core-resolved_HasNames__Name arg-4483 arg-4484)))) 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 "\u000a" (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-26 (vector-ref sc2 6))) (let ((e-25 (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-26 e-25 e-7 e-8 e-9 e-10 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))))))))))))))))))))))))))) 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-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--14687-17880 '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-4524) (lambda (arg-4525) (Context-Core-full_HasNames__Name arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__Name arg-4526 arg-4527)))) 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-4524) (lambda (arg-4525) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4526 arg-4527)))) 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--15687-18801-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--15990-19220 '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-4524) (lambda (arg-4525) (Context-Core-full_HasNames__Name arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__Name arg-4526 arg-4527)))) 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 "\u000a" (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-26 (vector-ref sc2 6))) (let ((e-25 (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-26 e-25 e-7 e-8 e-9 e-10 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))))))))))))))))))))))))))) 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--15025-18590 '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--15505-18686 e-2 e-3 arg-2 arg-1 (NameMap-Data-lookup 'erased e-2 arg-1))))))))) +(define PartialEval-TTImp-getSpecPats (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (PartialEval-TTImp-case--15123-18635 '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--15603-18731 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--16749-19866 '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--14952-18162 '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-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--16847-19911 '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--15050-18207 '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-4481) (lambda (arg-4482) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4481 arg-4482))) (lambda (arg-4483) (lambda (arg-4484) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4483 arg-4484)))) 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-4481) (lambda (arg-4482) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4481 arg-4482))) (lambda (arg-4483) (lambda (arg-4484) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4483 arg-4484)))) 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--13382-16299 (lambda (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--13372-16261-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--13372-16261-addEnv arg-0 arg-1 arg-2 arg-3 arg-5 arg-8 arg-6))))))) -(define Impossible-TTImp-case--12501-16090 (lambda (arg-0 arg-1 arg-2 arg-3 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--12496-15876 (lambda (arg-0 arg-1 arg-2 arg-3 arg-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--12811-15779 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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--12496-15741-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--12496-15634 (lambda (arg-0 arg-1 arg-2 arg-3 arg-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--12567-15537 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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--12496-15516-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--12496-15516-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--12567-15537 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--12496-15516-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--12496-15516-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--12496-15741-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--12811-15779 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--12496-15741-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--12496-15741-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--12270-15243-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--12270-15243-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--12270-15243-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--12270-15243-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--12270-15243-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--13372-16260-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--13372-16262-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--13372-16262-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--13372-16262-applyEnv arg-0 arg-1 arg-2 arg-3 e-4) e-5 e-6))))))(else (TTImp-TTImp-apply arg-4 (Impossible-TTImp-n--13372-16261-addEnv arg-0 arg-1 arg-2 arg-3 arg-0 (TTImp-TTImp-getFC arg-4) arg-2))))))) -(define Impossible-TTImp-n--13372-16261-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--13382-16299 arg-0 arg-1 arg-2 arg-3 e-2 e-3 e-9 e-8 arg-5 (Impossible-TTImp-n--13372-16260-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--12496-15634 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--12496-15516-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--12496-15876 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--12496-15741-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 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-4524) (lambda (arg-4525) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4526 arg-4527)))) 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-4524) (lambda (arg-4525) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4526 arg-4527)))) 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--13476-16344 (lambda (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--13466-16306-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--13466-16306-addEnv arg-0 arg-1 arg-2 arg-3 arg-5 arg-8 arg-6))))))) +(define Impossible-TTImp-case--12595-16135 (lambda (arg-0 arg-1 arg-2 arg-3 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--12590-15921 (lambda (arg-0 arg-1 arg-2 arg-3 arg-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--12905-15824 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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--12590-15786-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--12590-15679 (lambda (arg-0 arg-1 arg-2 arg-3 arg-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--12661-15582 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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--12590-15561-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--12590-15561-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--12661-15582 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--12590-15561-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--12590-15561-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--12590-15786-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--12905-15824 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--12590-15786-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--12590-15786-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--12364-15288-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--12364-15288-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--12364-15288-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--12364-15288-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--12364-15288-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--13466-16305-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--13466-16307-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--13466-16307-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--13466-16307-applyEnv arg-0 arg-1 arg-2 arg-3 e-4) e-5 e-6))))))(else (TTImp-TTImp-apply arg-4 (Impossible-TTImp-n--13466-16306-addEnv arg-0 arg-1 arg-2 arg-3 arg-0 (TTImp-TTImp-getFC arg-4) arg-2))))))) +(define Impossible-TTImp-n--13466-16306-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--13476-16344 arg-0 arg-1 arg-2 arg-3 e-2 e-3 e-9 e-8 arg-5 (Impossible-TTImp-n--13466-16305-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--12590-15679 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--12590-15561-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--12590-15921 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--12590-15786-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--12270-15243-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--13372-16262-applyEnv arg-0 arg-3 arg-2 arg-1 arg-3) (vector 0 ) (vector 0 ) (vector 0 )) ext-0)))))))) +(define Impossible-TTImp-match (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-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--12364-15288-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--13466-16307-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--11179-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--10906-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--10881-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--10906-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--10827-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--10723-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--10704-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--10404-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--10308-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--10289-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--10308-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--10194-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-case--11266-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--10993-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--10968-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--10993-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--10914-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--10810-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--10791-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--10491-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--10395-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--10376-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--10395-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--10281-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-2894) (Prelude-map_Functor__Maybe 'erased 'erased func arg-2894))))) (lambda (a) (lambda (arg-2961) (Prelude-pure_Applicative__Maybe 'erased arg-2961))) (lambda (b) (lambda (a) (lambda (arg-2962) (lambda (arg-2964) (Prelude-C-60C-42C-62_Applicative__Maybe 'erased 'erased arg-2962 arg-2964)))))) (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--10704-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-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--10791-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--10881-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--10404-6881 'erased 'erased arg-4 arg-3 arg-2 (TT-Core-eqTerm 'erased 'erased arg-3 arg-4))))))))(else (Transform-Core-case--10404-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--10194-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-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--10968-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--10491-6881 'erased 'erased arg-4 arg-3 arg-2 (TT-Core-eqTerm 'erased 'erased arg-3 arg-4))))))))(else (Transform-Core-case--10491-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--10281-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--10827-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--10289-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--14725-4670 (lambda (arg-0 arg-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--14693-4645 (lambda (arg-0 arg-1 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--14678-4617 (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--14693-4645 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--14602-4558 (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--14584-4537 (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--14415-4408 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-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--14397-4374 (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--14346-4332 (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--14271-4279 (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--14260-4250 (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--14185-4190 (lambda (arg-0 arg-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--13890-4126 (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--13890-4070 (lambda (arg-0 arg-1 arg-2 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--13890-4004 (lambda (arg-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--13890-3931-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--13904-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)) (cond ((equal? sc0 0) (Termination-Core-n--13890-3931-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--13890-3931-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--13738-3854 (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--13738-3788 (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--13690-3742 (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--13583-3676 (lambda (arg-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--13389-3636 (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--13389-3468-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--13459-3551 (lambda (arg-0 arg-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--13389-3467-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--13389-3467-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--13411-3526 (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--13389-3467-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--13389-3467-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--13389-3467-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--13394-3484 (lambda (arg-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--13389-3467-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--13411-3526 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--13280-3419 (lambda (arg-0 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--12899-3027-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--12899-3365 (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-4481) (lambda (arg-4482) (Context-Core-full_HasNames__Terminating arg-4481 arg-4482))) (lambda (arg-4483) (lambda (arg-4484) (Context-Core-resolved_HasNames__Terminating arg-4483 arg-4484)))) (Termination-Core-n--12899-3021-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--12899-3027-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--13114-3240 (lambda (arg-0 arg-1 arg-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--12912-3216 (lambda (arg-0 arg-1 arg-2 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--12911-3148 (lambda (arg-0 arg-1 arg-2 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--12899-3024-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--12899-3023-updateArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-7 e-2) (Termination-Core-n--12899-3024-mkArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-8)))))))) -(define Termination-Core-case--12795-2937 (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--12538-2778 (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--12538-2740 (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--12538-2706 (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--12210-2513 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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-2851) (lambda (arg-2852) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-2851 arg-2852))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-5)) eta-0))))))))))))) -(define Termination-Core-case--10796-2389 (lambda (arg-0 arg-1 arg-2 arg-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-2851) (lambda (arg-2852) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-2851 arg-2852))) (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-2851) (lambda (arg-2852) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-2851 arg-2852))) (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--10791-2322 (lambda (arg-0 arg-1 arg-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--10791-1921-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--11674-2205 (lambda (arg-0 arg-1 arg-2 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--11674-2097-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--11673-2042 (lambda (arg-0 arg-1 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--10791-1918-lookupTm arg-0 arg-1 arg-2 arg-3 arg-4 'erased 'erased arg-10 arg-9)))))) -(define Termination-Core-case--11673-1954 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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--10791-1918-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--11476-1788 (lambda (arg-0 arg-1 arg-2 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--10787-1748 (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--11476-1788 '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--11375-1709 (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--11339-1664 (lambda (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--10785-1633 (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--11339-1664 'erased arg-1 arg-2 arg-3 arg-4 arg-5 (TT-Core-getFnArgs 'erased arg-1))))))) -(define Termination-Core-case--10781-1589 (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--10927-1436 (lambda (arg-0 arg-1 arg-2 arg-3 arg-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-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-9 arg-8 e-5 arg-10 eta-0))))))))) (else (lambda (eta-0) (Termination-Core-findSCcall arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 arg-9 arg-8 0 arg-10 eta-0))))))) -(define Termination-Core-case--10777-1258 (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) ((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-2851) (lambda (arg-2852) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-2851 arg-2852))) (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-2851) (lambda (arg-2852) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-2851 arg-2852))) (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-2851) (lambda (arg-2852) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-2851 arg-2852))) (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-2851) (lambda (arg-2852) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-2851 arg-2852))) (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-2851) (lambda (arg-2852) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-2851 arg-2852))) (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-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-2851) (lambda (arg-2852) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-2851 arg-2852))) (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-2851) (lambda (arg-2852) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-2851 arg-2852))) (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-2851) (lambda (arg-2852) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-2851 arg-2852))) (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-2851) (lambda (arg-2852) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-2851 arg-2852))) (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-2851) (lambda (arg-2852) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-2851 arg-2852))) (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-2851) (lambda (arg-2852) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-2851 arg-2852))) (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-2851) (lambda (arg-2852) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-2851 arg-2852))) (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-2851) (lambda (arg-2852) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-2851 arg-2852))) (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-2851) (lambda (arg-2852) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-2851 arg-2852))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-5)) eta-0))))))))))))))))))))) -(define Termination-Core-case--10777-1198 (lambda (arg-0 arg-1 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--10386-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-4481) (lambda (arg-4482) (Context-Core-full_HasNames__Terminating arg-4481 arg-4482))) (lambda (arg-4483) (lambda (arg-4484) (Context-Core-resolved_HasNames__Terminating arg-4483 arg-4484)))) (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-4481) (lambda (arg-4482) (Context-Core-full_HasNames__Terminating arg-4481 arg-4482))) (lambda (arg-4483) (lambda (arg-4484) (Context-Core-resolved_HasNames__Terminating arg-4483 arg-4484)))) (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-4481) (lambda (arg-4482) (Context-Core-full_HasNames__Terminating arg-4481 arg-4482))) (lambda (arg-4483) (lambda (arg-4484) (Context-Core-resolved_HasNames__Terminating arg-4483 arg-4484)))) (vector 2 (vector 1 (vector 1 arg-0 (vector 0 )))) eta-0))))))) -(define Termination-Core-case--10364-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-4481) (lambda (arg-4482) (Context-Core-full_HasNames__Terminating arg-4481 arg-4482))) (lambda (arg-4483) (lambda (arg-4484) (Context-Core-resolved_HasNames__Terminating arg-4483 arg-4484)))) (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-4481) (lambda (arg-4482) (Context-Core-full_HasNames__Terminating arg-4481 arg-4482))) (lambda (arg-4483) (lambda (arg-4484) (Context-Core-resolved_HasNames__Terminating arg-4483 arg-4484)))) (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-4481) (lambda (arg-4482) (Context-Core-full_HasNames__Terminating arg-4481 arg-4482))) (lambda (arg-4483) (lambda (arg-4484) (Context-Core-resolved_HasNames__Terminating arg-4483 arg-4484)))) (vector 2 (vector 1 (vector 1 arg-0 (vector 0 )))) eta-0)))))))))) -(define Termination-Core-case--10342-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--10364-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--11674-2097-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--10791-1919-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--10791-1919-updateRHS arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-7 arg-8 e-17) (Termination-Core-n--10791-1919-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--10791-1919-updateRHS arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-7 arg-8 e-22) (Termination-Core-n--10791-1919-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--10791-1919-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--10791-1919-updateRHS arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-7 arg-8 e-31) (Termination-Core-n--10791-1919-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--10791-1919-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--10791-1919-updateRHS arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-7 arg-8 eta-0)) e-40) (Termination-Core-n--10791-1919-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--10791-1919-updateRHS (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (Termination-Core-case--11674-2205 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-8 arg-6 arg-7 (Termination-Core-n--10791-1918-lookupTm arg-0 arg-1 arg-2 arg-3 arg-4 'erased 'erased arg-8 arg-7)))) -(define Termination-Core-n--10791-1920-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--10791-1919-updateRHS arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-3))))))) -(define Termination-Core-n--12899-3023-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--12899-3024-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--12899-3024-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--12911-3148 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-9 e-10 e-3 (Termination-Core-n--12899-3022-getPos arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-1 e-9)))))))))))))))) -(define Termination-Core-n--10791-1921-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--10791-1920-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--10791-1918-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--11673-1954 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--11673-2042 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--12899-3026-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--12899-3026-getWorst arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-3)) ((0) (Termination-Core-n--12899-3026-getWorst arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-3))(else e-2)))))))))) -(define Termination-Core-n--12899-3022-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--12899-3022-getPos arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 'erased e-3 e-4)))))))))))) -(define Termination-Core-n--10777-1160-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--13890-3931-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--13904-3948 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--12899-3027-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--12899-3025-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--12899-3026-getWorst arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 1 ) e-5)) ext-0)))))))) -(define Termination-Core-n--12899-3021-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--12899-3021-checkDesc arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-3 arg-7))))))))))) -(define Termination-Core-n--12899-3025-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--12899-3024-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--12912-3216 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--13389-3467-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--13394-3484 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--13389-3468-addCases (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (Termination-Core-n--13389-3467-addCasesC-39 arg-0 arg-1 arg-2 arg-3 (NameMap-Data-empty 'erased) arg-4))) +(define Transform-Core-apply (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (vector 0 1 arg-2)) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Transform-Core-case--10914-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--10376-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--15607-5377 (lambda (arg-0 arg-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--15575-5352 (lambda (arg-0 arg-1 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--15560-5324 (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--15575-5352 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--15484-5265 (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--15466-5244 (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--15297-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) (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--15279-5081 (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--15228-5039 (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--15153-4986 (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--15142-4957 (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--15067-4897 (lambda (arg-0 arg-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--14772-4833 (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--14772-4777 (lambda (arg-0 arg-1 arg-2 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--14772-4711 (lambda (arg-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--14772-4638-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--14786-4655 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (cond ((equal? sc0 0) (Termination-Core-n--14772-4638-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--14772-4638-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--14620-4561 (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--14620-4495 (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--14572-4449 (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--14465-4383 (lambda (arg-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--14271-4343 (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--14271-4175-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--14341-4258 (lambda (arg-0 arg-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--14271-4174-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--14271-4174-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--14293-4233 (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--14271-4174-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--14271-4174-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--14271-4174-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--14276-4191 (lambda (arg-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--14271-4174-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--14293-4233 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--14162-4126 (lambda (arg-0 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--13781-3734-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--13781-4072 (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-4524) (lambda (arg-4525) (Context-Core-full_HasNames__Terminating arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__Terminating arg-4526 arg-4527)))) (Termination-Core-n--13781-3728-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--13781-3734-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--13996-3947 (lambda (arg-0 arg-1 arg-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--13794-3923 (lambda (arg-0 arg-1 arg-2 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--13793-3855 (lambda (arg-0 arg-1 arg-2 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--13781-3731-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--13781-3730-updateArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-7 e-2) (Termination-Core-n--13781-3731-mkArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-8)))))))) +(define Termination-Core-case--13677-3644 (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--13420-3485 (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--13420-3447 (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--13420-3413 (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--13092-3220 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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-2851) (lambda (arg-2852) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-2851 arg-2852))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-5)) eta-0))))))))))))) +(define Termination-Core-case--11366-3096 (lambda (arg-0 arg-1 arg-2 arg-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-2851) (lambda (arg-2852) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-2851 arg-2852))) (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-2851) (lambda (arg-2852) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-2851 arg-2852))) (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--11361-3029 (lambda (arg-0 arg-1 arg-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--11361-2628-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--12556-2912 (lambda (arg-0 arg-1 arg-2 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--12556-2804-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--12555-2749 (lambda (arg-0 arg-1 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--11361-2625-lookupTm arg-0 arg-1 arg-2 arg-3 arg-4 'erased 'erased arg-10 arg-9)))))) +(define Termination-Core-case--12555-2661 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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--11361-2625-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--12358-2495 (lambda (arg-0 arg-1 arg-2 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--11357-2455 (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--12358-2495 '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--12257-2416 (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--12221-2371 (lambda (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--11355-2340 (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--12221-2371 'erased arg-1 arg-2 arg-3 arg-4 arg-5 (TT-Core-getFnArgs 'erased arg-1))))))) +(define Termination-Core-case--11351-2296 (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--11707-2125 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-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--11665-1868 (lambda (arg-0 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-2851) (lambda (arg-2852) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-2851 arg-2852))) (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-2851) (lambda (arg-2852) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-2851 arg-2852))) (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-2851) (lambda (arg-2852) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-2851 arg-2852))) (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-2851) (lambda (arg-2852) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-2851 arg-2852))) (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-2851) (lambda (arg-2852) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-2851 arg-2852))) (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-2851) (lambda (arg-2852) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-2851 arg-2852))) (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-2851) (lambda (arg-2852) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-2851 arg-2852))) (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-2851) (lambda (arg-2852) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-2851 arg-2852))) (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-2851) (lambda (arg-2852) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-2851 arg-2852))) (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-2851) (lambda (arg-2852) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-2851 arg-2852))) (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-2851) (lambda (arg-2852) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-2851 arg-2852))) (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-2851) (lambda (arg-2852) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-2851 arg-2852))) (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-2851) (lambda (arg-2852) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-2851 arg-2852))) (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-2851) (lambda (arg-2852) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-2851 arg-2852))) (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-2851) (lambda (arg-2852) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-2851 arg-2852))) (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-2851) (lambda (arg-2852) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-2851 arg-2852))) (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-2851) (lambda (arg-2852) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-2851 arg-2852))) (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-2851) (lambda (arg-2852) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-2851 arg-2852))) (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-2851) (lambda (arg-2852) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-2851 arg-2852))) (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-2851) (lambda (arg-2852) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-2851 arg-2852))) (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-2851) (lambda (arg-2852) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-2851 arg-2852))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-5)) eta-0))))))))))))))))))))) +(define Termination-Core-case--11347-1833 (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--11347-1692-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--11665-1868 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--11521-1740 (lambda (arg-0 arg-1 arg-2 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--11502-1712 (lambda (arg-0 arg-1 arg-2 arg-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--11521-1740 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--11347-1628 (lambda (arg-0 arg-1 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--10618-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--10618-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--10626-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--10618-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--10856-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--10618-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--10625-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--10618-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--10737-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--10624-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--10737-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--10623-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--10473-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-4524) (lambda (arg-4525) (Context-Core-full_HasNames__Terminating arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__Terminating arg-4526 arg-4527)))) (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-4524) (lambda (arg-4525) (Context-Core-full_HasNames__Terminating arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__Terminating arg-4526 arg-4527)))) (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-4524) (lambda (arg-4525) (Context-Core-full_HasNames__Terminating arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__Terminating arg-4526 arg-4527)))) (vector 2 (vector 1 (vector 1 arg-0 (vector 0 )))) eta-0))))))) +(define Termination-Core-case--10451-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-4524) (lambda (arg-4525) (Context-Core-full_HasNames__Terminating arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__Terminating arg-4526 arg-4527)))) (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-4524) (lambda (arg-4525) (Context-Core-full_HasNames__Terminating arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__Terminating arg-4526 arg-4527)))) (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-4524) (lambda (arg-4525) (Context-Core-full_HasNames__Terminating arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__Terminating arg-4526 arg-4527)))) (vector 2 (vector 1 (vector 1 arg-0 (vector 0 )))) eta-0)))))))))) +(define Termination-Core-case--10429-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--10451-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--12556-2804-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--11361-2626-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--11361-2626-updateRHS arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-7 arg-8 e-17) (Termination-Core-n--11361-2626-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--11361-2626-updateRHS arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-7 arg-8 e-22) (Termination-Core-n--11361-2626-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--11361-2626-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--11361-2626-updateRHS arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-7 arg-8 e-31) (Termination-Core-n--11361-2626-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--11361-2626-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--11361-2626-updateRHS arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-7 arg-8 eta-0)) e-40) (Termination-Core-n--11361-2626-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--11361-2626-updateRHS (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (Termination-Core-case--12556-2912 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-8 arg-6 arg-7 (Termination-Core-n--11361-2625-lookupTm arg-0 arg-1 arg-2 arg-3 arg-4 'erased 'erased arg-8 arg-7)))) +(define Termination-Core-n--11361-2627-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--11361-2626-updateRHS arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-3))))))) +(define Termination-Core-n--13781-3730-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--13781-3731-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--13781-3731-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--13793-3855 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-9 e-10 e-3 (Termination-Core-n--13781-3729-getPos arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-1 e-9)))))))))))))))) +(define Termination-Core-n--11361-2628-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--11361-2627-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--11361-2625-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--12555-2661 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--12555-2749 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--10618-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--10618-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--10618-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--10618-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--13781-3733-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--13781-3733-getWorst arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-3)) ((0) (Termination-Core-n--13781-3733-getWorst arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-3))(else e-2)))))))))) +(define Termination-Core-n--13781-3729-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--13781-3729-getPos arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 'erased e-3 e-4)))))))))))) +(define Termination-Core-n--11347-1590-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--14772-4638-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--14786-4655 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--13781-3734-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--13781-3732-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--13781-3733-getWorst arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 1 ) e-5)) ext-0)))))))) +(define Termination-Core-n--11347-1692-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--11521-1740 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--10618-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--10737-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--13781-3728-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--13781-3728-checkDesc arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-3 arg-7))))))))))) +(define Termination-Core-n--13781-3732-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--13781-3731-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--13794-3923 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--10618-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--10618-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--10618-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--14271-4174-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--14276-4191 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--14271-4175-addCases (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (Termination-Core-n--14271-4174-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--10364-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--10785-1633 '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--10781-1589 'erased arg-5 arg-4 arg-3 arg-2 (TT-Core-C-61C-61_Eq__C-40TermC-32C-36varsC-41 'erased arg-4 arg-5)))(else (Termination-Core-smallerArg 'erased arg-1 arg-2 arg-3 arg-4 arg-5))))))))) +(define Termination-Core-totRefs (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (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--10451-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--11355-2340 '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--11351-2296 '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--13890-3931-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-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--14772-4638-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--13738-3854 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-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--14620-4561 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-2851) (lambda (arg-2852) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-2851 arg-2852))) (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--10791-1921-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-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--11361-2628-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-2851) (lambda (arg-2852) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-2851 arg-2852))) (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-2851) (lambda (arg-2852) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-2851 arg-2852))) (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-6 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 2))) (let ((e-8 (vector-ref sc0 3))) (let ((e-9 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-15 ((Termination-Core-n--10777-1160-findSCbinder e-7 arg-0 e-9 e-8 e-6 arg-5 arg-4 arg-3 arg-2 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))) (let ((act-16 ((Termination-Core-findSC (vector 1 e-7 arg-0) arg-1 arg-2 (vector 1 e-8 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-7 arg-0 e-3)))))) 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-10 (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-10)) 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-4 (vector-ref sc1 4))) (Termination-Core-findSC arg-0 arg-1 arg-2 arg-3 (vector 3 ) arg-5 e-4)))(else (Termination-Core-case--10777-1258 arg-0 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (vector 0 arg-4 (TT-Core-getFnArgs 'erased arg-6)))))))(else (Termination-Core-case--10777-1258 arg-0 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (vector 0 arg-4 (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-4481) (lambda (arg-4482) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4481 arg-4482))) (lambda (arg-4483) (lambda (arg-4484) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4483 arg-4484)))) 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 e-9) eta-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--11347-1590-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--11347-1833 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--11347-1833 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-4524) (lambda (arg-4525) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4526 arg-4527)))) 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 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--14678-4617 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--13690-3742 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--12899-3365 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-4481) (lambda (arg-4482) (Context-Core-full_HasNames__Name arg-4481 arg-4482))) (lambda (arg-4483) (lambda (arg-4484) (Context-Core-resolved_HasNames__Name arg-4483 arg-4484)))) 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--14584-4537 arg-2 arg-1 arg-0 e-5 e-6 (let ((sc2 e-6)) (let ((e-0 (vector-ref sc2 1))) e-0))) ext-0))))))))))))) +(define Termination-Core-checkTotal (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-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--15560-5324 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--14572-4449 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--13781-4072 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-4524) (lambda (arg-4525) (Context-Core-full_HasNames__Name arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__Name arg-4526 arg-4527)))) 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--15466-5244 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--10618-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--13389-3468-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-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--14271-4175-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--10787-1748 'erased arg-2 arg-1 (TT-Core-getFnArgs 'erased arg-2)))) -(define Coverage-Core-case--12703-9019 (lambda (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--12698-8984-tryClauses arg-0 arg-1 arg-2 arg-7 arg-8) eta-0))))))))))) -(define Coverage-Core-case--12436-8788 (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--12436-8728-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--12441-8744 (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--12436-8728-dropPos 'erased arg-1 arg-2 arg-7 (+ 1 arg-6) arg-5 arg-4))) (else (vector 1 arg-3 (Coverage-Core-n--12436-8728-dropPos 'erased arg-1 arg-2 arg-7 (+ 1 arg-6) arg-5 arg-4))))))) -(define Coverage-Core-case--12081-8507 (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--12081-8403-notCovering arg-0 arg-1 arg-2 arg-3 eta-0 eta-1))) (List-Data-mapMaybe 'erased 'erased (lambda (eta-0) (Coverage-Core-n--12081-8402-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--12109-8443 (lambda (arg-0 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--12087-8427 (lambda (arg-0 arg-1 arg-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--12109-8443 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--11524-7906 (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--11428-7815 (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--11138-7577 (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--11138-7517 (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--10713-7265 (lambda (arg-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--10713-7124-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--10739-7160 (lambda (arg-0 arg-1 arg-2 arg-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--10731-7134 (lambda (arg-0 arg-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--10739-7160 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--10541-6993 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16) (let ((sc0 arg-16)) (cond ((equal? sc0 0) (Core-Core-allM 'erased (lambda (eta-0) (lambda (eta-1) (Coverage-Core-conflict arg-0 arg-6 (vector 3 arg-5 arg-4 arg-3 arg-2 arg-1) eta-0 eta-1))) arg-13)) (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--10523-6962 (lambda (arg-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-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--10541-6993 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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--10438-6894 (lambda (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) ((5) (lambda (eta-0) (let ((act-15 ((Normalise-Core-nf (vector 0 ) arg-3 (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--10164-6645-conflictNF arg-0 arg-1 arg-2 arg-3 arg-2 e-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))))))))(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--10164-6876 (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))) (Coverage-Core-case--10438-6894 arg-0 arg-1 arg-2 arg-3 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--10173-6788 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (cond ((equal? sc0 0) (Coverage-Core-n--10164-6644-conflictArgs arg-0 arg-1 arg-2 arg-3 arg-6 arg-10)) (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--10173-6713 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (cond ((equal? sc0 0) (Coverage-Core-n--10164-6644-conflictArgs arg-0 arg-1 arg-2 arg-3 arg-6 arg-10)) (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-n--12698-8984-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--12698-8984-tryClauses arg-0 arg-1 arg-2 e-3 arg-4) eta-0))))))))))))))))))))))))) -(define Coverage-Core-n--11720-8063-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--12081-8403-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--12109-8443 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--11138-7613-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--12081-8402-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--12614-8900-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--12614-8900-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--11138-7561-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--11138-7501-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--10968-7345-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--11720-8064-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--11720-8064-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--11720-8064-dropRep arg-0 arg-1 arg-2 arg-3 arg-4 e-3)))))))))))) -(define Coverage-Core-n--12436-8728-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--12441-8744 '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--10164-6645-conflictNF (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-31 (vector-ref sc0 1))) (let ((e-34 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-15 (((e-34 arg-3) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-31 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))) ((Coverage-Core-n--10164-6645-conflictNF arg-0 arg-1 arg-2 arg-3 arg-4 e-5) eta-0))))))))))(else (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((2) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (let ((sc1 arg-5)) (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--10173-6713 arg-0 arg-1 arg-2 arg-3 e-16 e-1 e-5 e-4 e-3 e-2 e-20 e-19 e-18 e-17 (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 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-5)) (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--10173-6788 arg-0 arg-1 arg-2 arg-3 e-22 e-7 e-11 e-10 e-9 e-8 e-26 e-25 e-24 e-23 (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 1) eta-0))))))))))) ((8) (let ((e-14 (vector-ref sc0 2))) (let ((sc1 arg-5)) (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 Coverage-Core-n--10164-6644-conflictArgs (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 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)))))) ((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-evalClosure arg-0 arg-3 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-3 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--10164-6645-conflictNF arg-0 arg-1 arg-2 arg-3 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 ((act-18 ((Coverage-Core-n--10164-6644-conflictArgs arg-0 arg-1 arg-2 arg-3 e-3 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-10 (vector-ref sc5 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 Coverage-Core-n--12614-8901-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--12614-8900-mkSubstEnv arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 0 arg-7) arg-8))) -(define Coverage-Core-n--11821-8150-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--11821-8149-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--11821-8150-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--11821-8149-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--11821-8150-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--11821-8149-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--10713-7124-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--10739-7160 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 Termination-Core-asserted (lambda (arg-0 arg-1 arg-2) (Termination-Core-case--11357-2455 'erased arg-2 arg-1 (TT-Core-getFnArgs 'erased arg-2)))) +(define Coverage-Core-case--13806-9900 (lambda (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--13801-9865-tryClauses arg-0 arg-1 arg-2 arg-7 arg-8) eta-0))))))))))) +(define Coverage-Core-case--13539-9669 (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--13539-9609-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--13544-9625 (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--13539-9609-dropPos 'erased arg-1 arg-2 arg-7 (+ 1 arg-6) arg-5 arg-4))) (else (vector 1 arg-3 (Coverage-Core-n--13539-9609-dropPos 'erased arg-1 arg-2 arg-7 (+ 1 arg-6) arg-5 arg-4))))))) +(define Coverage-Core-case--13184-9388 (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--13184-9284-notCovering arg-0 arg-1 arg-2 arg-3 eta-0 eta-1))) (List-Data-mapMaybe 'erased 'erased (lambda (eta-0) (Coverage-Core-n--13184-9283-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--13212-9324 (lambda (arg-0 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--13190-9308 (lambda (arg-0 arg-1 arg-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--13212-9324 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--12627-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--12531-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--12193-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--12193-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--12193-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--11768-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--11768-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--11794-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--11786-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--11794-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--11575-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--11554-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--11575-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--11398-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--11369-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--10767-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--10767-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--11369-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--10779-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--10779-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--10767-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--10779-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--10767-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--10817-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--10778-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--10767-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--10251-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--10273-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--10251-6656-conflictArgs arg-0 arg-1 arg-2 arg-3 arg-8 arg-7 arg-6)))))) +(define Coverage-Core-case--10585-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--10251-6655-conflictTm arg-0 arg-1 arg-2 arg-3 eta-0 eta-1))) arg-7 arg-9))))))) +(define Coverage-Core-case--10556-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--10585-6961 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-2 e-3 (Coverage-Core-n--10251-6653-clash arg-0 arg-1 arg-2 arg-3 arg-6 e-2))))))) +(define Coverage-Core-case--10272-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--10556-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--10272-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--10251-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--10272-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--10251-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--10271-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--10251-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--13801-9865-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--13801-9865-tryClauses arg-0 arg-1 arg-2 e-3 arg-4) eta-0))))))))))))))))))))))))) +(define Coverage-Core-n--12823-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--13184-9284-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--13212-9324 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--12193-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--13184-9283-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--13717-9781-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--13717-9781-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--12193-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--12193-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--10251-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--10271-6705 arg-0 arg-1 arg-2 arg-3 arg-5 arg-4 (TT-Core-getFnArgs 'erased arg-5))))))) +(define Coverage-Core-n--12023-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--12823-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--12823-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--12823-8945-dropRep arg-0 arg-1 arg-2 arg-3 arg-4 e-3)))))))))))) +(define Coverage-Core-n--13539-9609-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--13544-9625 '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--10251-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--10272-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--10272-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--10272-6915 arg-0 arg-1 arg-2 arg-3 arg-5 arg-4 (TT-Core-getFnArgs 'erased arg-4)))))))))) +(define Coverage-Core-n--10767-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--10767-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--10779-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--10779-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--10779-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--10779-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--10779-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--10779-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--10779-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--10779-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--10779-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--10779-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--10779-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--10779-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--10767-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--10767-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--10767-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--10251-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--10273-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--10251-6655-conflictTm arg-0 arg-1 arg-2 arg-3 arg-5 e-7)))))))))))))) +(define Coverage-Core-n--13717-9782-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--13717-9781-mkSubstEnv arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 0 arg-7) arg-8))) +(define Coverage-Core-n--10251-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--12924-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--12924-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--12924-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--12924-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--12924-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--12924-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--11768-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--11794-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--11720-8063-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--11720-8064-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-2851) (lambda (arg-2852) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-2851 arg-2852))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-5))) eta-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--12823-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--12823-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-2851) (lambda (arg-2852) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-2851 arg-2852))) (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) (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-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--10541-6993 arg-0 e-5 e-4 e-3 e-2 e-1 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--12081-8403-notCovering arg-2 arg-1 arg-0 e-5 eta-0 eta-1))) (List-Data-mapMaybe 'erased 'erased (lambda (eta-0) (Coverage-Core-n--12081-8402-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))) (Coverage-Core-case--11138-7517 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--11138-7501-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--11138-7577 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--11138-7561-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--11138-7613-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-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--11575-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--13184-9284-notCovering arg-2 arg-1 arg-0 e-5 eta-0 eta-1))) (List-Data-mapMaybe 'erased 'erased (lambda (eta-0) (Coverage-Core-n--13184-9283-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--12193-8342 arg-0 e-1 arg-4 arg-2 arg-1 (List-Data-isNil 'erased arg-4)))(else (Coverage-Core-case--12193-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--12193-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--12193-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--12193-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--12193-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--10713-7124-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-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--11768-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--11428-7815 '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--12436-8788 '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--10968-7345-emptyRHSalt e-1 e-0 e-5 e-4 e-2 'erased arg-1 eta-0)) e-5)))))))) ((1) (vector 1 (vector 10 arg-1 1)))(else arg-2))))) -(define Coverage-Core-conflict (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-15 ((Context-Core-lookupCtxtExact 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) ((1) (let ((e-1 (vector-ref sc1 1))) (let ((_-0 (vector 1 e-1))) ((Coverage-Core-case--10438-6894 arg-0 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--12614-8901-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-4481) (lambda (arg-4482) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4481 arg-4482))) (lambda (arg-4483) (lambda (arg-4484) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4483 arg-4484)))) 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-4481) (lambda (arg-4482) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4481 arg-4482))) (lambda (arg-4483) (lambda (arg-4484) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4483 arg-4484)))) 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--12698-8984-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--11821-8150-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-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--12531-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--13539-9669 '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--12023-8182-emptyRHSalt e-1 e-0 e-5 e-4 e-2 'erased arg-1 eta-0)) e-5)))))))) ((1) (vector 1 (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--10251-7069 arg-0 e-6 e-7 e-3 (Coverage-Core-n--10251-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--11369-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--13717-9782-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-4524) (lambda (arg-4525) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4526 arg-4527)))) 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-4524) (lambda (arg-4525) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4526 arg-4527)))) 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--13801-9865-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--12924-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--11524-7906 '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--14417-4817 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-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) ((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 ((sc3 arg-13)) (case (vector-ref sc3 0) ((2) (let ((newclause (vector 0 e-14 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) (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--14391-4013-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-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--14391-4013-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-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--14391-4013-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-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--14391-4013-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-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--14416-4643 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-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) ((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 ((sc3 arg-12)) (case (vector-ref sc3 0) ((1) (let ((newps (CaseBuilder-Core-newPats 'erased 'erased 'erased (vector 1 arg-17 (vector 1 arg-16 (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-17) (vector 1 (vector 0 e-8 arg-16) (vector 0 )))) (CaseBuilder-Core-weakenNs 'erased arg-10 (vector 1 e-7 (vector 1 e-8 (vector 0 ))) arg-15)))) (let ((newclause (vector 0 e-15 (CaseBuilder-Core-C-43C-43 'erased 'erased 'erased newps patsC-39) (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) (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--14391-4012-addDelayG arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-10 arg-9 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--14391-4012-addDelayG arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-10 arg-9 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--14391-4012-addDelayG arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-10 arg-9 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--14391-4012-addDelayG arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-10 arg-9 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--14415-4326 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-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) ((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 ((sc3 arg-15)) (case (vector-ref sc3 0) ((0) (let ((e-29 (vector-ref sc3 1))) (let ((newps (CaseBuilder-Core-newPats 'erased 'erased 'erased arg-12 e-29 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-18)))) (let ((newclause (vector 0 e-16 (CaseBuilder-Core-C-43C-43 'erased 'erased 'erased newps patsC-39) (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) (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--14391-4011-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-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--14391-4011-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-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--14391-4011-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-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--14391-4011-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-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--12633-2500 (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--12671-2517 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--12671-2647 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--12671-2583 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--12671-2647 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--12671-2647 arg-2 arg-1 arg-0 arg-6 arg-4 (CaseBuilder-Core-clauseType 'erased 'erased 'erased arg-4 arg-6))))))))) -(define CaseBuilder-Core-case--18732-7981 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 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--18691-7944 (lambda (arg-0 arg-1 arg-2 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--18732-7981 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--18653-7912 (lambda (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--18732-7981 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--18638-7880 (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--18732-7981 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--18193-7448 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (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 (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-13) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 1 e-4 (vector 0 ) arg-7))) 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-14 (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-14 (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-14 (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--17415-7066 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20) (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-16 arg-15 (vector 4 )) eta-0))))))) -(define CaseBuilder-Core-case--17404-6737 (lambda (arg-0 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--17191-6549 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (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--17115-6469 (lambda (arg-0 arg-1 arg-2 arg-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--16939-6401 (lambda (arg-0 arg-1 arg-2 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--16970-6333 (lambda (arg-0 arg-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--16939-6273 (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--16830-6177 (lambda (arg-0 arg-1 arg-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--16258-5831 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (cond ((equal? sc0 0) (CaseBuilder-Core-n--16232-5646-samePatAs 'erased 'erased 'erased arg-3 arg-4 (vector 3 arg-7 arg-6) arg-9)) (else 1))))) -(define CaseBuilder-Core-case--16258-5752 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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--16232-5646-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--16258-5673 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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--16232-5646-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--15737-5554 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 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--15737-5215-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--15922-5456 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--15737-5215-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--15774-5359 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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) (Core-Core-throw_Catchable__Core_Error 'erased (vector 42 arg-8 arg-6 (vector 2 (vector 0 arg-2 (vector 0 arg-5 (CaseTree-Core-mkTerm arg-2 (CaseBuilder-Core-n--15737-5213-firstPat 'erased 'erased arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased arg-3)))))) eta-0))) (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 ((Normalise-Core-nf arg-2 e-5 arg-5 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))) ((CaseBuilder-Core-case--15922-5456 'erased 'erased arg-2 arg-3 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 (CaseBuilder-Core-n--15737-5214-headEq 'erased 'erased arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-14 e-6 arg-7)) eta-0))))))))))))))))) -(define CaseBuilder-Core-case--14418-4917 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-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) (CaseBuilder-Core-n--14391-4011-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-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--14416-4483 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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 ((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-14) (vector 1 (vector 0 e-8 arg-13) (vector 0 )))) (CaseBuilder-Core-weakenNs 'erased arg-9 (vector 1 e-5 (vector 1 e-8 (vector 0 ))) arg-12)))) (let ((clause (vector 0 arg-4 (CaseBuilder-Core-C-43C-43 'erased 'erased 'erased e-3 patsC-39) (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--14547-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 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (let ((sc0 arg-17)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (Normalise-Core-nf arg-9 arg-16 (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--14415-4124 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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 (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-15 (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--14415-4040 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 ((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-12)))) (let ((clause (vector 0 arg-4 (CaseBuilder-Core-C-43C-43 'erased 'erased 'erased e-3 patsC-39) (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-15 arg-14 (vector 1 clause (vector 0 ))) (vector 0 ))) eta-0))))))))) -(define CaseBuilder-Core-case--14178-3970 (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--14178-3834-update 'erased 'erased 'erased arg-3 arg-4 arg-5 e-4) e-6)))))))) -(define CaseBuilder-Core-case--14201-3914 (lambda (arg-0 arg-1 arg-2 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--14201-3844 (lambda (arg-0 arg-1 arg-2 arg-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--14178-3834-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--14178-3834-update 'erased 'erased 'erased arg-3 arg-4 arg-5 arg-7)))))))) -(define CaseBuilder-Core-case--14054-3765 (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--13577-3515 (lambda (arg-0 arg-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--13638-3395 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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--13577-3334 (lambda (arg-0 arg-1 arg-2 arg-3 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--13638-3395 arg-0 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--13209-3184 (lambda (arg-0 arg-1 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 3 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (vector 2 )))))))) -(define CaseBuilder-Core-case--13241-3045 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((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-12))(else (vector 3 ))))))(else (vector 3 )))))(else (vector 3 ))))))(else (vector 3 )))))))(else (vector 3 )))))) -(define CaseBuilder-Core-case--13209-2975 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (case (vector-ref sc0 0) ((0) (vector 3 )) (else (let ((e-2 (vector-ref sc0 1))) (CaseBuilder-Core-case--13241-3045 'erased 'erased arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 e-2 (vector 0 (Name-Core-nameEq arg-3 arg-10) (Equality-Decidable-decEq_DecEq__Int arg-2 arg-9))))))))) -(define CaseBuilder-Core-case--12671-2647 (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--12671-2583 (lambda (arg-0 arg-1 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--12671-2517 (lambda (arg-0 arg-1 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--12350-2399 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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 )) (else (CaseBuilder-Core-n--12313-2221-clauseTypeC-39 'erased 'erased 'erased arg-3 arg-4 'erased arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-14)))))) -(define CaseBuilder-Core-case--12350-2304 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-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 1 )) (else (vector 0 )))))) -(define CaseBuilder-Core-case--11300-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--11073-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--10946-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--10946-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--10926-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--10773-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--10529-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--10577-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--10529-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--17424-7160-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 ((sc1 e-3)) (let ((e-8 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (let ((sc2 e-8)) (let ((e-12 (vector-ref sc2 1))) (let ((e-13 (vector-ref sc2 2))) (let ((e-14 (vector-ref sc2 3))) (let ((e-16 (vector-ref sc2 4))) (let ((sc3 e-14)) (case (vector-ref sc3 0) ((6) (let ((e-17 (vector-ref sc3 1))) (let ((e-18 (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-17 (vector 1 1) e-12) e-9) 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 0 (vector 1 e-18 e-2) e-5 (TT-Core-substName arg-1 e-18 (vector 0 e-17 (vector 1 1) e-12) e-4))) eta-0)))))))))) ((0) (let ((e-19 (vector-ref sc3 1))) (let ((e-20 (vector-ref sc3 2))) (let ((e-21 (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-21) e-9) 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 ((rhsC-39 (TT-Core-substName arg-1 e-20 (vector 0 e-19 (vector 1 0) e-12) e-4))) ((CaseBuilder-Core-n--17424-7160-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-12 e-13 e-21 e-16) e-5) 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-14) e-9) 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 e-2 e-5 e-4)) eta-0)))))))))))))))))))))))) -(define CaseBuilder-Core-n--14178-3834-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--14201-3844 '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--14178-3834-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--14178-3834-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--14178-3834-update 'erased 'erased 'erased arg-3 arg-4 arg-5 e-14) (CaseBuilder-Core-n--14178-3834-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--14178-3834-update 'erased 'erased 'erased arg-3 arg-4 arg-5 e-18) (CaseBuilder-Core-n--14178-3834-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--14201-3914 '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--14157-3795-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--18996-8269-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--18996-8268-close arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-4 e-5 e-2 e-6) (CaseBuilder-Core-n--18996-8268-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--11483-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--11483-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--11483-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--11483-1461-showAll arg-0 arg-1 arg-2 arg-3 e-3 e-9))))))))))))))))))))) -(define CaseBuilder-Core-n--15737-5215-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))) (CaseBuilder-Core-case--15774-5359 '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 (Prelude-C-38C-38 (CaseBuilder-Core-C-61C-61_Eq__Phase arg-11 (vector 1 )) (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-5)))))))(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--16232-5646-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--16258-5673 '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--16258-5752 '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--16258-5831 '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--16232-5646-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--16232-5646-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--16232-5646-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--18996-8267-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--18996-8267-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--18179-7374-mkNames (lambda (arg-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)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-8)) (let ((sc2 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-8)) (let ((e-8 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (let ((sc2 arg-9)) (let ((e-16 (vector-ref sc2 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 ((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-10)) (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--18179-7374-mkNames arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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--18996-8266-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--18996-8266-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--15737-5214-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--18504-7765-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--18504-7765-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--12313-2222-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) (let ((sc0 arg-12)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-13)) (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-14)) (case (vector-ref sc2 0) ((0) (let ((e-12 (vector-ref sc2 1))) (let ((e-13 (vector-ref sc2 2))) (CaseBuilder-Core-case--12350-2304 'erased 'erased 'erased arg-3 arg-4 'erased arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 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-10 ((Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-2851) (lambda (arg-2852) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-2851 arg-2852))) (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-13)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 3))) (CaseBuilder-Core-n--12313-2222-getClauseType 'erased 'erased 'erased arg-3 arg-4 'erased arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 e-5 arg-14)))(else (let ((sc2 arg-14)) (case (vector-ref sc2 0) ((0) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (CaseBuilder-Core-case--12350-2399 'erased 'erased 'erased arg-3 arg-4 'erased arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 e-2 e-1 arg-13 arg-12 (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--12313-2221-clauseTypeC-39 'erased 'erased 'erased arg-3 arg-4 'erased arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-13))))))))))))))))(else (let ((sc1 arg-13)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 3))) (CaseBuilder-Core-n--12313-2222-getClauseType 'erased 'erased 'erased arg-3 arg-4 'erased arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 e-5 arg-14)))(else (let ((sc1 arg-14)) (case (vector-ref sc1 0) ((0) (let ((e-1 (vector-ref sc1 1))) (let ((e-2 (vector-ref sc1 2))) (CaseBuilder-Core-case--12350-2399 'erased 'erased 'erased arg-3 arg-4 'erased arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 e-2 e-1 arg-13 arg-12 (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--12313-2221-clauseTypeC-39 'erased 'erased 'erased arg-3 arg-4 'erased arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-13)))))))))))(else (let ((sc0 arg-13)) (case (vector-ref sc0 0) ((0) (let ((e-5 (vector-ref sc0 3))) (CaseBuilder-Core-n--12313-2222-getClauseType 'erased 'erased 'erased arg-3 arg-4 'erased arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 e-5 arg-14)))(else (let ((sc0 arg-14)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (CaseBuilder-Core-case--12350-2399 'erased 'erased 'erased arg-3 arg-4 'erased arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 e-2 e-1 arg-13 arg-12 (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--12313-2221-clauseTypeC-39 'erased 'erased 'erased arg-3 arg-4 'erased arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-13)))))))))))) -(define CaseBuilder-Core-n--18996-8191-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--18996-8191-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--14391-4015-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 ((sc2 e-7)) (let ((e-12 (vector-ref sc2 1))) (let ((e-13 (vector-ref sc2 2))) (let ((sc3 e-12)) (let ((e-16 (vector-ref sc3 1))) (let ((e-18 (vector-ref sc3 3))) (lambda (eta-0) (let ((act-15 ((CaseBuilder-Core-n--14391-4014-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-16 e-18 'erased e-13 e-8 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--14391-4015-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--15737-5213-firstPat (lambda (arg-0 arg-1 arg-2 arg-3 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 1))) (let ((sc1 e-3)) (let ((e-5 (vector-ref sc1 3))) e-5)))))) -(define CaseBuilder-Core-n--16232-5645-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--18996-8268-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--18996-8267-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--12313-2221-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) (let ((sc0 arg-12)) (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--17409-6857-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--17409-6857-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--17409-6857-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--17409-6857-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--14391-4014-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) (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--14391-4014-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 (TT-Core-substName arg-10 e-1 (vector 0 e-0 (vector 1 0) arg-12) arg-16) arg-17))))) ((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--14418-4917 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-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--14391-4011-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)))) ((4) (let ((e-14 (vector-ref sc0 3))) (let ((e-15 (vector-ref sc0 4))) (CaseBuilder-Core-n--14391-4011-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)))) ((5) (let ((e-18 (vector-ref sc0 3))) (let ((e-19 (vector-ref sc0 4))) (CaseBuilder-Core-n--14391-4012-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)))) ((3) (let ((e-21 (vector-ref sc0 2))) (CaseBuilder-Core-n--14391-4013-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)))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-17) eta-0))))))) -(define CaseBuilder-Core-n--14391-4012-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) (let ((sc0 arg-15)) (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) (TT-Core-weakenNs_Weaken__Term arg-9 (vector 1 e-7 (vector 1 e-8 (vector 0 ))) arg-14)))) (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--14416-4643 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-14 arg-13 arg-12 arg-11)))))))) -(define CaseBuilder-Core-n--14391-4013-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) (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 1 (vector 2 arg-11 (vector 1 (vector 0 arg-4 arg-12 arg-13) (vector 0 ))) (vector 0 ))) eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (CaseBuilder-Core-with--14417-4817 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-13 arg-12)))))))) -(define CaseBuilder-Core-n--14391-4011-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) (let ((sc0 arg-16)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-15 ((CaseBuilder-Core-case--14415-4124 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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) (TT-Core-weakenNs_Weaken__Term arg-9 e-2 arg-15)))) (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--14415-4326 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-15 arg-14)))))))) +(define Coverage-Core-addNot (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (vector 1 (vector 0 arg-1 (vector 1 arg-4 (vector 0 ))) (vector 0 ))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (Coverage-Core-case--12627-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--14504-4817 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-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) ((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 ((sc3 arg-13)) (case (vector-ref sc3 0) ((2) (let ((newclause (vector 0 e-14 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) (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--14478-4013-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-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--14478-4013-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-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--14478-4013-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-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--14478-4013-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-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--14503-4643 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-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) ((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 ((sc3 arg-12)) (case (vector-ref sc3 0) ((1) (let ((newps (CaseBuilder-Core-newPats 'erased 'erased 'erased (vector 1 arg-17 (vector 1 arg-16 (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-17) (vector 1 (vector 0 e-8 arg-16) (vector 0 )))) (CaseBuilder-Core-weakenNs 'erased arg-10 (vector 1 e-7 (vector 1 e-8 (vector 0 ))) arg-15)))) (let ((newclause (vector 0 e-15 (CaseBuilder-Core-C-43C-43 'erased 'erased 'erased newps patsC-39) (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) (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--14478-4012-addDelayG arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-10 arg-9 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--14478-4012-addDelayG arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-10 arg-9 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--14478-4012-addDelayG arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-10 arg-9 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--14478-4012-addDelayG arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-10 arg-9 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--14502-4326 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-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) ((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 ((sc3 arg-15)) (case (vector-ref sc3 0) ((0) (let ((e-29 (vector-ref sc3 1))) (let ((newps (CaseBuilder-Core-newPats 'erased 'erased 'erased arg-12 e-29 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-18)))) (let ((newclause (vector 0 e-16 (CaseBuilder-Core-C-43C-43 'erased 'erased 'erased newps patsC-39) (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) (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--14478-4011-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-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--14478-4011-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-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--14478-4011-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-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--14478-4011-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-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--12720-2500 (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--12758-2517 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--12758-2647 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--12758-2583 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--12758-2647 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--12758-2647 arg-2 arg-1 arg-0 arg-6 arg-4 (CaseBuilder-Core-clauseType 'erased 'erased 'erased arg-4 arg-6))))))))) +(define CaseBuilder-Core-case--18819-7981 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 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--18778-7944 (lambda (arg-0 arg-1 arg-2 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--18819-7981 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--18740-7912 (lambda (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--18819-7981 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--18725-7880 (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--18819-7981 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--18280-7448 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (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 (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-13) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 1 e-4 (vector 0 ) arg-7))) 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-14 (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-14 (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-14 (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--17502-7066 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20) (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-16 arg-15 (vector 4 )) eta-0))))))) +(define CaseBuilder-Core-case--17491-6737 (lambda (arg-0 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--17278-6549 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (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--17202-6469 (lambda (arg-0 arg-1 arg-2 arg-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--17026-6401 (lambda (arg-0 arg-1 arg-2 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--17057-6333 (lambda (arg-0 arg-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--17026-6273 (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--16917-6177 (lambda (arg-0 arg-1 arg-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--16345-5831 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (cond ((equal? sc0 0) (CaseBuilder-Core-n--16319-5646-samePatAs 'erased 'erased 'erased arg-3 arg-4 (vector 3 arg-7 arg-6) arg-9)) (else 1))))) +(define CaseBuilder-Core-case--16345-5752 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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--16319-5646-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--16345-5673 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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--16319-5646-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--15824-5554 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 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--15824-5215-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--16009-5456 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--15824-5215-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--15861-5359 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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) (Core-Core-throw_Catchable__Core_Error 'erased (vector 42 arg-8 arg-6 (vector 2 (vector 0 arg-2 (vector 0 arg-5 (CaseTree-Core-mkTerm arg-2 (CaseBuilder-Core-n--15824-5213-firstPat 'erased 'erased arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased arg-3)))))) eta-0))) (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 ((Normalise-Core-nf arg-2 e-5 arg-5 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))) ((CaseBuilder-Core-case--16009-5456 'erased 'erased arg-2 arg-3 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 (CaseBuilder-Core-n--15824-5214-headEq 'erased 'erased arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-14 e-6 arg-7)) eta-0))))))))))))))))) +(define CaseBuilder-Core-case--14505-4917 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-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) (CaseBuilder-Core-n--14478-4011-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-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--14503-4483 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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 ((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-14) (vector 1 (vector 0 e-8 arg-13) (vector 0 )))) (CaseBuilder-Core-weakenNs 'erased arg-9 (vector 1 e-5 (vector 1 e-8 (vector 0 ))) arg-12)))) (let ((clause (vector 0 arg-4 (CaseBuilder-Core-C-43C-43 'erased 'erased 'erased e-3 patsC-39) (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--14634-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 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (let ((sc0 arg-17)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (Normalise-Core-nf arg-9 arg-16 (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--14502-4124 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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 (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-15 (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--14502-4040 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 ((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-12)))) (let ((clause (vector 0 arg-4 (CaseBuilder-Core-C-43C-43 'erased 'erased 'erased e-3 patsC-39) (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-15 arg-14 (vector 1 clause (vector 0 ))) (vector 0 ))) eta-0))))))))) +(define CaseBuilder-Core-case--14265-3970 (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--14265-3834-update 'erased 'erased 'erased arg-3 arg-4 arg-5 e-4) e-6)))))))) +(define CaseBuilder-Core-case--14288-3914 (lambda (arg-0 arg-1 arg-2 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--14288-3844 (lambda (arg-0 arg-1 arg-2 arg-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--14265-3834-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--14265-3834-update 'erased 'erased 'erased arg-3 arg-4 arg-5 arg-7)))))))) +(define CaseBuilder-Core-case--14141-3765 (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--13664-3515 (lambda (arg-0 arg-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--13725-3395 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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--13664-3334 (lambda (arg-0 arg-1 arg-2 arg-3 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--13725-3395 arg-0 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--13296-3184 (lambda (arg-0 arg-1 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 3 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (vector 2 )))))))) +(define CaseBuilder-Core-case--13328-3045 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((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-12))(else (vector 3 ))))))(else (vector 3 )))))(else (vector 3 ))))))(else (vector 3 )))))))(else (vector 3 )))))) +(define CaseBuilder-Core-case--13296-2975 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (case (vector-ref sc0 0) ((0) (vector 3 )) (else (let ((e-2 (vector-ref sc0 1))) (CaseBuilder-Core-case--13328-3045 'erased 'erased arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 e-2 (vector 0 (Name-Core-nameEq arg-3 arg-10) (Equality-Decidable-decEq_DecEq__Int arg-2 arg-9))))))))) +(define CaseBuilder-Core-case--12758-2647 (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--12758-2583 (lambda (arg-0 arg-1 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--12758-2517 (lambda (arg-0 arg-1 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--12437-2399 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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 )) (else (CaseBuilder-Core-n--12400-2221-clauseTypeC-39 'erased 'erased 'erased arg-3 arg-4 'erased arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-14)))))) +(define CaseBuilder-Core-case--12437-2304 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-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 1 )) (else (vector 0 )))))) +(define CaseBuilder-Core-case--11387-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--11160-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--11033-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--11033-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--11013-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--10860-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--10616-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--10664-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--10616-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--17511-7160-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 ((sc1 e-3)) (let ((e-8 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (let ((sc2 e-8)) (let ((e-12 (vector-ref sc2 1))) (let ((e-13 (vector-ref sc2 2))) (let ((e-14 (vector-ref sc2 3))) (let ((e-16 (vector-ref sc2 4))) (let ((sc3 e-14)) (case (vector-ref sc3 0) ((6) (let ((e-17 (vector-ref sc3 1))) (let ((e-18 (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-17 (vector 1 1) e-12) e-9) 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 0 (vector 1 e-18 e-2) e-5 (TT-Core-substName arg-1 e-18 (vector 0 e-17 (vector 1 1) e-12) e-4))) eta-0)))))))))) ((0) (let ((e-19 (vector-ref sc3 1))) (let ((e-20 (vector-ref sc3 2))) (let ((e-21 (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-21) e-9) 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 ((rhsC-39 (TT-Core-substName arg-1 e-20 (vector 0 e-19 (vector 1 0) e-12) e-4))) ((CaseBuilder-Core-n--17511-7160-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-12 e-13 e-21 e-16) e-5) 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-14) e-9) 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 e-2 e-5 e-4)) eta-0)))))))))))))))))))))))) +(define CaseBuilder-Core-n--14265-3834-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--14288-3844 '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--14265-3834-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--14265-3834-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--14265-3834-update 'erased 'erased 'erased arg-3 arg-4 arg-5 e-14) (CaseBuilder-Core-n--14265-3834-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--14265-3834-update 'erased 'erased 'erased arg-3 arg-4 arg-5 e-18) (CaseBuilder-Core-n--14265-3834-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--14288-3914 '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--14244-3795-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--19083-8269-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--19083-8268-close arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-4 e-5 e-2 e-6) (CaseBuilder-Core-n--19083-8268-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--11570-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--11570-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--11570-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--11570-1461-showAll arg-0 arg-1 arg-2 arg-3 e-3 e-9))))))))))))))))))))) +(define CaseBuilder-Core-n--15824-5215-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))) (CaseBuilder-Core-case--15861-5359 '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 (Prelude-C-38C-38 (CaseBuilder-Core-C-61C-61_Eq__Phase arg-11 (vector 1 )) (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-5)))))))(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--16319-5646-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--16345-5673 '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--16345-5752 '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--16345-5831 '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--16319-5646-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--16319-5646-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--16319-5646-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--19083-8267-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--19083-8267-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--18266-7374-mkNames (lambda (arg-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)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-8)) (let ((sc2 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-8)) (let ((e-8 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (let ((sc2 arg-9)) (let ((e-16 (vector-ref sc2 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 ((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-10)) (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--18266-7374-mkNames arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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--19083-8266-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--19083-8266-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--15824-5214-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--18591-7765-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--18591-7765-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--12400-2222-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) (let ((sc0 arg-12)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-13)) (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-14)) (case (vector-ref sc2 0) ((0) (let ((e-12 (vector-ref sc2 1))) (let ((e-13 (vector-ref sc2 2))) (CaseBuilder-Core-case--12437-2304 'erased 'erased 'erased arg-3 arg-4 'erased arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 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-10 ((Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-2851) (lambda (arg-2852) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-2851 arg-2852))) (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-13)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 3))) (CaseBuilder-Core-n--12400-2222-getClauseType 'erased 'erased 'erased arg-3 arg-4 'erased arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 e-5 arg-14)))(else (let ((sc2 arg-14)) (case (vector-ref sc2 0) ((0) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (CaseBuilder-Core-case--12437-2399 'erased 'erased 'erased arg-3 arg-4 'erased arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 e-2 e-1 arg-13 arg-12 (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--12400-2221-clauseTypeC-39 'erased 'erased 'erased arg-3 arg-4 'erased arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-13))))))))))))))))(else (let ((sc1 arg-13)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 3))) (CaseBuilder-Core-n--12400-2222-getClauseType 'erased 'erased 'erased arg-3 arg-4 'erased arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 e-5 arg-14)))(else (let ((sc1 arg-14)) (case (vector-ref sc1 0) ((0) (let ((e-1 (vector-ref sc1 1))) (let ((e-2 (vector-ref sc1 2))) (CaseBuilder-Core-case--12437-2399 'erased 'erased 'erased arg-3 arg-4 'erased arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 e-2 e-1 arg-13 arg-12 (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--12400-2221-clauseTypeC-39 'erased 'erased 'erased arg-3 arg-4 'erased arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-13)))))))))))(else (let ((sc0 arg-13)) (case (vector-ref sc0 0) ((0) (let ((e-5 (vector-ref sc0 3))) (CaseBuilder-Core-n--12400-2222-getClauseType 'erased 'erased 'erased arg-3 arg-4 'erased arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 e-5 arg-14)))(else (let ((sc0 arg-14)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (CaseBuilder-Core-case--12437-2399 'erased 'erased 'erased arg-3 arg-4 'erased arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 e-2 e-1 arg-13 arg-12 (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--12400-2221-clauseTypeC-39 'erased 'erased 'erased arg-3 arg-4 'erased arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-13)))))))))))) +(define CaseBuilder-Core-n--19083-8191-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--19083-8191-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--14478-4015-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 ((sc2 e-7)) (let ((e-12 (vector-ref sc2 1))) (let ((e-13 (vector-ref sc2 2))) (let ((sc3 e-12)) (let ((e-16 (vector-ref sc3 1))) (let ((e-18 (vector-ref sc3 3))) (lambda (eta-0) (let ((act-15 ((CaseBuilder-Core-n--14478-4014-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-16 e-18 'erased e-13 e-8 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--14478-4015-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--15824-5213-firstPat (lambda (arg-0 arg-1 arg-2 arg-3 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 1))) (let ((sc1 e-3)) (let ((e-5 (vector-ref sc1 3))) e-5)))))) +(define CaseBuilder-Core-n--16319-5645-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--19083-8268-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--19083-8267-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--12400-2221-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) (let ((sc0 arg-12)) (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--17496-6857-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--17496-6857-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--17496-6857-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--17496-6857-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--14478-4014-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) (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--14478-4014-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 (TT-Core-substName arg-10 e-1 (vector 0 e-0 (vector 1 0) arg-12) arg-16) arg-17))))) ((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--14505-4917 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-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--14478-4011-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)))) ((4) (let ((e-14 (vector-ref sc0 3))) (let ((e-15 (vector-ref sc0 4))) (CaseBuilder-Core-n--14478-4011-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)))) ((5) (let ((e-18 (vector-ref sc0 3))) (let ((e-19 (vector-ref sc0 4))) (CaseBuilder-Core-n--14478-4012-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)))) ((3) (let ((e-21 (vector-ref sc0 2))) (CaseBuilder-Core-n--14478-4013-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)))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-17) eta-0))))))) +(define CaseBuilder-Core-n--14478-4012-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) (let ((sc0 arg-15)) (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) (TT-Core-weakenNs_Weaken__Term arg-9 (vector 1 e-7 (vector 1 e-8 (vector 0 ))) arg-14)))) (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--14503-4643 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-14 arg-13 arg-12 arg-11)))))))) +(define CaseBuilder-Core-n--14478-4013-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) (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 1 (vector 2 arg-11 (vector 1 (vector 0 arg-4 arg-12 arg-13) (vector 0 ))) (vector 0 ))) eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (CaseBuilder-Core-with--14504-4817 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-13 arg-12)))))))) +(define CaseBuilder-Core-n--14478-4011-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) (let ((sc0 arg-16)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-15 ((CaseBuilder-Core-case--14502-4124 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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) (TT-Core-weakenNs_Weaken__Term arg-9 e-2 arg-15)))) (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--14502-4326 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-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-4 (vector-ref sc0 3))) (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-4)))))))) -(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--11483-1461-showAll arg-0 arg-1 arg-2 arg-0 arg-1 arg-2) "]")))) +(define CaseBuilder-Core-show_Show__C-40C-40NamedPatsC-32C-36varsC-41C-32C-36todoC-41 (lambda (arg-0 arg-1 arg-2) (Strings-Prelude-C-43C-43 "[" (Strings-Prelude-C-43C-43 (CaseBuilder-Core-n--11570-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))) @@ -4954,533 +5071,534 @@ (define CaseBuilder-Core-C-61C-61_Eq__Phase (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((0) 0)(else 1)))) ((1) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((1) 0)(else 1))))(else 1))))) (define 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--17424-7160-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--10529-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--10529-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--10529-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--10529-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--14178-3834-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--14157-3795-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--18638-7880 e-2 e-3 arg-2 arg-1 arg-0 (TT-Core-getFnArgs 'erased e-2))))))) +(define CaseBuilder-Core-varRule (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 ext-0) (let ((act-15 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (CaseBuilder-Core-n--17511-7160-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--10616-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--10616-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--10616-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--10616-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--14265-3834-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--14244-3795-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--18725-7880 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--10926-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-substInPatInfo (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (CaseBuilder-Core-case--11013-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 ((sc1 e-3)) (let ((e-8 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (let ((sc2 e-8)) (let ((e-12 (vector-ref sc2 1))) (let ((e-13 (vector-ref sc2 2))) (let ((e-14 (vector-ref sc2 3))) (let ((e-16 (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-14) e-9) 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 e-2 (vector 1 (vector 0 e-12 e-13 e-14 e-16) e-5) e-4)) 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-4481) (lambda (arg-4482) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4481 arg-4482))) (lambda (arg-4483) (lambda (arg-4484) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4483 arg-4484)))) (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-4481) (lambda (arg-4482) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4481 arg-4482))) (lambda (arg-4483) (lambda (arg-4484) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4483 arg-4484)))) (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) "\u000a"))))) 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-2851) (lambda (arg-2852) (Prelude-C-60C-43C-62_Semigroup__String arg-2851 arg-2852))) (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-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-4524) (lambda (arg-4525) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4526 arg-4527)))) (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-4524) (lambda (arg-4525) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4526 arg-4527)))) (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) "\u000a"))))) 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-2851) (lambda (arg-2852) (Prelude-C-60C-43C-62_Semigroup__String arg-2851 arg-2852))) (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))) (vector 0 e-2 (CaseBuilder-Core-moveFirst 'erased 'erased 'erased arg-3 'erased e-3) e-4))))))) -(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--15737-5554 '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--16232-5646-samePatAs 'erased 'erased 'erased e-2 e-3 (CaseBuilder-Core-n--16232-5645-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--16232-5645-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--16939-6273 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--16939-6401 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--18504-7765-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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CaseBuilder-Core-mkPatClause arg-0 arg-1 arg-2 ns arg-4 eta-1)) (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 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--15824-5554 '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--16319-5646-samePatAs 'erased 'erased 'erased e-2 e-3 (CaseBuilder-Core-n--16319-5645-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--16319-5645-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--17026-6273 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--17026-6401 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--18591-7765-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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CaseBuilder-Core-mkPatClause arg-0 arg-1 arg-2 ns arg-4 eta-1)) (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--12633-2500 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--13638-3395 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-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--12720-2500 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--13725-3395 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-2851) (lambda (arg-2852) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-2851 arg-2852))) (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-2851) (lambda (arg-2852) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-2851 arg-2852))) (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) (let ((sc0 arg-5)) (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--18179-7374-mkNames e-2 e-3 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 (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-mkPatClause (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-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--18266-7374-mkNames e-2 e-3 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 (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 ((sc3 e-11)) (let ((sc4 e-12)) (case (vector-ref sc4 0) ((10) (let ((e-16 (vector-ref sc4 2))) (let ((sc5 e-16)) (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)) 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)) 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--14391-4015-gc arg-0 arg-1 arg-2 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-0 arg-1 arg-2 (vector 0 ) arg-8))) +(define CaseBuilder-Core-groupCons (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (CaseBuilder-Core-n--14478-4015-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--18996-8191-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 2 "No clauses"))) 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--18996-8269-toClosed arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 e-5 eta-1)) (CaseBuilder-Core-n--18996-8266-labelPat arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 'erased 0 arg-5)))) (CaseBuilder-Core-simpleCase arg-0 arg-1 arg-2 arg-3 arg-4 (vector 0 ) cs eta-0))))))))))))) +(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--19083-8191-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 2 "No clauses"))) 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--19083-8269-toClosed arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 e-5 eta-1)) (CaseBuilder-Core-n--19083-8266-labelPat arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 'erased 0 arg-5)))) (CaseBuilder-Core-simpleCase arg-0 arg-1 arg-2 arg-3 arg-4 (vector 0 ) cs 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-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-12 (vector-ref sc2 1))) (let ((sc3 e-12)) (let ((e-16 (vector-ref sc3 1))) (let ((e-17 (vector-ref sc3 2))) (let ((e-20 (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-9 (vector-ref sc5 1))) (let ((act-17 (let ((sc6 e-20)) (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-10 (vector-ref sc6 1))) (CaseBuilder-Core-caseGroups e-17 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-16 'erased e-10 e-9 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 ((sc1 e-3)) (let ((e-8 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (let ((sc2 e-8)) (let ((e-12 (vector-ref sc2 1))) (let ((e-13 (vector-ref sc2 2))) (let ((e-14 (vector-ref sc2 3))) (let ((e-16 (vector-ref sc2 4))) (CaseBuilder-Core-n--12313-2222-getClauseType 'erased 'erased 'erased e-12 e-13 'erased e-16 e-14 e-9 e-4 e-2 arg-3 arg-3 e-14 e-16))))))))))))))) -(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))) (CaseBuilder-Core-case--13209-2975 'erased 'erased e-1 e-0 e-5 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-22 (vector-ref sc2 3))) (let ((sc3 e-22)) (case (vector-ref sc3 0) ((1) (let ((e-24 (vector-ref sc3 1))) (let ((sc4 e-24)) (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-34 (vector-ref sc2 1))) (let ((e-35 (vector-ref sc2 2))) (let ((sc3 e-35)) (case (vector-ref sc3 0) ((1) (let ((e-37 (vector-ref sc3 1))) (let ((e-38 (vector-ref sc3 2))) (let ((sc4 e-37)) (case (vector-ref sc4 0) ((0) (let ((e-41 (vector-ref sc4 1))) (let ((e-42 (vector-ref sc4 2))) (let ((e-43 (vector-ref sc4 3))) (CaseBuilder-Core-case--13209-3184 'erased 'erased e-2 e-43 e-42 e-41 e-38 e-34 (TT-Core-constantEq e-2 e-34))))))(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--17409-6857-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 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 ((sc1 e-3)) (let ((e-8 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (let ((sc2 e-8)) (let ((e-12 (vector-ref sc2 1))) (let ((e-13 (vector-ref sc2 2))) (let ((e-14 (vector-ref sc2 3))) (let ((e-16 (vector-ref sc2 4))) (CaseBuilder-Core-n--12400-2222-getClauseType 'erased 'erased 'erased e-12 e-13 'erased e-16 e-14 e-9 e-4 e-2 arg-3 arg-3 e-14 e-16))))))))))))))) +(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))) (CaseBuilder-Core-case--13296-2975 'erased 'erased e-1 e-0 e-5 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-22 (vector-ref sc2 3))) (let ((sc3 e-22)) (case (vector-ref sc3 0) ((1) (let ((e-24 (vector-ref sc3 1))) (let ((sc4 e-24)) (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-34 (vector-ref sc2 1))) (let ((e-35 (vector-ref sc2 2))) (let ((sc3 e-35)) (case (vector-ref sc3 0) ((1) (let ((e-37 (vector-ref sc3 1))) (let ((e-38 (vector-ref sc3 2))) (let ((sc4 e-37)) (case (vector-ref sc4 0) ((0) (let ((e-41 (vector-ref sc4 1))) (let ((e-42 (vector-ref sc4 2))) (let ((e-43 (vector-ref sc4 3))) (CaseBuilder-Core-case--13296-3184 'erased 'erased e-2 e-43 e-42 e-41 e-38 e-34 (TT-Core-constantEq e-2 e-34))))))(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--17496-6857-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--19611-19563 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 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))) (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))))))))))))))))))))))))))) -(define ProcessRecord-TTImp-case--19549-19375 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-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--17876-17890-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--17876-17890-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-25 (vector-ref sc1 3))) e-25)))) (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--17876-17890-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--17876-17890-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-29 (vector-ref sc6 6))) (let ((e-28 (vector-ref sc6 7))) (let ((e-27 (vector-ref sc6 8))) (let ((e-26 (vector-ref sc6 9))) (let ((e-25 (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))) (vector 0 e-0 e-1 cns (vector 1 e-6 nns) e-4 e-29 e-28 e-27 e-26 e-25 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24))))))))))))))))))))))))) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-20) eta-0))))))))))))))))))))))))))))))))) -(define ProcessRecord-TTImp-case--17876-19331 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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--17876-17890-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--17876-17890-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-26 (vector-ref sc3 3))) e-26)))) (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--17876-17890-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--17876-17890-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-32 (vector-ref sc8 2))) (let ((e-4 (vector-ref sc8 5))) (let ((e-30 (vector-ref sc8 6))) (let ((e-29 (vector-ref sc8 7))) (let ((e-28 (vector-ref sc8 8))) (let ((e-27 (vector-ref sc8 9))) (let ((e-26 (vector-ref sc8 10))) (let ((e-25 (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))) (vector 0 e-0 e-32 cns (vector 1 e-7 nns) e-4 e-30 e-29 e-28 e-27 e-26 e-25 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24))))))))))))))))))))))))) 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--18265-19146 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 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--18265-18984 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 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--18265-18820 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 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--18265-18638 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 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--18265-18301 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 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--17902-18222 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 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--17876-17890-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--18265-18301 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 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--17876-17884-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--17876-17886-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--17876-17883-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--17876-17887-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--18265-19146 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 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--18265-18984 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 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--17876-17889-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--18265-18820 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 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--17876-17890-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--18265-18638 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 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--17899-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) (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--17876-17887-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--17899-17969-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--17876-17883-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--17895-17891-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--17876-17886-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--17876-17886-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--17895-17891-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--17876-17884-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--17876-17885-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--17876-17890-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--17902-18222 arg-0 arg-1 arg-2 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--17876-17888-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--17876-17886-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--17876-17883-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--17876-17886-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--17876-17885-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--17876-17887-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--17876-17884-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--17876-17884-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--17876-17889-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--17876-17889-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--17876-17889-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--17899-17969-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--17899-17969-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--17899-17969-apply arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 (vector 9 (TTImp-TTImp-getFC arg-14) arg-14 (vector 1 e-6) e-10) e-3))))))))))))))))) +(define ProcessRecord-TTImp-case--19835-19608 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 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))) (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))))))))))))))))))))))))))) +(define ProcessRecord-TTImp-case--19773-19420 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-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--18100-17935-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--18100-17935-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-25 (vector-ref sc1 3))) e-25)))) (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--18100-17935-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--18100-17935-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-29 (vector-ref sc6 6))) (let ((e-28 (vector-ref sc6 7))) (let ((e-27 (vector-ref sc6 8))) (let ((e-26 (vector-ref sc6 9))) (let ((e-25 (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))) (vector 0 e-0 e-1 cns (vector 1 e-6 nns) e-4 e-29 e-28 e-27 e-26 e-25 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24))))))))))))))))))))))))) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-20) eta-0))))))))))))))))))))))))))))))))) +(define ProcessRecord-TTImp-case--18100-19376 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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--18100-17935-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--18100-17935-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-26 (vector-ref sc3 3))) e-26)))) (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--18100-17935-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--18100-17935-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-32 (vector-ref sc8 2))) (let ((e-4 (vector-ref sc8 5))) (let ((e-30 (vector-ref sc8 6))) (let ((e-29 (vector-ref sc8 7))) (let ((e-28 (vector-ref sc8 8))) (let ((e-27 (vector-ref sc8 9))) (let ((e-26 (vector-ref sc8 10))) (let ((e-25 (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))) (vector 0 e-0 e-32 cns (vector 1 e-7 nns) e-4 e-30 e-29 e-28 e-27 e-26 e-25 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24))))))))))))))))))))))))) 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--18489-19191 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 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--18489-19029 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 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--18489-18865 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 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--18489-18683 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 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--18489-18346 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 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--18126-18267 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 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--18100-17935-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--18489-18346 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 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--18100-17929-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--18100-17931-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--18100-17928-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--18100-17932-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--18489-19191 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 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--18489-19029 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 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--18100-17934-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--18489-18865 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 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--18100-17935-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--18489-18683 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 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--18123-18057 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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--18100-17932-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--18123-18014-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--18100-17928-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--18119-17936-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--18100-17931-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--18100-17931-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--18119-17936-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--18100-17929-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--18100-17930-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--18100-17935-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--18126-18267 arg-0 arg-1 arg-2 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--18100-17933-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--18100-17931-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--18100-17928-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--18100-17931-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--18100-17930-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--18100-17932-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--18100-17929-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--18100-17929-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--18100-17934-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--18100-17934-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--18100-17934-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--18123-18014-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--18123-18014-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--18123-18014-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--17876-17888-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--17876-17890-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--17876-17890-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-30 (vector-ref sc7 3))) e-30)))) (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--17876-17890-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--17876-17890-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-36 (vector-ref sc12 2))) (let ((e-4 (vector-ref sc12 5))) (let ((e-34 (vector-ref sc12 6))) (let ((e-33 (vector-ref sc12 7))) (let ((e-32 (vector-ref sc12 8))) (let ((e-31 (vector-ref sc12 9))) (let ((e-30 (vector-ref sc12 10))) (let ((e-29 (vector-ref sc12 11))) (let ((e-28 (vector-ref sc12 12))) (let ((e-27 (vector-ref sc12 13))) (let ((e-26 (vector-ref sc12 14))) (let ((e-25 (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))) (vector 0 e-0 e-36 cns (vector 1 e-11 nns) e-4 e-34 e-33 e-32 e-31 e-30 e-29 e-28 e-27 e-26 e-25 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24))))))))))))))))))))))))) 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--18018-18093 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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--17910-18010 (lambda (arg-0 arg-1 arg-2 arg-3 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-31 (vector-ref sc4 3))) e-31)) arg-0))) (let ((act-16 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (ProcessParams-TTImp-n--17910-17913-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--17910-17912-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--17910-17912-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--17910-17913-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--17910-17912-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--17910-18010 arg-8 arg-7 arg-6 arg-0 arg-5 arg-4 arg-3 arg-2 arg-1 pty_raw e-5 e-6 e-7 (ProcessParams-TTImp-extend 'erased arg-0 arg-5 (vector 0 ) arg-4 e-7)) eta-0)))))))))))))))))))) +(define ProcessRecord-TTImp-elabRecord (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 ext-0) (let ((act-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--18100-17933-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--18100-17935-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--18100-17935-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-30 (vector-ref sc7 3))) e-30)))) (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--18100-17935-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--18100-17935-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-36 (vector-ref sc12 2))) (let ((e-4 (vector-ref sc12 5))) (let ((e-34 (vector-ref sc12 6))) (let ((e-33 (vector-ref sc12 7))) (let ((e-32 (vector-ref sc12 8))) (let ((e-31 (vector-ref sc12 9))) (let ((e-30 (vector-ref sc12 10))) (let ((e-29 (vector-ref sc12 11))) (let ((e-28 (vector-ref sc12 12))) (let ((e-27 (vector-ref sc12 13))) (let ((e-26 (vector-ref sc12 14))) (let ((e-25 (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))) (vector 0 e-0 e-36 cns (vector 1 e-11 nns) e-4 e-34 e-33 e-32 e-31 e-30 e-29 e-28 e-27 e-26 e-25 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24))))))))))))))))))))))))) 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--18242-18138 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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--18134-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) (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-31 (vector-ref sc4 3))) e-31)) arg-0))) (let ((act-16 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (ProcessParams-TTImp-n--18134-17958-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--18134-17957-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--18134-17957-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--18134-17958-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--18134-17957-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--18134-18055 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--20109-20643 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 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-addHash 'erased arg-13 (vector 0 (lambda (arg-1569) (Hash-Core-hash_Hashable__Name arg-1569)) (lambda (arg-1570) (lambda (arg-1571) (Hash-Core-hashWithSalt_Hashable__Name arg-1570 arg-1571)))) 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-addHash 'erased arg-13 (vector 0 (lambda (arg-1569) (Hash-Core-hash_Hashable__C-40TermC-32C-36varsC-41 'erased arg-1569)) (lambda (arg-1570) (lambda (arg-1571) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased arg-1570 arg-1571)))) arg-21 eta-0))))))))))) -(define ProcessData-TTImp-case--20670-20430 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 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--20550-20353 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 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--20109-20256 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-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--20550-20353 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--20109-19949 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 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--19569-19840 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--20550-20353 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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-addHash 'erased arg-13 (vector 0 (lambda (arg-1569) (Hash-Core-hash_Hashable__Name arg-1569)) (lambda (arg-1570) (lambda (arg-1571) (Hash-Core-hashWithSalt_Hashable__Name arg-1570 arg-1571)))) 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-addHash 'erased arg-13 (vector 0 (lambda (arg-1569) (Hash-Core-hash_Hashable__C-40TermC-32C-36varsC-41 'erased arg-1569)) (lambda (arg-1570) (lambda (arg-1571) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased arg-1570 arg-1571)))) 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--20109-19949 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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--19679-19612 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 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-addHash 'erased arg-11 (vector 0 (lambda (arg-1569) (Hash-Core-hash_Hashable__Name arg-1569)) (lambda (arg-1570) (lambda (arg-1571) (Hash-Core-hashWithSalt_Hashable__Name arg-1570 arg-1571)))) 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-addHash 'erased arg-11 (vector 0 (lambda (arg-1569) (Hash-Core-hash_Hashable__C-40TermC-32C-36varsC-41 'erased arg-1569)) (lambda (arg-1570) (lambda (arg-1571) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased arg-1570 arg-1571)))) arg-19 eta-0))))))))))) -(define ProcessData-TTImp-case--19610-19445 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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-addHash 'erased arg-11 (vector 0 (lambda (arg-1569) (Hash-Core-hash_Hashable__Name arg-1569)) (lambda (arg-1570) (lambda (arg-1571) (Hash-Core-hashWithSalt_Hashable__Name arg-1570 arg-1571)))) 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-addHash 'erased arg-11 (vector 0 (lambda (arg-1569) (Hash-Core-hash_Hashable__C-40TermC-32C-36varsC-41 'erased arg-1569)) (lambda (arg-1570) (lambda (arg-1571) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased arg-1570 arg-1571)))) 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--19569-19389 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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))) (Core-Core-wrapError 'erased (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-addHash 'erased arg-11 (vector 0 (lambda (arg-1569) (Hash-Core-hash_Hashable__Name arg-1569)) (lambda (arg-1570) (lambda (arg-1571) (Hash-Core-hashWithSalt_Hashable__Name arg-1570 arg-1571)))) 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-addHash 'erased arg-11 (vector 0 (lambda (arg-1569) (Hash-Core-hash_Hashable__C-40TermC-32C-36varsC-41 'erased arg-1569)) (lambda (arg-1570) (lambda (arg-1571) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased arg-1570 arg-1571)))) 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--19500-19309 (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--19466-19295 (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--19321-19163 (lambda (arg-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--18740-19098 (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--18767-19042 (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--18766-18995 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (ProcessData-TTImp-n--18740-18625-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--18765-18942 (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--18740-18625-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--18764-18815 (lambda (arg-0 arg-1 arg-2 arg-3 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--18740-18623-disjointArgs arg-0 arg-1 arg-2 e-6 e-7) eta-0)))))))))))))))))))))) -(define ProcessData-TTImp-case--18764-18712 (lambda (arg-0 arg-1 arg-2 arg-3 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--18740-18623-disjointArgs arg-0 arg-1 arg-2 e-6 e-7) eta-0)))))))))))))))))))))) -(define ProcessData-TTImp-case--18763-18659 (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--18740-18623-disjointArgs arg-0 arg-1 arg-2 arg-4 arg-6)))))) -(define ProcessData-TTImp-case--18320-18360 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 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-addHash 'erased arg-12 (vector 0 (lambda (arg-1569) (Hash-Core-hash_Hashable__Name arg-1569)) (lambda (arg-1570) (lambda (arg-1571) (Hash-Core-hashWithSalt_Hashable__Name arg-1570 arg-1571)))) 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-addHash 'erased arg-12 (vector 0 (lambda (arg-1569) (Hash-Core-hash_Hashable__C-40TermC-32C-36varsC-41 'erased arg-1569)) (lambda (arg-1570) (lambda (arg-1571) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased arg-1570 arg-1571)))) 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--18243-18218 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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))) (Core-Core-wrapError 'erased (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-addHash 'erased arg-12 (vector 0 (lambda (arg-1569) (Hash-Core-hash_Hashable__Name arg-1569)) (lambda (arg-1570) (lambda (arg-1571) (Hash-Core-hashWithSalt_Hashable__Name arg-1570 arg-1571)))) 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-addHash 'erased arg-12 (vector 0 (lambda (arg-1569) (Hash-Core-hash_Hashable__C-40TermC-32C-36varsC-41 'erased arg-1569)) (lambda (arg-1570) (lambda (arg-1571) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased arg-1570 arg-1571)))) 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--18201-18120 (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--18034-18024 (lambda (arg-0 arg-1 arg-2 arg-3 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--18018-17972 (lambda (arg-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--18034-18024 '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--17959-17919 (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--18190-18111-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--18201-18120 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--18190-18111-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--18190-18111-updateNSApp arg-0 arg-1 arg-2 e-6) e-7 e-8))))))(else arg-3))))) -(define ProcessData-TTImp-n--18667-18532-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--18667-18532-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--18667-18533-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--18740-18627-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--18740-18627-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--18740-18626-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--18740-18623-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--18740-18624-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--18740-18623-disjointArgs arg-0 arg-1 arg-2 e-2 e-5) eta-0)))))))))))))))))))))))) -(define ProcessData-TTImp-n--18740-18624-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--18764-18712 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--18764-18815 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--18740-18625-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--18740-18624-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--18740-18625-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--18740-18626-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--18740-18626-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--18740-18625-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--18190-18111-updateNSApp arg-2 arg-1 arg-0 arg-2)))))) +(define ProcessData-TTImp-case--20342-20694 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 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-1587) (Hash-Core-hash_Hashable__Name arg-1587)) (lambda (arg-1588) (lambda (arg-1589) (Hash-Core-hashWithSalt_Hashable__Name arg-1588 arg-1589)))) (vector 0 (lambda (arg-4524) (lambda (arg-4525) (Context-Core-full_HasNames__Name arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__Name arg-4526 arg-4527)))) 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-1587) (Hash-Core-hash_Hashable__C-40TermC-32C-36varsC-41 'erased arg-1587)) (lambda (arg-1588) (lambda (arg-1589) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased arg-1588 arg-1589)))) (vector 0 (lambda (arg-4524) (lambda (arg-4525) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4526 arg-4527)))) arg-21 eta-0))))))))))) +(define ProcessData-TTImp-case--20903-20481 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 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--20783-20404 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 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--20342-20307 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-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--20783-20404 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--20342-20000 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 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--19799-19891 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--20783-20404 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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-1587) (Hash-Core-hash_Hashable__Name arg-1587)) (lambda (arg-1588) (lambda (arg-1589) (Hash-Core-hashWithSalt_Hashable__Name arg-1588 arg-1589)))) (vector 0 (lambda (arg-4524) (lambda (arg-4525) (Context-Core-full_HasNames__Name arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__Name arg-4526 arg-4527)))) 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-1587) (Hash-Core-hash_Hashable__C-40TermC-32C-36varsC-41 'erased arg-1587)) (lambda (arg-1588) (lambda (arg-1589) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased arg-1588 arg-1589)))) (vector 0 (lambda (arg-4524) (lambda (arg-4525) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4526 arg-4527)))) 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--20342-20000 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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--19909-19660 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 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-1587) (Hash-Core-hash_Hashable__Name arg-1587)) (lambda (arg-1588) (lambda (arg-1589) (Hash-Core-hashWithSalt_Hashable__Name arg-1588 arg-1589)))) (vector 0 (lambda (arg-4524) (lambda (arg-4525) (Context-Core-full_HasNames__Name arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__Name arg-4526 arg-4527)))) 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-1587) (Hash-Core-hash_Hashable__C-40TermC-32C-36varsC-41 'erased arg-1587)) (lambda (arg-1588) (lambda (arg-1589) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased arg-1588 arg-1589)))) (vector 0 (lambda (arg-4524) (lambda (arg-4525) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4526 arg-4527)))) arg-19 eta-0))))))))))) +(define ProcessData-TTImp-case--19840-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)) (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-1587) (Hash-Core-hash_Hashable__Name arg-1587)) (lambda (arg-1588) (lambda (arg-1589) (Hash-Core-hashWithSalt_Hashable__Name arg-1588 arg-1589)))) (vector 0 (lambda (arg-4524) (lambda (arg-4525) (Context-Core-full_HasNames__Name arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__Name arg-4526 arg-4527)))) 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-1587) (Hash-Core-hash_Hashable__C-40TermC-32C-36varsC-41 'erased arg-1587)) (lambda (arg-1588) (lambda (arg-1589) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased arg-1588 arg-1589)))) (vector 0 (lambda (arg-4524) (lambda (arg-4525) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4526 arg-4527)))) 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--19799-19437 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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-1587) (Hash-Core-hash_Hashable__Name arg-1587)) (lambda (arg-1588) (lambda (arg-1589) (Hash-Core-hashWithSalt_Hashable__Name arg-1588 arg-1589)))) (vector 0 (lambda (arg-4524) (lambda (arg-4525) (Context-Core-full_HasNames__Name arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__Name arg-4526 arg-4527)))) 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-1587) (Hash-Core-hash_Hashable__C-40TermC-32C-36varsC-41 'erased arg-1587)) (lambda (arg-1588) (lambda (arg-1589) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased arg-1588 arg-1589)))) (vector 0 (lambda (arg-4524) (lambda (arg-4525) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4526 arg-4527)))) 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--19730-19357 (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--19696-19343 (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--19551-19211 (lambda (arg-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--18970-19146 (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--18997-19090 (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--18996-19043 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (ProcessData-TTImp-n--18970-18673-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--18995-18990 (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--18970-18673-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--18994-18863 (lambda (arg-0 arg-1 arg-2 arg-3 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--18970-18671-disjointArgs arg-0 arg-1 arg-2 e-6 e-7) eta-0)))))))))))))))))))))) +(define ProcessData-TTImp-case--18994-18760 (lambda (arg-0 arg-1 arg-2 arg-3 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--18970-18671-disjointArgs arg-0 arg-1 arg-2 e-6 e-7) eta-0)))))))))))))))))))))) +(define ProcessData-TTImp-case--18993-18707 (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--18970-18671-disjointArgs arg-0 arg-1 arg-2 arg-4 arg-6)))))) +(define ProcessData-TTImp-case--18547-18405 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 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-1587) (Hash-Core-hash_Hashable__Name arg-1587)) (lambda (arg-1588) (lambda (arg-1589) (Hash-Core-hashWithSalt_Hashable__Name arg-1588 arg-1589)))) (vector 0 (lambda (arg-4524) (lambda (arg-4525) (Context-Core-full_HasNames__Name arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__Name arg-4526 arg-4527)))) 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-1587) (Hash-Core-hash_Hashable__C-40TermC-32C-36varsC-41 'erased arg-1587)) (lambda (arg-1588) (lambda (arg-1589) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased arg-1588 arg-1589)))) (vector 0 (lambda (arg-4524) (lambda (arg-4525) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4526 arg-4527)))) 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--18470-18263 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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-1587) (Hash-Core-hash_Hashable__Name arg-1587)) (lambda (arg-1588) (lambda (arg-1589) (Hash-Core-hashWithSalt_Hashable__Name arg-1588 arg-1589)))) (vector 0 (lambda (arg-4524) (lambda (arg-4525) (Context-Core-full_HasNames__Name arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__Name arg-4526 arg-4527)))) 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-1587) (Hash-Core-hash_Hashable__C-40TermC-32C-36varsC-41 'erased arg-1587)) (lambda (arg-1588) (lambda (arg-1589) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased arg-1588 arg-1589)))) (vector 0 (lambda (arg-4524) (lambda (arg-4525) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4526 arg-4527)))) 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--18428-18165 (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--18261-18069 (lambda (arg-0 arg-1 arg-2 arg-3 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--18245-18017 (lambda (arg-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--18261-18069 '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--18186-17964 (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--18417-18156-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--18428-18165 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--18417-18156-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--18417-18156-updateNSApp arg-0 arg-1 arg-2 e-6) e-7 e-8))))))(else arg-3))))) +(define ProcessData-TTImp-n--18897-18580-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--18897-18580-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--18897-18581-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--18970-18675-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--18970-18675-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--18970-18674-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--18970-18671-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--18970-18672-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--18970-18671-disjointArgs arg-0 arg-1 arg-2 e-2 e-5) eta-0)))))))))))))))))))))))) +(define ProcessData-TTImp-n--18970-18672-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--18994-18760 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--18994-18863 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--18970-18673-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--18970-18672-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--18970-18673-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--18970-18674-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--18970-18674-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--18970-18673-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--18417-18156-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-30 (vector-ref sc4 1))) e-30))) 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))) (Core-Core-wrapError 'erased (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-39 (vector-ref sc14 2))) e-39)) eta-1))) (let ((sc14 e-15)) (let ((e-39 (vector-ref sc14 2))) e-39))) 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-addHash 'erased arg-1 (vector 0 (lambda (arg-1569) (Hash-Core-hash_Hashable__Name arg-1569)) (lambda (arg-1570) (lambda (arg-1571) (Hash-Core-hashWithSalt_Hashable__Name arg-1570 arg-1571)))) 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-addHash 'erased arg-1 (vector 0 (lambda (arg-1569) (Hash-Core-hash_Hashable__C-40TermC-32C-36varsC-41 'erased arg-1569)) (lambda (arg-1570) (lambda (arg-1571) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased arg-1570 arg-1571)))) 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))) (Core-Core-wrapError 'erased (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--20550-20353 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-addHash 'erased arg-1 (vector 0 (lambda (arg-1569) (Hash-Core-hash_Hashable__Name arg-1569)) (lambda (arg-1570) (lambda (arg-1571) (Hash-Core-hashWithSalt_Hashable__Name arg-1570 arg-1571)))) 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-addHash 'erased arg-1 (vector 0 (lambda (arg-1569) (Hash-Core-hash_Hashable__C-40TermC-32C-36varsC-41 'erased arg-1569)) (lambda (arg-1570) (lambda (arg-1571) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased arg-1570 arg-1571)))) 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--20109-19949 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-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-30 (vector-ref sc4 1))) e-30))) 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-39 (vector-ref sc14 2))) e-39)) eta-1))) (let ((sc14 e-15)) (let ((e-39 (vector-ref sc14 2))) e-39))) 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-1587) (Hash-Core-hash_Hashable__Name arg-1587)) (lambda (arg-1588) (lambda (arg-1589) (Hash-Core-hashWithSalt_Hashable__Name arg-1588 arg-1589)))) (vector 0 (lambda (arg-4524) (lambda (arg-4525) (Context-Core-full_HasNames__Name arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__Name arg-4526 arg-4527)))) 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-1587) (Hash-Core-hash_Hashable__C-40TermC-32C-36varsC-41 'erased arg-1587)) (lambda (arg-1588) (lambda (arg-1589) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased arg-1588 arg-1589)))) (vector 0 (lambda (arg-4524) (lambda (arg-4525) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4526 arg-4527)))) 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--20783-20404 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-1587) (Hash-Core-hash_Hashable__Name arg-1587)) (lambda (arg-1588) (lambda (arg-1589) (Hash-Core-hashWithSalt_Hashable__Name arg-1588 arg-1589)))) (vector 0 (lambda (arg-4524) (lambda (arg-4525) (Context-Core-full_HasNames__Name arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__Name arg-4526 arg-4527)))) 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-1587) (Hash-Core-hash_Hashable__C-40TermC-32C-36varsC-41 'erased arg-1587)) (lambda (arg-1588) (lambda (arg-1589) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased arg-1588 arg-1589)))) (vector 0 (lambda (arg-4524) (lambda (arg-4525) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4526 arg-4527)))) 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--20342-20000 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--18667-18532-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--18667-18533-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--18740-18627-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--18740-18627-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-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--18897-18580-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--18897-18581-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--18970-18675-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--18970-18675-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--18034-18024 '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-31 (vector-ref sc5 1))) e-31))) 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))) (Core-Core-wrapError 'erased (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-addHash 'erased arg-1 (vector 0 (lambda (arg-1569) (Hash-Core-hash_Hashable__Name arg-1569)) (lambda (arg-1570) (lambda (arg-1571) (Hash-Core-hashWithSalt_Hashable__Name arg-1570 arg-1571)))) 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-addHash 'erased arg-1 (vector 0 (lambda (arg-1569) (Hash-Core-hash_Hashable__C-40TermC-32C-36varsC-41 'erased arg-1569)) (lambda (arg-1570) (lambda (arg-1571) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased arg-1570 arg-1571)))) 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--12271-19567 (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--16060-19520 (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--16092-19473 (lambda (arg-0 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--16059-19408 (lambda (arg-0 arg-1 arg-2 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--16092-19473 arg-0 arg-1 arg-2 arg-3 'erased 'erased arg-7 arg-8 arg-6 e-2 (Parser-TTImp-n--12271-19374-spanMap arg-0 arg-1 arg-2 arg-3 'erased 'erased arg-8 arg-7)))))))) -(define Parser-TTImp-case--15290-18795 (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--15290-18753 (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--12910-16657 (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--12271-19374-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--16059-19408 arg-0 arg-1 arg-2 arg-3 'erased 'erased e-2 e-3 arg-6 (arg-6 e-2))))))))) -(define Parser-TTImp-n--14773-18230-parseWithArg (lambda (arg-0 arg-1 arg-2) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Support-Parser-symbol "|")) (lambda () (lambda (_-18248) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Support-Parser-location)) (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) (Support-Parser-location)) (lambda (end) (Core-Parser-Text-pure 'erased 'erased (vector 0 (vector 0 arg-1 start end) tm)))))))))))))) -(define Parser-TTImp-n--12925-17822-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--12925-17822-mkPi arg-0 arg-1 arg-2 arg-3 e-7 e-3)))))))))))) -(define Parser-TTImp-n--12271-19375-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--16060-19520 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--14770-17989-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--14770-17989-getFn arg-0 arg-1 arg-2 arg-3 arg-4 e-3))) ((9) (let ((e-6 (vector-ref sc0 2))) (Parser-TTImp-n--14770-17989-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--15588-18853-fieldBody (lambda (arg-0 arg-1 arg-2) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Support-Parser-location)) (lambda (start) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Parser-Text-sepBy1 'erased 'erased 'erased 0 (Support-Parser-symbol ",") (Support-Parser-unqualifiedName))) (lambda () (lambda (ns) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Support-Parser-symbol ":")) (lambda () (lambda (_-18879) (((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) (Support-Parser-location)) (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--12915-17012-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--12915-17012-bindAll arg-0 arg-1 arg-2 e-3 arg-4))))))))))))))) -(define Parser-TTImp-n--12900-15969-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--12900-15969-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--12900-15969-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--14773-18229-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--14773-18229-applyArgs arg-0 arg-1 arg-2 (vector 8 e-6 arg-3 e-7) e-3))))))))))) +(define ProcessData-TTImp-checkFamily (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (ProcessData-TTImp-checkRetType 'erased arg-1 arg-5 arg-6 (lambda (nf) (let ((sc0 nf)) (case (vector-ref sc0 0) ((10) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 10 arg-2 arg-3 arg-4) eta-0))) ((3) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (let ((e-5 (vector-ref sc0 3))) (let ((e-6 (vector-ref sc0 4))) (let ((e-7 (vector-ref sc0 5))) (let ((nf-0 (vector 3 e-3 e-4 e-5 e-6 e-7))) (ProcessData-TTImp-case--18261-18069 '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-31 (vector-ref sc5 1))) e-31))) 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-1587) (Hash-Core-hash_Hashable__Name arg-1587)) (lambda (arg-1588) (lambda (arg-1589) (Hash-Core-hashWithSalt_Hashable__Name arg-1588 arg-1589)))) (vector 0 (lambda (arg-4524) (lambda (arg-4525) (Context-Core-full_HasNames__Name arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__Name arg-4526 arg-4527)))) 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-1587) (Hash-Core-hash_Hashable__C-40TermC-32C-36varsC-41 'erased arg-1587)) (lambda (arg-1588) (lambda (arg-1589) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased arg-1588 arg-1589)))) (vector 0 (lambda (arg-4524) (lambda (arg-4525) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4526 arg-4527)))) 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--12365-19698 (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--16240-19651 (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--16272-19604 (lambda (arg-0 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--16239-19539 (lambda (arg-0 arg-1 arg-2 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--16272-19604 arg-0 arg-1 arg-2 arg-3 'erased 'erased arg-7 arg-8 arg-6 e-2 (Parser-TTImp-n--12365-19505-spanMap arg-0 arg-1 arg-2 arg-3 'erased 'erased arg-8 arg-7)))))))) +(define Parser-TTImp-case--15455-18915 (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--15455-18873 (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--13020-16725 (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--12365-19505-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--16239-19539 arg-0 arg-1 arg-2 arg-3 'erased 'erased e-2 e-3 arg-6 (arg-6 e-2))))))))) +(define Parser-TTImp-n--14927-18339-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 (_-18357) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.SourceToken" ))) (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.SourceToken" ))) (lambda (end) (Core-Parser-Text-pure 'erased 'erased (vector 0 (vector 0 arg-1 start end) tm)))))))))))))) +(define Parser-TTImp-n--13035-17923-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--13035-17923-mkPi arg-0 arg-1 arg-2 arg-3 e-7 e-3)))))))))))) +(define Parser-TTImp-n--12365-19506-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--16240-19651 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--14924-18094-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--14924-18094-getFn arg-0 arg-1 arg-2 arg-3 arg-4 e-3))) ((9) (let ((e-6 (vector-ref sc0 2))) (Parser-TTImp-n--14924-18094-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--15757-18973-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.SourceToken" ))) (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 (_-18999) (((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.SourceToken" ))) (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--13025-17090-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--13025-17090-bindAll arg-0 arg-1 arg-2 e-3 arg-4))))))))))))))) +(define Parser-TTImp-n--13010-16030-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--13010-16030-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--13010-16030-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--14927-18338-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--14927-18338-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) (Support-Parser-keyword "public")) (lambda () (lambda (_-15566) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Support-Parser-keyword "export")) (lambda () (lambda (_-15573) (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) (Support-Parser-keyword "export")) (lambda () (lambda (_-15555) (Core-Parser-Text-pure 'erased 'erased (vector 1 ))))) (lambda () (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Support-Parser-keyword "private")) (lambda () (lambda (_-15544) (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 (_-15627) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Source-Rule-Parser-keyword "export")) (lambda () (lambda (_-15634) (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 (_-15616) (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 (_-15605) (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) (Support-Parser-location)) (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) (Support-Parser-continue arg-1)) (lambda (_-17866) (((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) (Support-Parser-location)) (lambda (end) (Core-Parser-Text-pure 'erased 'erased (Parser-TTImp-n--12925-17822-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) (Support-Parser-location)) (lambda (start) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Support-Parser-name)) (lambda () (lambda (n) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Support-Parser-symbol ":")) (lambda () (lambda (_-17943) (((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) (Support-Parser-location)) (lambda (end) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Support-Parser-atEnd arg-1)) (lambda (_-17963) (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) (Support-Parser-keyword "partial")) (lambda () (lambda (_-15628) (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) (Support-Parser-keyword "total")) (lambda () (lambda (_-15617) (Core-Parser-Text-pure 'erased 'erased (vector 0 ))))) (lambda () (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Support-Parser-keyword "covering")) (lambda () (lambda (_-15606) (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) (Support-Parser-location)) (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) (Support-Parser-location)) (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) (Support-Parser-location)) (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) (Support-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) (Support-Parser-location)) (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) (Support-Parser-location)) (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) (Support-Parser-location)) (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) (Support-Parser-symbol "(")) (lambda () (lambda (_-16331) (((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) (Support-Parser-symbol ")")) (lambda () (lambda (_-16345) (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) (Support-Parser-location)) (lambda (start) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Support-Parser-keyword "rewrite")) (lambda () (lambda (_-17595) (((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) (Support-Parser-keyword "in")) (lambda () (lambda (_-17608) (((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) (Support-Parser-location)) (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) (Support-Parser-location)) (lambda (start) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Support-Parser-keyword "record")) (lambda () (lambda (_-17444) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Support-Parser-symbol "{")) (lambda () (lambda (_-17452) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Core-Parser-Text-commit 'erased)) (lambda (_-17460) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Parser-Text-sepBy1 'erased 'erased 'erased 0 (Support-Parser-symbol ",") (Parser-TTImp-field arg-0 arg-1))) (lambda () (lambda (fs) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Support-Parser-symbol "}")) (lambda () (lambda (_-17479) (((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) (Support-Parser-location)) (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) (Support-Parser-symbol "(")) (lambda () (lambda (_-18711) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Support-Parser-location)) (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) (Support-Parser-symbol ")")) (lambda () (lambda (_-18732) (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) (Support-Parser-symbol "{")) (lambda () (lambda (_-18605) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Core-Parser-Text-commit 'erased)) (lambda (_-18613) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Support-Parser-location)) (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 )) (Support-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) (Support-Parser-keyword "default")) (lambda () (lambda (_-18650) (((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) (Support-Parser-symbol "}")) (lambda () (lambda (_-18688) (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) (Support-Parser-location)) (lambda (start) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Support-Parser-name)) (lambda () (lambda (n) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Support-Parser-location)) (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) (Support-Parser-location)) (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) (Support-Parser-column)) (lambda (col) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Support-Parser-keyword "record")) (lambda () (lambda (_-19019) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Core-Parser-Text-commit 'erased)) (lambda (_-19027) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Support-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-2851) (lambda (arg-2852) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-2851 arg-2852))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) paramss))) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Support-Parser-keyword "where")) (lambda () (lambda (_-19050) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Support-Parser-exactIdent "constructor")) (lambda () (lambda (_-19057) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Support-Parser-name)) (lambda () (lambda (dc) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Support-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) (Support-Parser-location)) (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-2851) (lambda (arg-2852) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-2851 arg-2852))) (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) (Support-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 (Support-Parser-symbol ",") (Support-Parser-unqualifiedName))) (lambda () (lambda (ns) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Support-Parser-symbol ":")) (lambda () (lambda (_-16586) (((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) (Support-Parser-atEnd arg-2)) (lambda (_-16599) (((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)) (Support-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) (Support-Parser-name)) (lambda () (lambda (n) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Support-Parser-symbol ":")) (lambda () (lambda (_-16530) (((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-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.SourceToken" ))) (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 (_-17967) (((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.SourceToken" ))) (lambda (end) (Core-Parser-Text-pure 'erased 'erased (Parser-TTImp-n--13035-17923-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.SourceToken" ))) (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 (_-18046) (((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.SourceToken" ))) (lambda (end) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Source-Rule-Parser-atEnd arg-1)) (lambda (_-18066) (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 (_-15689) (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 (_-15678) (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 (_-15667) (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.SourceToken" ))) (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.SourceToken" ))) (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.SourceToken" ))) (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.SourceToken" ))) (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.SourceToken" ))) (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.SourceToken" ))) (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 (_-16398) (((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 (_-16412) (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.SourceToken" ))) (lambda (start) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-keyword "rewrite")) (lambda () (lambda (_-17686) (((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 (_-17699) (((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.SourceToken" ))) (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.SourceToken" ))) (lambda (start) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-keyword "record")) (lambda () (lambda (_-17533) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-symbol "{")) (lambda () (lambda (_-17541) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Core-Parser-Text-commit 'erased)) (lambda (_-17549) (((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 (_-17568) (((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.SourceToken" ))) (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 (_-18830) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.SourceToken" ))) (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 (_-18851) (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 (_-18723) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Core-Parser-Text-commit 'erased)) (lambda (_-18731) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.SourceToken" ))) (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 (_-18768) (((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 (_-18806) (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.SourceToken" ))) (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.SourceToken" ))) (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.SourceToken" ))) (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.SourceToken" ))) (lambda (col) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-keyword "record")) (lambda () (lambda (_-19141) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Core-Parser-Text-commit 'erased)) (lambda (_-19149) (((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-2851) (lambda (arg-2852) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-2851 arg-2852))) (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 (_-19172) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-exactIdent "constructor")) (lambda () (lambda (_-19179) (((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.SourceToken" ))) (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-2851) (lambda (arg-2852) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-2851 arg-2852))) (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 (_-16654) (((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 (_-16667) (((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 (_-16598) (((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) (Support-Parser-symbol "=")) (lambda () (lambda (_-18159) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Core-Parser-Text-commit 'erased)) (lambda (_-18167) (((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) (Support-Parser-atEnd arg-2)) (lambda (_-18180) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Support-Parser-location)) (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--14770-17989-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) (Support-Parser-keyword "with")) (lambda () (lambda (_-18071) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Support-Parser-location)) (lambda (wstart) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Support-Parser-symbol "(")) (lambda () (lambda (_-18086) (((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) (Support-Parser-symbol ")")) (lambda () (lambda (_-18100) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Support-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) (Support-Parser-location)) (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--14770-17989-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) (Support-Parser-keyword "impossible")) (lambda () (lambda (_-18028) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Support-Parser-atEnd arg-2)) (lambda (_-18035) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Support-Parser-location)) (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--14770-17989-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) (Support-Parser-keyword "namespace")) (lambda () (lambda (_-19136) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Core-Parser-Text-commit 'erased)) (lambda (_-19144) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Support-Parser-nsIdent)) (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) (Support-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) (Support-Parser-location)) (lambda (start) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Support-Parser-keyword "let")) (lambda () (lambda (_-17179) (((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) (Support-Parser-name)) (lambda () (lambda (n) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Support-Parser-symbol "=")) (lambda () (lambda (_-17207) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Core-Parser-Text-commit 'erased)) (lambda (_-17215) (((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) (Support-Parser-continue arg-1)) (lambda (_-17228) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Support-Parser-keyword "in")) (lambda () (lambda (_-17235) (((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) (Support-Parser-location)) (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) (Support-Parser-location)) (lambda (start) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Support-Parser-keyword "let")) (lambda () (lambda (_-17116) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Support-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) (Support-Parser-continue arg-1)) (lambda (_-17130) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Support-Parser-keyword "in")) (lambda () (lambda (_-17137) (((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) (Support-Parser-location)) (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) (Support-Parser-location)) (lambda (start) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Support-Parser-exactIdent "Lazy")) (lambda () (lambda (_-17774) (((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) (Support-Parser-location)) (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) (Support-Parser-location)) (lambda (start) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Support-Parser-exactIdent "Inf")) (lambda () (lambda (_-17738) (((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) (Support-Parser-location)) (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) (Support-Parser-location)) (lambda (start) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Support-Parser-exactIdent "Delay")) (lambda () (lambda (_-17702) (((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) (Support-Parser-location)) (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) (Support-Parser-location)) (lambda (start) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Support-Parser-exactIdent "Force")) (lambda () (lambda (_-17666) (((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) (Support-Parser-location)) (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) (Support-Parser-location)) (lambda (start) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Support-Parser-symbol "\\")) (lambda () (lambda (_-17045) (((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) (Support-Parser-symbol "=>")) (lambda () (lambda (_-17059) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Support-Parser-mustContinue arg-1 (vector 0 ))) (lambda (_-17067) (((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) (Support-Parser-location)) (lambda (end) (Core-Parser-Text-pure 'erased 'erased (Parser-TTImp-n--12915-17012-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) (Support-Parser-location)) (lambda (start) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Support-Parser-symbol "{")) (lambda () (lambda (_-16894) (((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) (Support-Parser-symbol "}")) (lambda () (lambda (_-16908) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Support-Parser-symbol "->")) (lambda () (lambda (_-16916) (((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) (Support-Parser-location)) (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) (Support-Parser-location)) (lambda (start) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Support-Parser-symbol "{")) (lambda () (lambda (_-16160) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Support-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) (Support-Parser-symbol "=")) (lambda () (lambda (_-16208) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Core-Parser-Text-commit 'erased)) (lambda (_-16216) (((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) (Support-Parser-symbol "}")) (lambda () (lambda (_-16230) (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) (Support-Parser-symbol "}")) (lambda () (lambda (_-16180) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Support-Parser-location)) (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) (Support-Parser-symbol "@{")) (lambda () (lambda (_-16107) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Core-Parser-Text-commit 'erased)) (lambda (_-16115) (((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) (Support-Parser-symbol "}")) (lambda () (lambda (_-16129) (Core-Parser-Text-pure 'erased 'erased (vector 0 (vector 0 ) tm))))))))))))))))) +(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 (_-18267) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Core-Parser-Text-commit 'erased)) (lambda (_-18275) (((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 (_-18288) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.SourceToken" ))) (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--14924-18094-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 (_-18177) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.SourceToken" ))) (lambda (wstart) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-symbol "(")) (lambda () (lambda (_-18192) (((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 (_-18206) (((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.SourceToken" ))) (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--14924-18094-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 (_-18133) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Source-Rule-Parser-atEnd arg-2)) (lambda (_-18140) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.SourceToken" ))) (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--14924-18094-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 (_-19261) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Core-Parser-Text-commit 'erased)) (lambda (_-19269) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Source-Rule-Parser-nsIdent)) (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.SourceToken" ))) (lambda (start) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-keyword "let")) (lambda () (lambda (_-17261) (((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 (_-17289) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Core-Parser-Text-commit 'erased)) (lambda (_-17297) (((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 (_-17310) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-keyword "in")) (lambda () (lambda (_-17317) (((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.SourceToken" ))) (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.SourceToken" ))) (lambda (start) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-keyword "let")) (lambda () (lambda (_-17196) (((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 (_-17210) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-keyword "in")) (lambda () (lambda (_-17217) (((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.SourceToken" ))) (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.SourceToken" ))) (lambda (start) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-exactIdent "Lazy")) (lambda () (lambda (_-17873) (((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.SourceToken" ))) (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.SourceToken" ))) (lambda (start) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-exactIdent "Inf")) (lambda () (lambda (_-17835) (((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.SourceToken" ))) (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.SourceToken" ))) (lambda (start) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-exactIdent "Delay")) (lambda () (lambda (_-17797) (((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.SourceToken" ))) (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.SourceToken" ))) (lambda (start) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-exactIdent "Force")) (lambda () (lambda (_-17759) (((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.SourceToken" ))) (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.SourceToken" ))) (lambda (start) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-symbol "\\")) (lambda () (lambda (_-17123) (((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 (_-17137) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Source-Rule-Parser-mustContinue arg-1 (vector 0 ))) (lambda (_-17145) (((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.SourceToken" ))) (lambda (end) (Core-Parser-Text-pure 'erased 'erased (Parser-TTImp-n--13025-17090-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.SourceToken" ))) (lambda (start) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-symbol "{")) (lambda () (lambda (_-16968) (((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 (_-16982) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-symbol "->")) (lambda () (lambda (_-16990) (((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.SourceToken" ))) (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.SourceToken" ))) (lambda (start) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-symbol "{")) (lambda () (lambda (_-16223) (((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 (_-16272) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Core-Parser-Text-commit 'erased)) (lambda (_-16280) (((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 (_-16294) (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 (_-16243) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.SourceToken" ))) (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 (_-16170) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Core-Parser-Text-commit 'erased)) (lambda (_-16178) (((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 (_-16192) (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) (Support-Parser-location)) (lambda (start) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Support-Parser-keyword "forall")) (lambda () (lambda (_-16782) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Core-Parser-Text-commit 'erased)) (lambda (_-16790) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Support-Parser-location)) (lambda (nstart) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Parser-Text-sepBy1 'erased 'erased 'erased 0 (Support-Parser-symbol ",") (Support-Parser-unqualifiedName))) (lambda () (lambda (ns) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Support-Parser-location)) (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) (Support-Parser-symbol ".")) (lambda () (lambda (_-16826) (((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) (Support-Parser-location)) (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 6 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) (Support-Parser-pragma "hint")) (lambda () (lambda (_-15747) (Core-Parser-Text-pure 'erased 'erased (vector 1 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) (Support-Parser-pragma "chaser")) (lambda () (lambda (_-15734) (Core-Parser-Text-pure 'erased 'erased (vector 1 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) (Support-Parser-pragma "globalhint")) (lambda () (lambda (_-15721) (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-124C-124 0 (lambda () 1)))) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Support-Parser-pragma "defaulthint")) (lambda () (lambda (_-15708) (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-124C-124 0 (lambda () 1)) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Support-Parser-pragma "inline")) (lambda () (lambda (_-15694) (Core-Parser-Text-pure 'erased 'erased (vector 0 ))))) (lambda () (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Support-Parser-pragma "extern")) (lambda () (lambda (_-15681) (Core-Parser-Text-pure 'erased 'erased (vector 3 ))))))))))))))))) -(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) (Support-Parser-symbol "{")) (lambda () (lambda (_-18946) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Core-Parser-Text-commit 'erased)) (lambda (_-18954) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Parser-TTImp-n--15588-18853-fieldBody arg-1 arg-0 (vector 0 ))) (lambda () (lambda (fs) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Support-Parser-symbol "}")) (lambda () (lambda (_-18970) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Support-Parser-atEnd arg-1)) (lambda (_-18977) (Core-Parser-Text-pure 'erased 'erased fs)))))))))))))) (lambda () (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Parser-TTImp-n--15588-18853-fieldBody arg-1 arg-0 (vector 1 ))) (lambda () (lambda (fs) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Support-Parser-atEnd arg-1)) (lambda (_-18933) (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 (Support-Parser-symbol "->") (Support-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) (Support-Parser-symbol "=")) (lambda () (lambda (_-17571) (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) (Support-Parser-symbol "$=")) (lambda () (lambda (_-17558) (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-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.SourceToken" ))) (lambda (start) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-keyword "forall")) (lambda () (lambda (_-16852) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Core-Parser-Text-commit 'erased)) (lambda (_-16860) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.SourceToken" ))) (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.SourceToken" ))) (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 (_-16896) (((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.SourceToken" ))) (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 (_-15808) (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 (_-15795) (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 (_-15782) (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 (_-15769) (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 (_-15755) (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 (_-15742) (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 (_-19068) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Core-Parser-Text-commit 'erased)) (lambda (_-19076) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Parser-TTImp-n--15757-18973-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 (_-19092) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Source-Rule-Parser-atEnd arg-1)) (lambda (_-19099) (Core-Parser-Text-pure 'erased 'erased fs)))))))))))))) (lambda () (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Parser-TTImp-n--15757-18973-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 (_-19055) (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 (_-17662) (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 (_-17649) (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) (Support-Parser-location)) (lambda (start) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Support-Parser-symbol "(")) (lambda () (lambda (_-16962) (((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) (Support-Parser-symbol ")")) (lambda () (lambda (_-16976) (((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) (Support-Parser-location)) (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) (Support-Parser-pragma "logging")) (lambda () (lambda (_-19170) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Core-Parser-Text-commit 'erased)) (lambda (_-19178) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Support-Parser-intLit)) (lambda () (lambda (lvl) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Support-Parser-atEnd arg-1)) (lambda (_-19192) (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) (Support-Parser-location)) (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) (Support-Parser-location)) (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) (Support-Parser-exactIdent "noHints")) (lambda () (lambda (_-18421) (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) (Support-Parser-exactIdent "uniqueSearch")) (lambda () (lambda (_-18410) (Core-Parser-Text-pure 'erased 'erased (vector 2 ))))) (lambda () (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Support-Parser-exactIdent "search")) (lambda () (lambda (_-18387) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Parser-Text-some 'erased 'erased (Support-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) (Support-Parser-location)) (lambda (start) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Support-Parser-keyword "data")) (lambda () (lambda (_-18441) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Support-Parser-name)) (lambda () (lambda (n) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Support-Parser-symbol ":")) (lambda () (lambda (_-18456) (((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) (Support-Parser-keyword "where")) (lambda () (lambda (_-18469) (((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) (Support-Parser-symbol "[")) (lambda () (lambda (_-18487) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Parser-Text-sepBy1 'erased 'erased 'erased 0 (Support-Parser-symbol ",") (Parser-TTImp-dataOpt))) (lambda () (lambda (dopts) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Support-Parser-symbol "]")) (lambda () (lambda (_-18506) (Core-Parser-Text-pure 'erased 'erased dopts)))))))))))) (lambda (opts) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Support-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) (Support-Parser-location)) (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) (Support-Parser-symbol ":")) (lambda () (lambda (_-19890) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Support-Parser-exactIdent "t")) (lambda () (lambda (_-19897) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Parser-TTImp-expr "(repl)" (Support-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) (Support-Parser-symbol ":")) (lambda () (lambda (_-19860) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Support-Parser-exactIdent "s")) (lambda () (lambda (_-19867) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Support-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) (Support-Parser-symbol ":")) (lambda () (lambda (_-19830) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Support-Parser-exactIdent "es")) (lambda () (lambda (_-19837) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Support-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) (Support-Parser-symbol ":")) (lambda () (lambda (_-19788) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Support-Parser-exactIdent "gd")) (lambda () (lambda (_-19795) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Support-Parser-intLit)) (lambda () (lambda (l) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Support-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) (Support-Parser-symbol ":")) (lambda () (lambda (_-19758) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Support-Parser-exactIdent "missing")) (lambda () (lambda (_-19765) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Support-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) (Support-Parser-symbol ":")) (lambda () (lambda (_-19728) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Support-Parser-keyword "total")) (lambda () (lambda (_-19735) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Support-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) (Support-Parser-symbol ":")) (lambda () (lambda (_-19698) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Support-Parser-exactIdent "di")) (lambda () (lambda (_-19705) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Support-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) (Support-Parser-symbol ":")) (lambda () (lambda (_-19677) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Support-Parser-exactIdent "q")) (lambda () (lambda (_-19684) (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)" (Support-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--12271-19567 e-6 e-5 e-4 e-3 (Parser-TTImp-n--12271-19374-spanMap e-6 e-5 e-4 e-3 'erased 'erased (lambda (eta-0) (Parser-TTImp-n--12271-19375-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) (Support-Parser-location)) (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--14773-18230-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--14773-18229-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) (Support-Parser-location)) (lambda (start) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Support-Parser-keyword "case")) (lambda () (lambda (_-17287) (((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) (Support-Parser-keyword "of")) (lambda () (lambda (_-17300) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Support-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) (Support-Parser-location)) (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) (Support-Parser-symbol "=>")) (lambda () (lambda (_-17392) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Support-Parser-continue arg-1)) (lambda (_-17399) (((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) (Support-Parser-atEnd arg-1)) (lambda (_-17412) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Support-Parser-location)) (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) (Support-Parser-keyword "impossible")) (lambda () (lambda (_-17362) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Support-Parser-atEnd arg-1)) (lambda (_-17369) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Support-Parser-location)) (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) (Support-Parser-location)) (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-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.SourceToken" ))) (lambda (start) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-symbol "(")) (lambda () (lambda (_-17038) (((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 (_-17052) (((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.SourceToken" ))) (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 (_-19295) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Core-Parser-Text-commit 'erased)) (lambda (_-19303) (((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 (_-19317) (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.SourceToken" ))) (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.SourceToken" ))) (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 (_-18535) (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 (_-18524) (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 (_-18501) (((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.SourceToken" ))) (lambda (start) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-keyword "data")) (lambda () (lambda (_-18555) (((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 (_-18570) (((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 (_-18583) (((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 (_-18601) (((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 (_-18620) (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.SourceToken" ))) (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 (_-20022) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-exactIdent "t")) (lambda () (lambda (_-20029) (((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 (_-19992) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-exactIdent "s")) (lambda () (lambda (_-19999) (((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 (_-19962) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-exactIdent "es")) (lambda () (lambda (_-19969) (((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 (_-19920) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-exactIdent "gd")) (lambda () (lambda (_-19927) (((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 (_-19890) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-exactIdent "missing")) (lambda () (lambda (_-19897) (((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 (_-19860) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-keyword "total")) (lambda () (lambda (_-19867) (((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 (_-19830) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-exactIdent "di")) (lambda () (lambda (_-19837) (((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 (_-19809) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Source-Rule-Parser-exactIdent "q")) (lambda () (lambda (_-19816) (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--12365-19698 e-6 e-5 e-4 e-3 (Parser-TTImp-n--12365-19505-spanMap e-6 e-5 e-4 e-3 'erased 'erased (lambda (eta-0) (Parser-TTImp-n--12365-19506-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.SourceToken" ))) (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--14927-18339-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--14927-18338-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.SourceToken" ))) (lambda (start) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-keyword "case")) (lambda () (lambda (_-17371) (((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 (_-17384) (((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.SourceToken" ))) (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 (_-17480) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Source-Rule-Parser-continue arg-1)) (lambda (_-17487) (((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 (_-17500) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.SourceToken" ))) (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 (_-17449) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Source-Rule-Parser-atEnd arg-1)) (lambda (_-17456) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.SourceToken" ))) (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.SourceToken" ))) (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) (Support-Parser-symbol "->")) (lambda () (lambda (_-15903) (Core-Parser-Text-pure 'erased 'erased (vector 1 ))))) (lambda () (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Support-Parser-symbol "=>")) (lambda () (lambda (_-15889) (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 (Support-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) (Support-Parser-unqualifiedName)) (lambda () (lambda (n) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Support-Parser-location)) (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) (Support-Parser-symbol ":")) (lambda () (lambda (_-16468) (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) (Support-Parser-location)) (lambda (start) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Support-Parser-symbol "{")) (lambda () (lambda (_-16697) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Support-Parser-keyword "auto")) (lambda () (lambda (_-16704) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Core-Parser-Text-commit 'erased)) (lambda (_-16712) (((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) (Support-Parser-symbol "}")) (lambda () (lambda (_-16726) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Support-Parser-symbol "->")) (lambda () (lambda (_-16734) (((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) (Support-Parser-location)) (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) (Support-Parser-location)) (lambda (start) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Support-Parser-constant)) (lambda () (lambda (x) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Support-Parser-location)) (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) (Support-Parser-location)) (lambda (start) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Support-Parser-exactIdent "Type")) (lambda () (lambda (_-15481) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Support-Parser-location)) (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) (Support-Parser-location)) (lambda (start) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Support-Parser-symbol "_")) (lambda () (lambda (_-15451) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Support-Parser-location)) (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) (Support-Parser-location)) (lambda (start) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Support-Parser-symbol "?")) (lambda () (lambda (_-15420) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Support-Parser-location)) (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) (Support-Parser-location)) (lambda (start) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Support-Parser-pragma "search")) (lambda () (lambda (_-15386) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Support-Parser-location)) (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) (Support-Parser-location)) (lambda (start) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Support-Parser-name)) (lambda () (lambda (x) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Support-Parser-location)) (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) (Support-Parser-location)) (lambda (start) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Support-Parser-symbol "$")) (lambda () (lambda (_-15318) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Support-Parser-unqualifiedName)) (lambda () (lambda (x) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Support-Parser-location)) (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) (Support-Parser-location)) (lambda (start) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Support-Parser-holeName)) (lambda () (lambda (x) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Support-Parser-location)) (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) (Support-Parser-location)) (lambda (start) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Support-Parser-unqualifiedName)) (lambda () (lambda (x) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Support-Parser-symbol "@")) (lambda () (lambda (_-16273) (((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) (Support-Parser-location)) (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) (Support-Parser-continue arg-1)) (lambda (_-16077) (((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) (Support-Parser-continue arg-1)) (lambda (_-16055) (((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) (Support-Parser-location)) (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) (Support-Parser-location)) (lambda (end) (Core-Parser-Text-pure 'erased 'erased (Parser-TTImp-n--12900-15969-applyExpImp arg-1 arg-0 start end f args))))))))))))))))) -(define GenerateDef-Interactive-TTImp-case--24278-6804 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-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--24263-6700 (lambda (arg-0 arg-1 arg-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--24278-6804 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--24040-6514 (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--23774-6417 (lambda (arg-0 arg-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--23774-6264-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--23774-6262-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--23788-6351 (lambda (arg-0 arg-1 arg-2 arg-3 arg-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--23774-6263-fixNames arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-2))))))) -(define GenerateDef-Interactive-TTImp-case--23788-6293 (lambda (arg-0 arg-1 arg-2 arg-3 arg-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--23774-6263-fixNames arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-2))))))) -(define GenerateDef-Interactive-TTImp-case--23353-5963 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 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--23000-5601-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--23251-5888 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 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--23353-5963 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 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--23000-5602-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--23183-5805 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 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--23353-5963 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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--23000-5602-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--23139-5752 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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--23353-5963 arg-0 arg-1 arg-2 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--23000-5602-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--23108-5720 (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--23139-5752 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--23000-5698 (lambda (arg-0 arg-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--23139-5752 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--22929-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--22924-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--23774-6262-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--23000-5601-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--23774-6264-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--23788-6293 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--23788-6351 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--23774-6264-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--23774-6264-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--23774-6264-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--23774-6264-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--22961-5563-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--23774-6263-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--23774-6263-fixNames arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-3) (GenerateDef-Interactive-TTImp-n--23774-6263-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--23774-6263-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--23774-6263-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--23000-5602-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--23000-5602-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--22961-5563-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--23774-6264-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--23774-6262-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 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 (_-15964) (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 (_-15950) (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.SourceToken" ))) (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 (_-16535) (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.SourceToken" ))) (lambda (start) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-symbol "{")) (lambda () (lambda (_-16765) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-keyword "auto")) (lambda () (lambda (_-16772) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Core-Parser-Text-commit 'erased)) (lambda (_-16780) (((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 (_-16794) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-symbol "->")) (lambda () (lambda (_-16802) (((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.SourceToken" ))) (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.SourceToken" ))) (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.SourceToken" ))) (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.SourceToken" ))) (lambda (start) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Source-Rule-Parser-exactIdent "Type")) (lambda () (lambda (_-15538) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.SourceToken" ))) (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.SourceToken" ))) (lambda (start) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Source-Rule-Parser-symbol "_")) (lambda () (lambda (_-15506) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.SourceToken" ))) (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.SourceToken" ))) (lambda (start) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Source-Rule-Parser-symbol "?")) (lambda () (lambda (_-15473) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.SourceToken" ))) (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.SourceToken" ))) (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.SourceToken" ))) (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.SourceToken" ))) (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.SourceToken" ))) (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.SourceToken" ))) (lambda (start) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-symbol "$")) (lambda () (lambda (_-15365) (((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.SourceToken" ))) (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.SourceToken" ))) (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.SourceToken" ))) (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.SourceToken" ))) (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 (_-16338) (((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.SourceToken" ))) (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 (_-16140) (((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 (_-16118) (((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.SourceToken" ))) (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.SourceToken" ))) (lambda (end) (Core-Parser-Text-pure 'erased 'erased (Parser-TTImp-n--13010-16030-applyExpImp arg-1 arg-0 start end f args))))))))))))))))) +(define GenerateDef-Interactive-TTImp-case--24658-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--24643-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--24658-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--24420-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--24154-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--24154-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--24154-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--24168-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--24154-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--24168-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--24154-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--23733-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--23380-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--23631-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--23733-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--23380-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--23563-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--23733-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--23380-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--23519-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--23733-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--23380-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--23488-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--23519-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--23380-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--23519-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--23312-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--23307-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--24154-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--23380-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--24154-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--24168-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--24168-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--24154-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--24154-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--24154-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--24154-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--23341-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--24154-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--24154-6260-fixNames arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-3) (GenerateDef-Interactive-TTImp-n--24154-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--24154-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--24154-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--23380-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--23380-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--23341-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--24154-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--24154-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-2851) (lambda (arg-2852) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-2851 arg-2852))) (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--24278-6804 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-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--24658-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--22924-5532 e-0 arg-0 (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-show_Show__Name 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--23139-5752 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--27585-24560 (lambda (arg-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--27603-24495 (lambda (arg-0 arg-1 arg-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--27595-24436 (lambda (arg-0 arg-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--27456-24341 (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--27205-24103 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-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--22571-24070 (lambda (arg-0 arg-1 arg-2 arg-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--27205-24103 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--27033-23993 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-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--27025-23922 (lambda (arg-0 arg-1 arg-2 arg-3 arg-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--26503-23808 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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--26566-23615 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--26503-23508 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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-2851) (lambda (arg-2852) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-2851 arg-2852))) (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--26566-23615 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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--26341-23461 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-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--26503-23508 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--26503-23808 arg-0 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--26503-23808 arg-0 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--26503-23808 arg-0 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--25488-23026 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 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--25454-22536-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--25454-22536-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--25569-22787 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 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--25569-22677 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 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--25502-22601 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-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-10860) (lambda (arg-10862) (lambda (arg-10864) (lambda (arg-10865) (lambda (arg-10866) (lambda (arg-10868) (lambda (arg-10869) (Unify-Core-unifyD_Unify__NF vars arg-10860 arg-10862 arg-10864 arg-10865 arg-10866 arg-10868 arg-10869))))))))) (lambda (vars) (lambda (arg-10871) (lambda (arg-10873) (lambda (arg-10875) (lambda (arg-10876) (lambda (arg-10877) (lambda (arg-10879) (lambda (arg-10880) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-10871 arg-10873 arg-10875 arg-10876 arg-10877 arg-10879 arg-10880)))))))))) 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--25569-22677 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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-10860) (lambda (arg-10862) (lambda (arg-10864) (lambda (arg-10865) (lambda (arg-10866) (lambda (arg-10868) (lambda (arg-10869) (Unify-Core-unifyD_Unify__NF vars arg-10860 arg-10862 arg-10864 arg-10865 arg-10866 arg-10868 arg-10869))))))))) (lambda (vars) (lambda (arg-10871) (lambda (arg-10873) (lambda (arg-10875) (lambda (arg-10876) (lambda (arg-10877) (lambda (arg-10879) (lambda (arg-10880) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-10871 arg-10873 arg-10875 arg-10876 arg-10877 arg-10879 arg-10880)))))))))) 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--25569-22787 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--25487-22554 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-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--25502-22601 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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--24440-22394 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-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--24440-21641-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--25197-22337 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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--24440-21640-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--24470-22297 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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--25197-22337 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--24469-22114 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--24440-21639-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--24469-21983 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 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--24440-21639-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--24469-21852 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 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--24440-21639-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--24179-21418 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--24170-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) (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--24179-21418 arg-0 arg-1 arg-2 arg-3 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--23854-21245 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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--23854-21169 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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--23808-21102 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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--23854-21245 arg-0 arg-1 arg-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--23770-21069 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-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--23808-21102 arg-0 arg-1 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--23360-20746 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 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-4481) (lambda (arg-4482) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4481 arg-4482))) (lambda (arg-4483) (lambda (arg-4484) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4483 arg-4484)))) 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) "\u000a")) 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-2851) (lambda (arg-2852) (Prelude-C-60C-43C-62_Semigroup__String arg-2851 arg-2852))) (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--23139-20670 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-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-10860) (lambda (arg-10862) (lambda (arg-10864) (lambda (arg-10865) (lambda (arg-10866) (lambda (arg-10868) (lambda (arg-10869) (Unify-Core-unifyD_Unify__NF vars arg-10860 arg-10862 arg-10864 arg-10865 arg-10866 arg-10868 arg-10869))))))))) (lambda (vars) (lambda (arg-10871) (lambda (arg-10873) (lambda (arg-10875) (lambda (arg-10876) (lambda (arg-10877) (lambda (arg-10879) (lambda (arg-10880) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-10871 arg-10873 arg-10875 arg-10876 arg-10877 arg-10879 arg-10880)))))))))) 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--23360-20746 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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--23139-20516 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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--23093-20479 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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--23139-20516 arg-0 arg-1 arg-2 arg-3 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-10860) (lambda (arg-10862) (lambda (arg-10864) (lambda (arg-10865) (lambda (arg-10866) (lambda (arg-10868) (lambda (arg-10869) (Unify-Core-unifyD_Unify__NF vars arg-10860 arg-10862 arg-10864 arg-10865 arg-10866 arg-10868 arg-10869))))))))) (lambda (vars) (lambda (arg-10871) (lambda (arg-10873) (lambda (arg-10875) (lambda (arg-10876) (lambda (arg-10877) (lambda (arg-10879) (lambda (arg-10880) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-10871 arg-10873 arg-10875 arg-10876 arg-10877 arg-10879 arg-10880)))))))))) 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--23360-20746 arg-0 arg-1 arg-2 arg-3 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--23070-20422 (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--22827-20257 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-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--22779-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 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--22704-20170 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-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--22779-20203 arg-0 arg-1 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--22686-20104 (lambda (arg-0 arg-1 arg-2 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-26 (vector-ref sc1 1))) e-26))) 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--22779-20203 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--22575-20020 (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--24140-21369-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--24179-21418 arg-0 arg-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--24440-21641-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--24470-22297 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--27585-24426-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--22571-23912-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--27445-24296-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--27445-24296-getLHS arg-0 arg-1 'erased e-4)) ((4) (ExprSearch-Interactive-TTImp-n--27445-24296-getLHS arg-0 arg-1 'erased e-4))(else (ExprSearch-Interactive-TTImp-case--27456-24341 arg-0 arg-1 'erased arg-3 (TT-Core-getFn 'erased arg-3))))))))(else (ExprSearch-Interactive-TTImp-case--27456-24341 arg-0 arg-1 'erased arg-3 (TT-Core-getFn 'erased arg-3))))))) -(define ExprSearch-Interactive-TTImp-n--25454-22536-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--25454-22535-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--25454-22536-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--25454-22536-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--25454-22535-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--25454-22535-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--25454-22535-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--25454-22535-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--25454-22535-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--25502-22601 arg-0 arg-1 arg-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--24440-21639-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--24440-21641-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--24440-21641-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--24440-21639-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--24440-21639-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--24440-21639-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--24440-21639-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--24440-21639-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--24440-21639-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--24440-21639-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--24440-21639-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--24440-21639-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--24440-21641-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--24440-21641-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--24440-21639-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--24440-21639-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--24440-21639-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--24440-21639-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--24440-21639-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--24440-21639-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--24440-21639-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--24440-21639-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--24440-21639-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--24440-21640-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--24469-21852 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--24469-22114 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--24440-21639-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--24440-21639-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--24469-22114 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--24440-21639-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--24440-21639-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--24469-21983 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--24469-22114 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--24440-21639-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--24440-21639-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--24469-22114 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--24440-21639-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--24440-21639-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--24469-22114 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--24440-21639-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--24440-21639-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--24440-21639-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--24440-21639-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--24440-21639-argDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased arg-13 arg-14))(else 1))))(else 1)))))))) +(define GenerateDef-Interactive-TTImp-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--23307-5532 e-0 arg-0 (Source-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--23519-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--27968-24693 (lambda (arg-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--27986-24628 (lambda (arg-0 arg-1 arg-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--27978-24569 (lambda (arg-0 arg-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--27839-24474 (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--27588-24236 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-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--22954-24203 (lambda (arg-0 arg-1 arg-2 arg-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--27588-24236 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--27416-24126 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-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--27408-24055 (lambda (arg-0 arg-1 arg-2 arg-3 arg-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--26886-23941 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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--26949-23748 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--26886-23641 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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-2851) (lambda (arg-2852) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-2851 arg-2852))) (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--26949-23748 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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--26724-23594 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-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--26886-23641 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--26886-23941 arg-0 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--26886-23941 arg-0 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--26886-23941 arg-0 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--25871-23159 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 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--25837-22669-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--25837-22669-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--25952-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 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--25952-22810 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 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--25885-22734 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-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-10905) (lambda (arg-10907) (lambda (arg-10909) (lambda (arg-10910) (lambda (arg-10911) (lambda (arg-10913) (lambda (arg-10914) (Unify-Core-unifyD_Unify__NF vars arg-10905 arg-10907 arg-10909 arg-10910 arg-10911 arg-10913 arg-10914))))))))) (lambda (vars) (lambda (arg-10916) (lambda (arg-10918) (lambda (arg-10920) (lambda (arg-10921) (lambda (arg-10922) (lambda (arg-10924) (lambda (arg-10925) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-10916 arg-10918 arg-10920 arg-10921 arg-10922 arg-10924 arg-10925)))))))))) 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--25952-22810 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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-10905) (lambda (arg-10907) (lambda (arg-10909) (lambda (arg-10910) (lambda (arg-10911) (lambda (arg-10913) (lambda (arg-10914) (Unify-Core-unifyD_Unify__NF vars arg-10905 arg-10907 arg-10909 arg-10910 arg-10911 arg-10913 arg-10914))))))))) (lambda (vars) (lambda (arg-10916) (lambda (arg-10918) (lambda (arg-10920) (lambda (arg-10921) (lambda (arg-10922) (lambda (arg-10924) (lambda (arg-10925) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-10916 arg-10918 arg-10920 arg-10921 arg-10922 arg-10924 arg-10925)))))))))) 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--25952-22920 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--25870-22687 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-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--25885-22734 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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--24823-22527 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-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--24823-21774-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--25580-22470 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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--24823-21773-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--24853-22430 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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--25580-22470 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--24852-22247 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--24823-21772-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--24852-22116 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 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--24823-21772-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--24852-21985 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 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--24823-21772-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--24562-21551 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--24553-21513 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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--24562-21551 arg-0 arg-1 arg-2 arg-3 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--24237-21378 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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--24237-21302 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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--24191-21235 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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--24237-21378 arg-0 arg-1 arg-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--24153-21202 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-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--24191-21235 arg-0 arg-1 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--23743-20879 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 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-4524) (lambda (arg-4525) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4526 arg-4527)))) 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) "\u000a")) 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-2851) (lambda (arg-2852) (Prelude-C-60C-43C-62_Semigroup__String arg-2851 arg-2852))) (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--23522-20803 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-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-10905) (lambda (arg-10907) (lambda (arg-10909) (lambda (arg-10910) (lambda (arg-10911) (lambda (arg-10913) (lambda (arg-10914) (Unify-Core-unifyD_Unify__NF vars arg-10905 arg-10907 arg-10909 arg-10910 arg-10911 arg-10913 arg-10914))))))))) (lambda (vars) (lambda (arg-10916) (lambda (arg-10918) (lambda (arg-10920) (lambda (arg-10921) (lambda (arg-10922) (lambda (arg-10924) (lambda (arg-10925) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-10916 arg-10918 arg-10920 arg-10921 arg-10922 arg-10924 arg-10925)))))))))) 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--23743-20879 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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--23522-20649 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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--23476-20612 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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--23522-20649 arg-0 arg-1 arg-2 arg-3 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-10905) (lambda (arg-10907) (lambda (arg-10909) (lambda (arg-10910) (lambda (arg-10911) (lambda (arg-10913) (lambda (arg-10914) (Unify-Core-unifyD_Unify__NF vars arg-10905 arg-10907 arg-10909 arg-10910 arg-10911 arg-10913 arg-10914))))))))) (lambda (vars) (lambda (arg-10916) (lambda (arg-10918) (lambda (arg-10920) (lambda (arg-10921) (lambda (arg-10922) (lambda (arg-10924) (lambda (arg-10925) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-10916 arg-10918 arg-10920 arg-10921 arg-10922 arg-10924 arg-10925)))))))))) 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--23743-20879 arg-0 arg-1 arg-2 arg-3 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--23453-20555 (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--23210-20390 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-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--23162-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) (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--23087-20303 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-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--23162-20336 arg-0 arg-1 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--23069-20237 (lambda (arg-0 arg-1 arg-2 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-26 (vector-ref sc1 1))) e-26))) 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--23162-20336 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--22958-20153 (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--24523-21502-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--24562-21551 arg-0 arg-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--24823-21774-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--24853-22430 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--27968-24559-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--22954-24045-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--27828-24429-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--27828-24429-getLHS arg-0 arg-1 'erased e-4)) ((4) (ExprSearch-Interactive-TTImp-n--27828-24429-getLHS arg-0 arg-1 'erased e-4))(else (ExprSearch-Interactive-TTImp-case--27839-24474 arg-0 arg-1 'erased arg-3 (TT-Core-getFn 'erased arg-3))))))))(else (ExprSearch-Interactive-TTImp-case--27839-24474 arg-0 arg-1 'erased arg-3 (TT-Core-getFn 'erased arg-3))))))) +(define ExprSearch-Interactive-TTImp-n--25837-22669-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--25837-22668-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--25837-22669-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--25837-22669-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--25837-22668-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--25837-22668-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--25837-22668-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--25837-22668-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--25837-22668-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--25885-22734 arg-0 arg-1 arg-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--24823-21772-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--24823-21774-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--24823-21774-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--24823-21772-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--24823-21772-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--24823-21772-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--24823-21772-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--24823-21772-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--24823-21772-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--24823-21772-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--24823-21772-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--24823-21772-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--24823-21774-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--24823-21774-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--24823-21772-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--24823-21772-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--24823-21772-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--24823-21772-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--24823-21772-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--24823-21772-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--24823-21772-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--24823-21772-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--24823-21772-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--24823-21773-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--24852-21985 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--24852-22247 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--24823-21772-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--24823-21772-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--24852-22247 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--24823-21772-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--24823-21772-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--24852-22116 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--24852-22247 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--24823-21772-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--24823-21772-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--24852-22247 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--24823-21772-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--24823-21772-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--24852-22247 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--24823-21772-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--24823-21772-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--24823-21772-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--24823-21772-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--24823-21772-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--24440-21641-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-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--24823-21774-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--26341-23461 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--26341-23461 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--26341-23461 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--26341-23461 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--24140-21369-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-27 (vector-ref sc2 3))) e-27)) (let ((sc2 e-5)) (let ((e-26 (vector-ref sc2 4))) e-26))) 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--23093-20479 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--25454-22536-findPos arg-0 e-6 e-7 e-3 arg-11 arg-10 arg-9 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 e-6 (lambda (eta-1) eta-1) e-9 e-8) (vector 1 (ExprSearch-Interactive-TTImp-searchLocalWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-3 arg-9 arg-10 arg-11) (vector 0 ))) eta-0))))))))))))))))))))))))))) +(define ExprSearch-Interactive-TTImp-searchType (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-10)) (cond ((equal? sc0 0) (let ((sc1 arg-11)) (case (vector-ref sc1 0) ((3) (let ((e-11 (vector-ref sc1 1))) (let ((e-12 (vector-ref sc1 2))) (let ((e-13 (vector-ref sc1 3))) (let ((e-14 (vector-ref sc1 4))) (let ((sc2 e-13)) (case (vector-ref sc2 0) ((2) (let ((e-16 (vector-ref sc2 1))) (let ((e-17 (vector-ref sc2 2))) (let ((e-18 (vector-ref sc2 3))) (lambda (eta-0) (ExprSearch-Interactive-TTImp-getSuccessful arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 1 arg-7 e-18 arg-9 arg-8 (vector 1 (lambda (eta-1) (ExprSearch-Interactive-TTImp-searchLocal arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 (vector 3 e-11 e-12 (vector 2 e-16 e-17 e-18) e-14) arg-9 arg-8 eta-1)) (vector 1 (lambda (eta-1) (let ((act-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--26724-23594 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--26724-23594 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--26724-23594 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--26724-23594 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--24523-21502-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-27 (vector-ref sc2 3))) e-27)) (let ((sc2 e-5)) (let ((e-26 (vector-ref sc2 4))) e-26))) 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--23476-20612 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--25837-22669-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--22686-20104 arg-0 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (let ((sc0 arg-5)) (let ((e-2 (vector-ref sc0 3))) e-2))))) +(define ExprSearch-Interactive-TTImp-searchIfHole (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (ExprSearch-Interactive-TTImp-case--23069-20237 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--22571-23912-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--27205-24103 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 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--22954-24045-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--27588-24236 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--23770-21069 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-2851) (lambda (arg-2852) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-2851 arg-2852))) (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--27445-24296-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--22575-20020 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--27585-24426-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--23070-20422 'erased arg-1 (let ((sc0 arg-1)) (let ((e-3 (vector-ref sc0 3))) e-3))))) +(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--24153-21202 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-2851) (lambda (arg-2852) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-2851 arg-2852))) (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--27828-24429-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--22958-20153 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--27968-24559-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--23453-20555 '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--24304-22068 (lambda (arg-0 arg-1 arg-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--24104-21934 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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--24067-21883 (lambda (arg-0 arg-1 arg-2 arg-3 arg-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--24104-21934 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--23828-21693 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--23690-21648 (lambda (arg-0 arg-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--23690-21565 (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--23458-21390 (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--23458-21335 (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--23406-21305 (lambda (arg-0 arg-1 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--23390-21259 (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--23406-21305 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--23317-21216 (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--23230-21120 (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--23057-20985 (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--23044-20965 (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--23057-20985 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--22970-20905 (lambda (arg-0 arg-1 arg-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--22813-20790 (lambda (arg-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--22562-20662 (lambda (arg-0 arg-1 arg-2 arg-3 arg-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--22561-20553 (lambda (arg-0 arg-1 arg-2 arg-3 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--22551-20517-lookupName 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-10 arg-9)))))) -(define CaseSplit-Interactive-TTImp-case--22462-20458 (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--22292-20319 (lambda (arg-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--22250-20280 (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--22241-20240 (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--22198-20212 (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--22023-20074 (lambda (arg-0 arg-1 arg-2 arg-3 arg-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--21995-20042 (lambda (arg-0 arg-1 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--22462-20443-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--22551-20517-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--22561-20553 '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--22551-20519-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--22551-20518-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--22551-20517-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-case--24687-22201 (lambda (arg-0 arg-1 arg-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--24487-22067 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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--24450-22016 (lambda (arg-0 arg-1 arg-2 arg-3 arg-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--24487-22067 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--24211-21826 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--24073-21781 (lambda (arg-0 arg-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--24073-21698 (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--23841-21523 (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--23841-21468 (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--23789-21438 (lambda (arg-0 arg-1 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--23773-21392 (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--23789-21438 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--23700-21349 (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--23613-21253 (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--23440-21118 (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--23427-21098 (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--23440-21118 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--23353-21038 (lambda (arg-0 arg-1 arg-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--23196-20923 (lambda (arg-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--22945-20795 (lambda (arg-0 arg-1 arg-2 arg-3 arg-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--22944-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) (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--22934-20650-lookupName 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-10 arg-9)))))) +(define CaseSplit-Interactive-TTImp-case--22845-20591 (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--22675-20452 (lambda (arg-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--22633-20413 (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--22624-20373 (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--22581-20345 (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--22406-20207 (lambda (arg-0 arg-1 arg-2 arg-3 arg-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--22378-20175 (lambda (arg-0 arg-1 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--22845-20576-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--22934-20650-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--22944-20686 '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--22934-20652-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--22934-20651-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--22934-20650-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--23044-20965 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-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--23427-21098 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--22462-20443-mkVarN e-2 e-3 arg-3 arg-2 arg-1 e-2 arg-2))) (CaseSplit-Interactive-TTImp-case--22462-20458 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-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--22845-20576-mkVarN e-2 e-3 arg-3 arg-2 arg-1 e-2 arg-2))) (CaseSplit-Interactive-TTImp-case--22845-20591 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--23230-21120 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 (CaseSplit-Interactive-TTImp-getFnArgs arg-6 (vector 0 ))))) +(define CaseSplit-Interactive-TTImp-newLHS (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (CaseSplit-Interactive-TTImp-case--23613-21253 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--24104-21934 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-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--24487-22067 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--22198-20212 'erased arg-1 (TT-Core-getFn 'erased arg-1))))))) +(define CaseSplit-Interactive-TTImp-getDefining (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((3) (let ((e-4 (vector-ref sc0 4))) (CaseSplit-Interactive-TTImp-getDefining 'erased e-4)))(else (CaseSplit-Interactive-TTImp-case--22581-20345 '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--22551-20518-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--22551-20519-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--23406-21305 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--21995-20042 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--22241-20240 arg-2 arg-1 arg-0 (CaseSplit-Interactive-TTImp-getDefining 'erased arg-2)))) +(define CaseSplit-Interactive-TTImp-getArgName (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((act-15 ((CaseSplit-Interactive-TTImp-n--22934-20651-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--22934-20652-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--23789-21438 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--22378-20175 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--22624-20373 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--17539-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--12315-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--17450-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--12315-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--17539-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--12315-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--17388-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--12315-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--17539-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--12315-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--12315-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--17388-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--17168-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--12315-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--17009-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--16793-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--16761-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-4481) (lambda (arg-4482) (Context-Core-full_HasNames__Name arg-4481 arg-4482))) (lambda (arg-4483) (lambda (arg-4484) (Context-Core-resolved_HasNames__Name arg-4483 arg-4484)))) 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--16353-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--16353-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--16377-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--16377-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--15964-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--16008-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--15999-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--16008-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--15709-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--15456-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-10860) (lambda (arg-10862) (lambda (arg-10864) (lambda (arg-10865) (lambda (arg-10866) (lambda (arg-10868) (lambda (arg-10869) (Unify-Core-unifyD_Unify__NF vars arg-10860 arg-10862 arg-10864 arg-10865 arg-10866 arg-10868 arg-10869))))))))) (lambda (vars) (lambda (arg-10871) (lambda (arg-10873) (lambda (arg-10875) (lambda (arg-10876) (lambda (arg-10877) (lambda (arg-10879) (lambda (arg-10880) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-10871 arg-10873 arg-10875 arg-10876 arg-10877 arg-10879 arg-10880)))))))))) 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--15709-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--15456-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--14952-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--14400-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--14400-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--14427-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--14400-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--14400-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--14611-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--14400-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--14518-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--14400-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--14426-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-10860) (lambda (arg-10862) (lambda (arg-10864) (lambda (arg-10865) (lambda (arg-10866) (lambda (arg-10868) (lambda (arg-10869) (Unify-Core-unifyD_Unify__NF vars arg-10860 arg-10862 arg-10864 arg-10865 arg-10866 arg-10868 arg-10869))))))))) (lambda (vars) (lambda (arg-10871) (lambda (arg-10873) (lambda (arg-10875) (lambda (arg-10876) (lambda (arg-10877) (lambda (arg-10879) (lambda (arg-10880) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-10871 arg-10873 arg-10875 arg-10876 arg-10877 arg-10879 arg-10880)))))))))) 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--14518-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--14085-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--14019-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--14069-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--14019-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--14019-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--13888-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--13841-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--13888-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--13615-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--13615-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--13615-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--13615-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--13615-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--13615-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--13509-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--13040-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--12843-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-10860) (lambda (arg-10862) (lambda (arg-10864) (lambda (arg-10865) (lambda (arg-10866) (lambda (arg-10868) (lambda (arg-10869) (lambda (eta-1) (Unify-Core-unifyD_Unify__Term vars arg-10860 arg-10862 arg-10864 arg-10865 arg-10866 arg-10868 arg-10869 eta-1)))))))))) (lambda (vars) (lambda (arg-10871) (lambda (arg-10873) (lambda (arg-10875) (lambda (arg-10876) (lambda (arg-10877) (lambda (arg-10879) (lambda (arg-10880) (lambda (eta-1) (Unify-Core-unifyWithLazyD_Unify__Term vars arg-10871 arg-10873 arg-10875 arg-10876 arg-10877 arg-10879 arg-10880 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--13040-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--12843-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--12792-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-10860) (lambda (arg-10862) (lambda (arg-10864) (lambda (arg-10865) (lambda (arg-10866) (lambda (arg-10868) (lambda (arg-10869) (lambda (eta-1) (Unify-Core-unifyD_Unify__Term vars arg-10860 arg-10862 arg-10864 arg-10865 arg-10866 arg-10868 arg-10869 eta-1)))))))))) (lambda (vars) (lambda (arg-10871) (lambda (arg-10873) (lambda (arg-10875) (lambda (arg-10876) (lambda (arg-10877) (lambda (arg-10879) (lambda (arg-10880) (lambda (eta-1) (Unify-Core-unifyWithLazyD_Unify__Term vars arg-10871 arg-10873 arg-10875 arg-10876 arg-10877 arg-10879 arg-10880 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--13040-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--12746-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--12792-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--12703-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--12532-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--12471-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--15964-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--16008-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--14019-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--14069-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--12315-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--17168-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--12315-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--17168-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--12315-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--17168-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--12315-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--13615-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--12698-830-impl (lambda (arg-0 arg-1 arg-2 arg-3) (AutoSearch-Core-case--12703-838 'erased arg-1 'erased arg-3 (let ((sc0 arg-3)) (let ((e-3 (vector-ref sc0 3))) e-3))))) -(define AutoSearch-Core-n--14400-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--14400-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--14427-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--14400-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--14400-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--14400-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--14400-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--14400-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--14400-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-10860) (lambda (arg-10862) (lambda (arg-10864) (lambda (arg-10865) (lambda (arg-10866) (lambda (arg-10868) (lambda (arg-10869) (Unify-Core-unifyD_Unify__NF vars arg-10860 arg-10862 arg-10864 arg-10865 arg-10866 arg-10868 arg-10869))))))))) (lambda (vars) (lambda (arg-10871) (lambda (arg-10873) (lambda (arg-10875) (lambda (arg-10876) (lambda (arg-10877) (lambda (arg-10879) (lambda (arg-10880) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-10871 arg-10873 arg-10875 arg-10876 arg-10877 arg-10879 arg-10880)))))))))) 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--14518-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--16353-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--16353-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--16353-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--16353-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--14400-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--14400-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--14400-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--14400-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--14400-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--12315-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--14019-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-case--17628-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--12404-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--17539-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--12404-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--17628-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--12404-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--17477-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--12404-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--17628-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--12404-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--12404-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--17477-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--17257-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--12404-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--17098-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--16882-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--16850-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-4524) (lambda (arg-4525) (Context-Core-full_HasNames__Name arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__Name arg-4526 arg-4527)))) 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--16442-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--16442-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--16466-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--16466-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--16053-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--16097-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--16088-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--16097-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--15798-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--15545-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-10905) (lambda (arg-10907) (lambda (arg-10909) (lambda (arg-10910) (lambda (arg-10911) (lambda (arg-10913) (lambda (arg-10914) (Unify-Core-unifyD_Unify__NF vars arg-10905 arg-10907 arg-10909 arg-10910 arg-10911 arg-10913 arg-10914))))))))) (lambda (vars) (lambda (arg-10916) (lambda (arg-10918) (lambda (arg-10920) (lambda (arg-10921) (lambda (arg-10922) (lambda (arg-10924) (lambda (arg-10925) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-10916 arg-10918 arg-10920 arg-10921 arg-10922 arg-10924 arg-10925)))))))))) 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--15798-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--15545-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--15041-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--14489-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--14489-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--14516-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--14489-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--14489-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--14700-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--14489-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--14607-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--14489-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--14515-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-10905) (lambda (arg-10907) (lambda (arg-10909) (lambda (arg-10910) (lambda (arg-10911) (lambda (arg-10913) (lambda (arg-10914) (Unify-Core-unifyD_Unify__NF vars arg-10905 arg-10907 arg-10909 arg-10910 arg-10911 arg-10913 arg-10914))))))))) (lambda (vars) (lambda (arg-10916) (lambda (arg-10918) (lambda (arg-10920) (lambda (arg-10921) (lambda (arg-10922) (lambda (arg-10924) (lambda (arg-10925) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-10916 arg-10918 arg-10920 arg-10921 arg-10922 arg-10924 arg-10925)))))))))) 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--14607-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--14174-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--14108-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--14158-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--14108-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--14108-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--13977-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--13930-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--13977-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--13704-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--13704-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--13704-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--13704-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--13704-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--13704-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--13598-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--13129-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--12932-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-10905) (lambda (arg-10907) (lambda (arg-10909) (lambda (arg-10910) (lambda (arg-10911) (lambda (arg-10913) (lambda (arg-10914) (lambda (eta-1) (Unify-Core-unifyD_Unify__Term vars arg-10905 arg-10907 arg-10909 arg-10910 arg-10911 arg-10913 arg-10914 eta-1)))))))))) (lambda (vars) (lambda (arg-10916) (lambda (arg-10918) (lambda (arg-10920) (lambda (arg-10921) (lambda (arg-10922) (lambda (arg-10924) (lambda (arg-10925) (lambda (eta-1) (Unify-Core-unifyWithLazyD_Unify__Term vars arg-10916 arg-10918 arg-10920 arg-10921 arg-10922 arg-10924 arg-10925 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--13129-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--12932-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--12881-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-10905) (lambda (arg-10907) (lambda (arg-10909) (lambda (arg-10910) (lambda (arg-10911) (lambda (arg-10913) (lambda (arg-10914) (lambda (eta-1) (Unify-Core-unifyD_Unify__Term vars arg-10905 arg-10907 arg-10909 arg-10910 arg-10911 arg-10913 arg-10914 eta-1)))))))))) (lambda (vars) (lambda (arg-10916) (lambda (arg-10918) (lambda (arg-10920) (lambda (arg-10921) (lambda (arg-10922) (lambda (arg-10924) (lambda (arg-10925) (lambda (eta-1) (Unify-Core-unifyWithLazyD_Unify__Term vars arg-10916 arg-10918 arg-10920 arg-10921 arg-10922 arg-10924 arg-10925 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--13129-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--12835-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--12881-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--12792-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--12621-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--12560-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--16053-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--16097-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--14108-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--14158-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--12404-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--17257-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--12404-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--17257-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--12404-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--17257-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--12404-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--13704-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--12787-830-impl (lambda (arg-0 arg-1 arg-2 arg-3) (AutoSearch-Core-case--12792-838 'erased arg-1 'erased arg-3 (let ((sc0 arg-3)) (let ((e-3 (vector-ref sc0 3))) e-3))))) +(define AutoSearch-Core-n--14489-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--14489-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--14516-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--14489-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--14489-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--14489-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--14489-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--14489-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--14489-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-10905) (lambda (arg-10907) (lambda (arg-10909) (lambda (arg-10910) (lambda (arg-10911) (lambda (arg-10913) (lambda (arg-10914) (Unify-Core-unifyD_Unify__NF vars arg-10905 arg-10907 arg-10909 arg-10910 arg-10911 arg-10913 arg-10914))))))))) (lambda (vars) (lambda (arg-10916) (lambda (arg-10918) (lambda (arg-10920) (lambda (arg-10921) (lambda (arg-10922) (lambda (arg-10924) (lambda (arg-10925) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-10916 arg-10918 arg-10920 arg-10921 arg-10922 arg-10924 arg-10925)))))))))) 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--14607-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--16442-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--16442-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--16442-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--16442-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--14489-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--14489-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--14489-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--14489-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--14489-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--12404-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--14108-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--17388-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--17388-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--15964-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-27 (vector-ref sc2 3))) e-27)) (let ((sc2 e-5)) (let ((e-26 (vector-ref sc2 4))) e-26))) 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--15456-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-10860) (lambda (arg-10862) (lambda (arg-10864) (lambda (arg-10865) (lambda (arg-10866) (lambda (arg-10868) (lambda (arg-10869) (Unify-Core-unifyD_Unify__NF vars arg-10860 arg-10862 arg-10864 arg-10865 arg-10866 arg-10868 arg-10869))))))))) (lambda (vars) (lambda (arg-10871) (lambda (arg-10873) (lambda (arg-10875) (lambda (arg-10876) (lambda (arg-10877) (lambda (arg-10879) (lambda (arg-10880) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-10871 arg-10873 arg-10875 arg-10876 arg-10877 arg-10879 arg-10880)))))))))) 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--15709-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--14400-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-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--17477-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--17477-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--16053-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-27 (vector-ref sc2 3))) e-27)) (let ((sc2 e-5)) (let ((e-26 (vector-ref sc2 4))) e-26))) 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--15545-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-10905) (lambda (arg-10907) (lambda (arg-10909) (lambda (arg-10910) (lambda (arg-10911) (lambda (arg-10913) (lambda (arg-10914) (Unify-Core-unifyD_Unify__NF vars arg-10905 arg-10907 arg-10909 arg-10910 arg-10911 arg-10913 arg-10914))))))))) (lambda (vars) (lambda (arg-10916) (lambda (arg-10918) (lambda (arg-10920) (lambda (arg-10921) (lambda (arg-10922) (lambda (arg-10924) (lambda (arg-10925) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-10916 arg-10918 arg-10920 arg-10921 arg-10922 arg-10924 arg-10925)))))))))) 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--15798-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--14489-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-26 (vector-ref sc1 1))) e-26))) 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--12792-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 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-26 (vector-ref sc1 1))) e-26))) 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--12881-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--12698-830-impl 'erased arg-1 'erased eta-0))) arg-1) (List-Data-filter 'erased (lambda (eta-0) (AutoSearch-Core-n--12698-830-impl 'erased arg-1 'erased eta-0)) arg-1)))) +(define AutoSearch-Core-impLast (lambda (arg-0 arg-1) (List-Prelude-C-43C-43 'erased (List-Data-filter 'erased (lambda (eta-0) (Prelude-not (AutoSearch-Core-n--12787-830-impl 'erased arg-1 'erased eta-0))) arg-1) (List-Data-filter 'erased (lambda (eta-0) (AutoSearch-Core-n--12787-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--13841-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--13615-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--13615-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--16353-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-4481) (lambda (arg-4482) (Context-Core-full_HasNames__Name arg-4481 arg-4482))) (lambda (arg-4483) (lambda (arg-4484) (Context-Core-resolved_HasNames__Name arg-4483 arg-4484)))) 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 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--13930-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--13704-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--13704-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--16442-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-4524) (lambda (arg-4525) (Context-Core-full_HasNames__Name arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__Name arg-4526 arg-4527)))) 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--14809-10848 (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--14793-10836 (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--14809-10848 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--14734-10782 (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-4481) (lambda (arg-4482) (Context-Core-full_HasNames__Def arg-4481 arg-4482))) (lambda (arg-4483) (lambda (arg-4484) (Context-Core-resolved_HasNames__Def arg-4483 arg-4484)))) (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--14334-10607 (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--14334-10554-toArgExp arg-0 arg-1 arg-2 arg-3 arg-4 'erased eta-1)) (CompileExpr-Compiler-n--14334-10555-getVars arg-0 arg-1 arg-2 arg-3 arg-4 'erased 'erased e-3))))) eta-0))))))) -(define CompileExpr-Compiler-case--14334-10534 (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--14334-10478 (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--14334-10427-toArgExp arg-0 arg-1 arg-2 arg-3 'erased eta-1)) (CompileExpr-Compiler-n--14334-10428-getVars arg-0 arg-1 arg-2 arg-3 'erased 'erased e-3))))) eta-0)))))))))))) -(define CompileExpr-Compiler-case--13999-10159 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (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--13846-10088 (lambda (arg-0 arg-1 arg-2 arg-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--13738-9903 (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--13611-9770 (lambda (arg-0 arg-1 arg-2 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--13592-9732 (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--13581-9717 (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--13432-9612 (lambda (arg-0 arg-1 arg-2 arg-3 arg-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--13412-9579 (lambda (arg-0 arg-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--13401-9563 (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--13412-9579 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--13350-9524 (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--12114-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--12943-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--12114-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--12943-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--12105-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--12105-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--12564-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--12105-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--12105-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--12268-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--12191-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--12268-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--12099-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--12158-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--12191-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--12191-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--12099-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--12158-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--11968-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--11520-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--11517-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--11364-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--11288-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--10895-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--10865-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--10895-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--10771-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--10752-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--10752-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--10642-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--10633-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--10197-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--10168-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--10197-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--11364-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--14334-10554-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--14334-10427-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--12105-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--12564-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--10434-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--10434-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--10633-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--10633-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--10633-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--10633-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--10642-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--14334-10555-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--14334-10555-getVars arg-0 arg-1 arg-2 arg-3 arg-4 'erased 'erased e-3))))))))) -(define CompileExpr-Compiler-n--14334-10428-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--14334-10428-getVars arg-0 arg-1 arg-2 arg-3 'erased 'erased e-3))))))))) -(define CompileExpr-Compiler-n--10752-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--10771-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--12099-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--10530-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--10530-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--10530-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-case--14896-10848 (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--14880-10836 (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--14896-10848 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--14821-10782 (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-4524) (lambda (arg-4525) (Context-Core-full_HasNames__Def arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__Def arg-4526 arg-4527)))) (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--14421-10607 (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--14421-10554-toArgExp arg-0 arg-1 arg-2 arg-3 arg-4 'erased eta-1)) (CompileExpr-Compiler-n--14421-10555-getVars arg-0 arg-1 arg-2 arg-3 arg-4 'erased 'erased e-3))))) eta-0))))))) +(define CompileExpr-Compiler-case--14421-10534 (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--14421-10478 (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--14421-10427-toArgExp arg-0 arg-1 arg-2 arg-3 'erased eta-1)) (CompileExpr-Compiler-n--14421-10428-getVars arg-0 arg-1 arg-2 arg-3 'erased 'erased e-3))))) eta-0)))))))))))) +(define CompileExpr-Compiler-case--14086-10159 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (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--13933-10088 (lambda (arg-0 arg-1 arg-2 arg-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--13825-9903 (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--13698-9770 (lambda (arg-0 arg-1 arg-2 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--13679-9732 (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--13668-9717 (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--13519-9612 (lambda (arg-0 arg-1 arg-2 arg-3 arg-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--13499-9579 (lambda (arg-0 arg-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--13488-9563 (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--13499-9579 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--13437-9524 (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--12201-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--13030-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--12201-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--13030-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--12192-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--12192-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--12651-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--12192-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--12192-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--12355-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--12278-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--12355-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--12186-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--12245-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--12278-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--12278-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--12186-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--12245-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--12055-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--11607-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--11604-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--11451-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--11375-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--10982-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--10952-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--10982-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--10858-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--10839-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--10839-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--10729-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--10720-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--10284-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--10255-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--10284-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--11451-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--14421-10554-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--14421-10427-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--12192-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--12651-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--10521-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--10521-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--10720-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--10720-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--10720-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--10720-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--10729-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--14421-10555-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--14421-10555-getVars arg-0 arg-1 arg-2 arg-3 arg-4 'erased 'erased e-3))))))))) +(define CompileExpr-Compiler-n--14421-10428-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--14421-10428-getVars arg-0 arg-1 arg-2 arg-3 'erased 'erased e-3))))))))) +(define CompileExpr-Compiler-n--10839-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--10858-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--12186-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--10617-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--10617-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--10617-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-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 ((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-16 e-17 e-18 e-19) e-13))) (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--12943-9198 arg-0 e-0 e-2 e-13 e-16 e-17 e-18 e-19 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-25 (vector-ref sc2 1))) (let ((e-26 (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-25 e-26) e-13))) ((CompileExpr-Compiler-case--12114-9372 arg-0 e-0 e-13 e-25 e-26 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-28 (vector-ref sc2 1))) (CompileExpr-Compiler-toCExpTree arg-0 arg-1 arg-2 e-28)))))))) (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-7 (vector-ref sc0 1))) (CompileExpr-Compiler-toCExp arg-0 arg-1 arg-2 e-7))) ((2) (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 14 (FC-Core-emptyFC) e-9)) 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-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-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 ((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-16 e-17 e-18 e-19) e-13))) (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--13030-9198 arg-0 e-0 e-2 e-13 e-16 e-17 e-18 e-19 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-25 (vector-ref sc2 1))) (let ((e-26 (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-25 e-26) e-13))) ((CompileExpr-Compiler-case--12201-9372 arg-0 e-0 e-13 e-25 e-26 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-28 (vector-ref sc2 1))) (CompileExpr-Compiler-toCExpTree arg-0 arg-1 arg-2 e-28)))))))) (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-7 (vector-ref sc0 1))) (CompileExpr-Compiler-toCExp arg-0 arg-1 arg-2 e-7))) ((2) (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 14 (FC-Core-emptyFC) e-9)) 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--11517-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--11520-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--14334-10478 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--14334-10607 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--10197-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-4481) (lambda (arg-4482) (Context-Core-full_HasNames__Name arg-4481 arg-4482))) (lambda (arg-4483) (lambda (arg-4484) (Context-Core-resolved_HasNames__Name arg-4483 arg-4484)))) 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-4481) (lambda (arg-4482) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4481 arg-4482))) (lambda (arg-4483) (lambda (arg-4484) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4483 arg-4484)))) 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-4481) (lambda (arg-4482) (Context-Core-full_HasNames__Name arg-4481 arg-4482))) (lambda (arg-4483) (lambda (arg-4484) (Context-Core-resolved_HasNames__Name arg-4483 arg-4484)))) 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-4481) (lambda (arg-4482) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4481 arg-4482))) (lambda (arg-4483) (lambda (arg-4484) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4483 arg-4484)))) 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-4481) (lambda (arg-4482) (Context-Core-full_HasNames__Name arg-4481 arg-4482))) (lambda (arg-4483) (lambda (arg-4484) (Context-Core-resolved_HasNames__Name arg-4483 arg-4484)))) 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-4481) (lambda (arg-4482) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4481 arg-4482))) (lambda (arg-4483) (lambda (arg-4484) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4483 arg-4484)))) 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-4481) (lambda (arg-4482) (Context-Core-full_HasNames__Name arg-4481 arg-4482))) (lambda (arg-4483) (lambda (arg-4484) (Context-Core-resolved_HasNames__Name arg-4483 arg-4484)))) 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-4481) (lambda (arg-4482) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4481 arg-4482))) (lambda (arg-4483) (lambda (arg-4484) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4483 arg-4484)))) 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-4481) (lambda (arg-4482) (Context-Core-full_HasNames__Name arg-4481 arg-4482))) (lambda (arg-4483) (lambda (arg-4484) (Context-Core-resolved_HasNames__Name arg-4483 arg-4484)))) 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-4481) (lambda (arg-4482) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4481 arg-4482))) (lambda (arg-4483) (lambda (arg-4484) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4483 arg-4484)))) 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-4481) (lambda (arg-4482) (Context-Core-full_HasNames__Name arg-4481 arg-4482))) (lambda (arg-4483) (lambda (arg-4484) (Context-Core-resolved_HasNames__Name arg-4483 arg-4484)))) 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-4481) (lambda (arg-4482) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4481 arg-4482))) (lambda (arg-4483) (lambda (arg-4484) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4483 arg-4484)))) 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-4481) (lambda (arg-4482) (Context-Core-full_HasNames__Name arg-4481 arg-4482))) (lambda (arg-4483) (lambda (arg-4484) (Context-Core-resolved_HasNames__Name arg-4483 arg-4484)))) 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-4481) (lambda (arg-4482) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4481 arg-4482))) (lambda (arg-4483) (lambda (arg-4484) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4483 arg-4484)))) 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-4481) (lambda (arg-4482) (Context-Core-full_HasNames__Name arg-4481 arg-4482))) (lambda (arg-4483) (lambda (arg-4484) (Context-Core-resolved_HasNames__Name arg-4483 arg-4484)))) 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-4481) (lambda (arg-4482) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4481 arg-4482))) (lambda (arg-4483) (lambda (arg-4484) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4483 arg-4484)))) 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-4481) (lambda (arg-4482) (Context-Core-full_HasNames__Name arg-4481 arg-4482))) (lambda (arg-4483) (lambda (arg-4484) (Context-Core-resolved_HasNames__Name arg-4483 arg-4484)))) 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-4481) (lambda (arg-4482) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4481 arg-4482))) (lambda (arg-4483) (lambda (arg-4484) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4483 arg-4484)))) 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-4481) (lambda (arg-4482) (Context-Core-full_HasNames__Name arg-4481 arg-4482))) (lambda (arg-4483) (lambda (arg-4484) (Context-Core-resolved_HasNames__Name arg-4483 arg-4484)))) 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-4481) (lambda (arg-4482) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4481 arg-4482))) (lambda (arg-4483) (lambda (arg-4484) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4483 arg-4484)))) 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-4481) (lambda (arg-4482) (Context-Core-full_HasNames__Name arg-4481 arg-4482))) (lambda (arg-4483) (lambda (arg-4484) (Context-Core-resolved_HasNames__Name arg-4483 arg-4484)))) 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-4481) (lambda (arg-4482) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4481 arg-4482))) (lambda (arg-4483) (lambda (arg-4484) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4483 arg-4484)))) 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-4481) (lambda (arg-4482) (Context-Core-full_HasNames__Name arg-4481 arg-4482))) (lambda (arg-4483) (lambda (arg-4484) (Context-Core-resolved_HasNames__Name arg-4483 arg-4484)))) 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-4481) (lambda (arg-4482) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4481 arg-4482))) (lambda (arg-4483) (lambda (arg-4484) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4483 arg-4484)))) 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-4481) (lambda (arg-4482) (Context-Core-full_HasNames__Name arg-4481 arg-4482))) (lambda (arg-4483) (lambda (arg-4484) (Context-Core-resolved_HasNames__Name arg-4483 arg-4484)))) 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-4481) (lambda (arg-4482) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4481 arg-4482))) (lambda (arg-4483) (lambda (arg-4484) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4483 arg-4484)))) 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-4481) (lambda (arg-4482) (Context-Core-full_HasNames__Name arg-4481 arg-4482))) (lambda (arg-4483) (lambda (arg-4484) (Context-Core-resolved_HasNames__Name arg-4483 arg-4484)))) 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-4481) (lambda (arg-4482) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4481 arg-4482))) (lambda (arg-4483) (lambda (arg-4484) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4483 arg-4484)))) 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-4481) (lambda (arg-4482) (Context-Core-full_HasNames__Name arg-4481 arg-4482))) (lambda (arg-4483) (lambda (arg-4484) (Context-Core-resolved_HasNames__Name arg-4483 arg-4484)))) 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-4481) (lambda (arg-4482) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4481 arg-4482))) (lambda (arg-4483) (lambda (arg-4484) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4483 arg-4484)))) 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-4481) (lambda (arg-4482) (Context-Core-full_HasNames__Name arg-4481 arg-4482))) (lambda (arg-4483) (lambda (arg-4484) (Context-Core-resolved_HasNames__Name arg-4483 arg-4484)))) 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-4481) (lambda (arg-4482) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4481 arg-4482))) (lambda (arg-4483) (lambda (arg-4484) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4483 arg-4484)))) 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-4481) (lambda (arg-4482) (Context-Core-full_HasNames__Name arg-4481 arg-4482))) (lambda (arg-4483) (lambda (arg-4484) (Context-Core-resolved_HasNames__Name arg-4483 arg-4484)))) 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-4481) (lambda (arg-4482) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4481 arg-4482))) (lambda (arg-4483) (lambda (arg-4484) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4483 arg-4484)))) 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-4481) (lambda (arg-4482) (Context-Core-full_HasNames__Name arg-4481 arg-4482))) (lambda (arg-4483) (lambda (arg-4484) (Context-Core-resolved_HasNames__Name arg-4483 arg-4484)))) 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-4481) (lambda (arg-4482) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4481 arg-4482))) (lambda (arg-4483) (lambda (arg-4484) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4483 arg-4484)))) 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-4481) (lambda (arg-4482) (Context-Core-full_HasNames__Name arg-4481 arg-4482))) (lambda (arg-4483) (lambda (arg-4484) (Context-Core-resolved_HasNames__Name arg-4483 arg-4484)))) 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-4481) (lambda (arg-4482) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4481 arg-4482))) (lambda (arg-4483) (lambda (arg-4484) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4483 arg-4484)))) 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-4481) (lambda (arg-4482) (Context-Core-full_HasNames__Name arg-4481 arg-4482))) (lambda (arg-4483) (lambda (arg-4484) (Context-Core-resolved_HasNames__Name arg-4483 arg-4484)))) 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-4481) (lambda (arg-4482) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4481 arg-4482))) (lambda (arg-4483) (lambda (arg-4484) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4483 arg-4484)))) 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-4481) (lambda (arg-4482) (Context-Core-full_HasNames__Name arg-4481 arg-4482))) (lambda (arg-4483) (lambda (arg-4484) (Context-Core-resolved_HasNames__Name arg-4483 arg-4484)))) 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-4481) (lambda (arg-4482) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4481 arg-4482))) (lambda (arg-4483) (lambda (arg-4484) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4483 arg-4484)))) 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-4481) (lambda (arg-4482) (Context-Core-full_HasNames__Name arg-4481 arg-4482))) (lambda (arg-4483) (lambda (arg-4484) (Context-Core-resolved_HasNames__Name arg-4483 arg-4484)))) 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-4481) (lambda (arg-4482) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4481 arg-4482))) (lambda (arg-4483) (lambda (arg-4484) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4483 arg-4484)))) 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-4481) (lambda (arg-4482) (Context-Core-full_HasNames__Name arg-4481 arg-4482))) (lambda (arg-4483) (lambda (arg-4484) (Context-Core-resolved_HasNames__Name arg-4483 arg-4484)))) 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-4481) (lambda (arg-4482) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4481 arg-4482))) (lambda (arg-4483) (lambda (arg-4484) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4483 arg-4484)))) 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-4481) (lambda (arg-4482) (Context-Core-full_HasNames__Name arg-4481 arg-4482))) (lambda (arg-4483) (lambda (arg-4484) (Context-Core-resolved_HasNames__Name arg-4483 arg-4484)))) 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-4481) (lambda (arg-4482) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4481 arg-4482))) (lambda (arg-4483) (lambda (arg-4484) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4483 arg-4484)))) 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-4481) (lambda (arg-4482) (Context-Core-full_HasNames__Name arg-4481 arg-4482))) (lambda (arg-4483) (lambda (arg-4484) (Context-Core-resolved_HasNames__Name arg-4483 arg-4484)))) 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-4481) (lambda (arg-4482) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4481 arg-4482))) (lambda (arg-4483) (lambda (arg-4484) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4483 arg-4484)))) 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-4481) (lambda (arg-4482) (Context-Core-full_HasNames__Name arg-4481 arg-4482))) (lambda (arg-4483) (lambda (arg-4484) (Context-Core-resolved_HasNames__Name arg-4483 arg-4484)))) 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-4481) (lambda (arg-4482) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4481 arg-4482))) (lambda (arg-4483) (lambda (arg-4484) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4483 arg-4484)))) 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-4481) (lambda (arg-4482) (Context-Core-full_HasNames__Name arg-4481 arg-4482))) (lambda (arg-4483) (lambda (arg-4484) (Context-Core-resolved_HasNames__Name arg-4483 arg-4484)))) 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-4481) (lambda (arg-4482) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4481 arg-4482))) (lambda (arg-4483) (lambda (arg-4484) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4483 arg-4484)))) 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-4481) (lambda (arg-4482) (Context-Core-full_HasNames__Name arg-4481 arg-4482))) (lambda (arg-4483) (lambda (arg-4484) (Context-Core-resolved_HasNames__Name arg-4483 arg-4484)))) 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-4481) (lambda (arg-4482) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4481 arg-4482))) (lambda (arg-4483) (lambda (arg-4484) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4483 arg-4484)))) 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-4481) (lambda (arg-4482) (Context-Core-full_HasNames__Name arg-4481 arg-4482))) (lambda (arg-4483) (lambda (arg-4484) (Context-Core-resolved_HasNames__Name arg-4483 arg-4484)))) 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-4481) (lambda (arg-4482) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4481 arg-4482))) (lambda (arg-4483) (lambda (arg-4484) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4483 arg-4484)))) 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-4481) (lambda (arg-4482) (Context-Core-full_HasNames__Name arg-4481 arg-4482))) (lambda (arg-4483) (lambda (arg-4484) (Context-Core-resolved_HasNames__Name arg-4483 arg-4484)))) 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-4481) (lambda (arg-4482) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4481 arg-4482))) (lambda (arg-4483) (lambda (arg-4484) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4483 arg-4484)))) 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-4481) (lambda (arg-4482) (Context-Core-full_HasNames__Name arg-4481 arg-4482))) (lambda (arg-4483) (lambda (arg-4484) (Context-Core-resolved_HasNames__Name arg-4483 arg-4484)))) 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-4481) (lambda (arg-4482) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4481 arg-4482))) (lambda (arg-4483) (lambda (arg-4484) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4483 arg-4484)))) 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-4481) (lambda (arg-4482) (Context-Core-full_HasNames__Name arg-4481 arg-4482))) (lambda (arg-4483) (lambda (arg-4484) (Context-Core-resolved_HasNames__Name arg-4483 arg-4484)))) 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-4481) (lambda (arg-4482) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4481 arg-4482))) (lambda (arg-4483) (lambda (arg-4484) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4483 arg-4484)))) 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-4481) (lambda (arg-4482) (Context-Core-full_HasNames__Name arg-4481 arg-4482))) (lambda (arg-4483) (lambda (arg-4484) (Context-Core-resolved_HasNames__Name arg-4483 arg-4484)))) 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-4481) (lambda (arg-4482) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4481 arg-4482))) (lambda (arg-4483) (lambda (arg-4484) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4483 arg-4484)))) 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-4481) (lambda (arg-4482) (Context-Core-full_HasNames__Name arg-4481 arg-4482))) (lambda (arg-4483) (lambda (arg-4484) (Context-Core-resolved_HasNames__Name arg-4483 arg-4484)))) 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-4481) (lambda (arg-4482) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4481 arg-4482))) (lambda (arg-4483) (lambda (arg-4484) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4483 arg-4484)))) 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-4481) (lambda (arg-4482) (Context-Core-full_HasNames__Name arg-4481 arg-4482))) (lambda (arg-4483) (lambda (arg-4484) (Context-Core-resolved_HasNames__Name arg-4483 arg-4484)))) 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-4481) (lambda (arg-4482) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4481 arg-4482))) (lambda (arg-4483) (lambda (arg-4484) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4483 arg-4484)))) 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-4481) (lambda (arg-4482) (Context-Core-full_HasNames__Name arg-4481 arg-4482))) (lambda (arg-4483) (lambda (arg-4484) (Context-Core-resolved_HasNames__Name arg-4483 arg-4484)))) 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-4481) (lambda (arg-4482) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4481 arg-4482))) (lambda (arg-4483) (lambda (arg-4484) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4483 arg-4484)))) 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-4481) (lambda (arg-4482) (Context-Core-full_HasNames__Name arg-4481 arg-4482))) (lambda (arg-4483) (lambda (arg-4484) (Context-Core-resolved_HasNames__Name arg-4483 arg-4484)))) 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-4481) (lambda (arg-4482) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4481 arg-4482))) (lambda (arg-4483) (lambda (arg-4484) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4483 arg-4484)))) 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-4481) (lambda (arg-4482) (Context-Core-full_HasNames__Name arg-4481 arg-4482))) (lambda (arg-4483) (lambda (arg-4484) (Context-Core-resolved_HasNames__Name arg-4483 arg-4484)))) 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-4481) (lambda (arg-4482) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4481 arg-4482))) (lambda (arg-4483) (lambda (arg-4484) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4483 arg-4484)))) 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-4481) (lambda (arg-4482) (Context-Core-full_HasNames__Name arg-4481 arg-4482))) (lambda (arg-4483) (lambda (arg-4484) (Context-Core-resolved_HasNames__Name arg-4483 arg-4484)))) 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-4481) (lambda (arg-4482) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4481 arg-4482))) (lambda (arg-4483) (lambda (arg-4484) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4483 arg-4484)))) 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-4481) (lambda (arg-4482) (Context-Core-full_HasNames__Name arg-4481 arg-4482))) (lambda (arg-4483) (lambda (arg-4484) (Context-Core-resolved_HasNames__Name arg-4483 arg-4484)))) 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-4481) (lambda (arg-4482) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4481 arg-4482))) (lambda (arg-4483) (lambda (arg-4484) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4483 arg-4484)))) 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-4481) (lambda (arg-4482) (Context-Core-full_HasNames__Name arg-4481 arg-4482))) (lambda (arg-4483) (lambda (arg-4484) (Context-Core-resolved_HasNames__Name arg-4483 arg-4484)))) 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-4481) (lambda (arg-4482) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4481 arg-4482))) (lambda (arg-4483) (lambda (arg-4484) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4483 arg-4484)))) 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-4481) (lambda (arg-4482) (Context-Core-full_HasNames__Name arg-4481 arg-4482))) (lambda (arg-4483) (lambda (arg-4484) (Context-Core-resolved_HasNames__Name arg-4483 arg-4484)))) 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-4481) (lambda (arg-4482) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4481 arg-4482))) (lambda (arg-4483) (lambda (arg-4484) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4483 arg-4484)))) 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-4481) (lambda (arg-4482) (Context-Core-full_HasNames__Name arg-4481 arg-4482))) (lambda (arg-4483) (lambda (arg-4484) (Context-Core-resolved_HasNames__Name arg-4483 arg-4484)))) 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-4481) (lambda (arg-4482) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4481 arg-4482))) (lambda (arg-4483) (lambda (arg-4484) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4483 arg-4484)))) 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-4481) (lambda (arg-4482) (Context-Core-full_HasNames__Name arg-4481 arg-4482))) (lambda (arg-4483) (lambda (arg-4484) (Context-Core-resolved_HasNames__Name arg-4483 arg-4484)))) 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-4481) (lambda (arg-4482) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4481 arg-4482))) (lambda (arg-4483) (lambda (arg-4484) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4483 arg-4484)))) 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-4481) (lambda (arg-4482) (Context-Core-full_HasNames__Name arg-4481 arg-4482))) (lambda (arg-4483) (lambda (arg-4484) (Context-Core-resolved_HasNames__Name arg-4483 arg-4484)))) 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-4481) (lambda (arg-4482) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4481 arg-4482))) (lambda (arg-4483) (lambda (arg-4484) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4483 arg-4484)))) 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-4481) (lambda (arg-4482) (Context-Core-full_HasNames__Name arg-4481 arg-4482))) (lambda (arg-4483) (lambda (arg-4484) (Context-Core-resolved_HasNames__Name arg-4483 arg-4484)))) 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-4481) (lambda (arg-4482) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4481 arg-4482))) (lambda (arg-4483) (lambda (arg-4484) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4483 arg-4484)))) 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-4481) (lambda (arg-4482) (Context-Core-full_HasNames__Name arg-4481 arg-4482))) (lambda (arg-4483) (lambda (arg-4484) (Context-Core-resolved_HasNames__Name arg-4483 arg-4484)))) 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-4481) (lambda (arg-4482) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4481 arg-4482))) (lambda (arg-4483) (lambda (arg-4484) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4483 arg-4484)))) 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-4481) (lambda (arg-4482) (Context-Core-full_HasNames__Name arg-4481 arg-4482))) (lambda (arg-4483) (lambda (arg-4484) (Context-Core-resolved_HasNames__Name arg-4483 arg-4484)))) 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-4481) (lambda (arg-4482) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4481 arg-4482))) (lambda (arg-4483) (lambda (arg-4484) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4483 arg-4484)))) 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-4481) (lambda (arg-4482) (Context-Core-full_HasNames__Name arg-4481 arg-4482))) (lambda (arg-4483) (lambda (arg-4484) (Context-Core-resolved_HasNames__Name arg-4483 arg-4484)))) 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-4481) (lambda (arg-4482) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4481 arg-4482))) (lambda (arg-4483) (lambda (arg-4484) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4483 arg-4484)))) 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-4481) (lambda (arg-4482) (Context-Core-full_HasNames__Name arg-4481 arg-4482))) (lambda (arg-4483) (lambda (arg-4484) (Context-Core-resolved_HasNames__Name arg-4483 arg-4484)))) 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-4481) (lambda (arg-4482) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4481 arg-4482))) (lambda (arg-4483) (lambda (arg-4484) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4483 arg-4484)))) 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-4481) (lambda (arg-4482) (Context-Core-full_HasNames__Name arg-4481 arg-4482))) (lambda (arg-4483) (lambda (arg-4484) (Context-Core-resolved_HasNames__Name arg-4483 arg-4484)))) 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-4481) (lambda (arg-4482) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4481 arg-4482))) (lambda (arg-4483) (lambda (arg-4484) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4483 arg-4484)))) 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-4481) (lambda (arg-4482) (Context-Core-full_HasNames__Name arg-4481 arg-4482))) (lambda (arg-4483) (lambda (arg-4484) (Context-Core-resolved_HasNames__Name arg-4483 arg-4484)))) 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-4481) (lambda (arg-4482) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4481 arg-4482))) (lambda (arg-4483) (lambda (arg-4484) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4483 arg-4484)))) 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-4481) (lambda (arg-4482) (Context-Core-full_HasNames__Name arg-4481 arg-4482))) (lambda (arg-4483) (lambda (arg-4484) (Context-Core-resolved_HasNames__Name arg-4483 arg-4484)))) 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-4481) (lambda (arg-4482) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4481 arg-4482))) (lambda (arg-4483) (lambda (arg-4484) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4483 arg-4484)))) 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-4481) (lambda (arg-4482) (Context-Core-full_HasNames__Name arg-4481 arg-4482))) (lambda (arg-4483) (lambda (arg-4484) (Context-Core-resolved_HasNames__Name arg-4483 arg-4484)))) 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-4481) (lambda (arg-4482) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4481 arg-4482))) (lambda (arg-4483) (lambda (arg-4484) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4483 arg-4484)))) 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-4481) (lambda (arg-4482) (Context-Core-full_HasNames__Name arg-4481 arg-4482))) (lambda (arg-4483) (lambda (arg-4484) (Context-Core-resolved_HasNames__Name arg-4483 arg-4484)))) 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-4481) (lambda (arg-4482) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4481 arg-4482))) (lambda (arg-4483) (lambda (arg-4484) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4483 arg-4484)))) 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-4481) (lambda (arg-4482) (Context-Core-full_HasNames__Name arg-4481 arg-4482))) (lambda (arg-4483) (lambda (arg-4484) (Context-Core-resolved_HasNames__Name arg-4483 arg-4484)))) 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-4481) (lambda (arg-4482) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4481 arg-4482))) (lambda (arg-4483) (lambda (arg-4484) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4483 arg-4484)))) 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-4481) (lambda (arg-4482) (Context-Core-full_HasNames__Name arg-4481 arg-4482))) (lambda (arg-4483) (lambda (arg-4484) (Context-Core-resolved_HasNames__Name arg-4483 arg-4484)))) 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-4481) (lambda (arg-4482) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4481 arg-4482))) (lambda (arg-4483) (lambda (arg-4484) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4483 arg-4484)))) 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-4481) (lambda (arg-4482) (Context-Core-full_HasNames__Name arg-4481 arg-4482))) (lambda (arg-4483) (lambda (arg-4484) (Context-Core-resolved_HasNames__Name arg-4483 arg-4484)))) 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-4481) (lambda (arg-4482) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4481 arg-4482))) (lambda (arg-4483) (lambda (arg-4484) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4483 arg-4484)))) 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-4481) (lambda (arg-4482) (Context-Core-full_HasNames__Name arg-4481 arg-4482))) (lambda (arg-4483) (lambda (arg-4484) (Context-Core-resolved_HasNames__Name arg-4483 arg-4484)))) 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-4481) (lambda (arg-4482) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4481 arg-4482))) (lambda (arg-4483) (lambda (arg-4484) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4483 arg-4484)))) 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-4481) (lambda (arg-4482) (Context-Core-full_HasNames__Name arg-4481 arg-4482))) (lambda (arg-4483) (lambda (arg-4484) (Context-Core-resolved_HasNames__Name arg-4483 arg-4484)))) 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-4481) (lambda (arg-4482) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4481 arg-4482))) (lambda (arg-4483) (lambda (arg-4484) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4483 arg-4484)))) 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-4481) (lambda (arg-4482) (Context-Core-full_HasNames__Name arg-4481 arg-4482))) (lambda (arg-4483) (lambda (arg-4484) (Context-Core-resolved_HasNames__Name arg-4483 arg-4484)))) 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-4481) (lambda (arg-4482) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4481 arg-4482))) (lambda (arg-4483) (lambda (arg-4484) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4483 arg-4484)))) 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-4481) (lambda (arg-4482) (Context-Core-full_HasNames__Name arg-4481 arg-4482))) (lambda (arg-4483) (lambda (arg-4484) (Context-Core-resolved_HasNames__Name arg-4483 arg-4484)))) 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-4481) (lambda (arg-4482) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4481 arg-4482))) (lambda (arg-4483) (lambda (arg-4484) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4483 arg-4484)))) 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-4481) (lambda (arg-4482) (Context-Core-full_HasNames__Name arg-4481 arg-4482))) (lambda (arg-4483) (lambda (arg-4484) (Context-Core-resolved_HasNames__Name arg-4483 arg-4484)))) 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-4481) (lambda (arg-4482) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4481 arg-4482))) (lambda (arg-4483) (lambda (arg-4484) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4483 arg-4484)))) 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-4481) (lambda (arg-4482) (Context-Core-full_HasNames__Name arg-4481 arg-4482))) (lambda (arg-4483) (lambda (arg-4484) (Context-Core-resolved_HasNames__Name arg-4483 arg-4484)))) 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-4481) (lambda (arg-4482) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4481 arg-4482))) (lambda (arg-4483) (lambda (arg-4484) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4483 arg-4484)))) 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-4481) (lambda (arg-4482) (Context-Core-full_HasNames__Name arg-4481 arg-4482))) (lambda (arg-4483) (lambda (arg-4484) (Context-Core-resolved_HasNames__Name arg-4483 arg-4484)))) 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-4481) (lambda (arg-4482) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4481 arg-4482))) (lambda (arg-4483) (lambda (arg-4484) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4483 arg-4484)))) 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-4481) (lambda (arg-4482) (Context-Core-full_HasNames__Name arg-4481 arg-4482))) (lambda (arg-4483) (lambda (arg-4484) (Context-Core-resolved_HasNames__Name arg-4483 arg-4484)))) 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-4481) (lambda (arg-4482) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4481 arg-4482))) (lambda (arg-4483) (lambda (arg-4484) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4483 arg-4484)))) 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-4481) (lambda (arg-4482) (Context-Core-full_HasNames__Name arg-4481 arg-4482))) (lambda (arg-4483) (lambda (arg-4484) (Context-Core-resolved_HasNames__Name arg-4483 arg-4484)))) 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-4481) (lambda (arg-4482) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4481 arg-4482))) (lambda (arg-4483) (lambda (arg-4484) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4483 arg-4484)))) 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-4481) (lambda (arg-4482) (Context-Core-full_HasNames__Name arg-4481 arg-4482))) (lambda (arg-4483) (lambda (arg-4484) (Context-Core-resolved_HasNames__Name arg-4483 arg-4484)))) 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-4481) (lambda (arg-4482) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4481 arg-4482))) (lambda (arg-4483) (lambda (arg-4484) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4483 arg-4484)))) 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-4481) (lambda (arg-4482) (Context-Core-full_HasNames__Name arg-4481 arg-4482))) (lambda (arg-4483) (lambda (arg-4484) (Context-Core-resolved_HasNames__Name arg-4483 arg-4484)))) 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-4481) (lambda (arg-4482) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4481 arg-4482))) (lambda (arg-4483) (lambda (arg-4484) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4483 arg-4484)))) 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-4481) (lambda (arg-4482) (Context-Core-full_HasNames__Name arg-4481 arg-4482))) (lambda (arg-4483) (lambda (arg-4484) (Context-Core-resolved_HasNames__Name arg-4483 arg-4484)))) 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-4481) (lambda (arg-4482) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4481 arg-4482))) (lambda (arg-4483) (lambda (arg-4484) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4483 arg-4484)))) 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-4481) (lambda (arg-4482) (Context-Core-full_HasNames__Name arg-4481 arg-4482))) (lambda (arg-4483) (lambda (arg-4484) (Context-Core-resolved_HasNames__Name arg-4483 arg-4484)))) 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-4481) (lambda (arg-4482) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4481 arg-4482))) (lambda (arg-4483) (lambda (arg-4484) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4483 arg-4484)))) 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-4481) (lambda (arg-4482) (Context-Core-full_HasNames__Name arg-4481 arg-4482))) (lambda (arg-4483) (lambda (arg-4484) (Context-Core-resolved_HasNames__Name arg-4483 arg-4484)))) 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-4481) (lambda (arg-4482) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4481 arg-4482))) (lambda (arg-4483) (lambda (arg-4484) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4483 arg-4484)))) 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-4481) (lambda (arg-4482) (Context-Core-full_HasNames__Name arg-4481 arg-4482))) (lambda (arg-4483) (lambda (arg-4484) (Context-Core-resolved_HasNames__Name arg-4483 arg-4484)))) 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-4481) (lambda (arg-4482) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4481 arg-4482))) (lambda (arg-4483) (lambda (arg-4484) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4483 arg-4484)))) 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-4481) (lambda (arg-4482) (Context-Core-full_HasNames__Name arg-4481 arg-4482))) (lambda (arg-4483) (lambda (arg-4484) (Context-Core-resolved_HasNames__Name arg-4483 arg-4484)))) 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-4481) (lambda (arg-4482) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4481 arg-4482))) (lambda (arg-4483) (lambda (arg-4484) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4483 arg-4484)))) 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-4481) (lambda (arg-4482) (Context-Core-full_HasNames__Name arg-4481 arg-4482))) (lambda (arg-4483) (lambda (arg-4484) (Context-Core-resolved_HasNames__Name arg-4483 arg-4484)))) 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-4481) (lambda (arg-4482) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4481 arg-4482))) (lambda (arg-4483) (lambda (arg-4484) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4483 arg-4484)))) 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-4481) (lambda (arg-4482) (Context-Core-full_HasNames__Name arg-4481 arg-4482))) (lambda (arg-4483) (lambda (arg-4484) (Context-Core-resolved_HasNames__Name arg-4483 arg-4484)))) 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-4481) (lambda (arg-4482) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4481 arg-4482))) (lambda (arg-4483) (lambda (arg-4484) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4483 arg-4484)))) 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-4481) (lambda (arg-4482) (Context-Core-full_HasNames__Name arg-4481 arg-4482))) (lambda (arg-4483) (lambda (arg-4484) (Context-Core-resolved_HasNames__Name arg-4483 arg-4484)))) 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-4481) (lambda (arg-4482) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4481 arg-4482))) (lambda (arg-4483) (lambda (arg-4484) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4483 arg-4484)))) 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-4481) (lambda (arg-4482) (Context-Core-full_HasNames__Name arg-4481 arg-4482))) (lambda (arg-4483) (lambda (arg-4484) (Context-Core-resolved_HasNames__Name arg-4483 arg-4484)))) 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-4481) (lambda (arg-4482) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4481 arg-4482))) (lambda (arg-4483) (lambda (arg-4484) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4483 arg-4484)))) 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-4481) (lambda (arg-4482) (Context-Core-full_HasNames__Name arg-4481 arg-4482))) (lambda (arg-4483) (lambda (arg-4484) (Context-Core-resolved_HasNames__Name arg-4483 arg-4484)))) 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-4481) (lambda (arg-4482) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4481 arg-4482))) (lambda (arg-4483) (lambda (arg-4484) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4483 arg-4484)))) 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-4481) (lambda (arg-4482) (Context-Core-full_HasNames__Name arg-4481 arg-4482))) (lambda (arg-4483) (lambda (arg-4484) (Context-Core-resolved_HasNames__Name arg-4483 arg-4484)))) 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-4481) (lambda (arg-4482) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4481 arg-4482))) (lambda (arg-4483) (lambda (arg-4484) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4483 arg-4484)))) 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--11288-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-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--11604-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--11607-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--14421-10478 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--14421-10607 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--10284-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-4524) (lambda (arg-4525) (Context-Core-full_HasNames__Name arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__Name arg-4526 arg-4527)))) 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-4524) (lambda (arg-4525) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4526 arg-4527)))) 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-4524) (lambda (arg-4525) (Context-Core-full_HasNames__Name arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__Name arg-4526 arg-4527)))) 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-4524) (lambda (arg-4525) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4526 arg-4527)))) 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-4524) (lambda (arg-4525) (Context-Core-full_HasNames__Name arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__Name arg-4526 arg-4527)))) 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-4524) (lambda (arg-4525) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4526 arg-4527)))) 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-4524) (lambda (arg-4525) (Context-Core-full_HasNames__Name arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__Name arg-4526 arg-4527)))) 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-4524) (lambda (arg-4525) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4526 arg-4527)))) 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-4524) (lambda (arg-4525) (Context-Core-full_HasNames__Name arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__Name arg-4526 arg-4527)))) 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-4524) (lambda (arg-4525) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4526 arg-4527)))) 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-4524) (lambda (arg-4525) (Context-Core-full_HasNames__Name arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__Name arg-4526 arg-4527)))) 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-4524) (lambda (arg-4525) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4526 arg-4527)))) 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-4524) (lambda (arg-4525) (Context-Core-full_HasNames__Name arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__Name arg-4526 arg-4527)))) 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-4524) (lambda (arg-4525) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4526 arg-4527)))) 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-4524) (lambda (arg-4525) (Context-Core-full_HasNames__Name arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__Name arg-4526 arg-4527)))) 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-4524) (lambda (arg-4525) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4526 arg-4527)))) 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-4524) (lambda (arg-4525) (Context-Core-full_HasNames__Name arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__Name arg-4526 arg-4527)))) 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-4524) (lambda (arg-4525) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4526 arg-4527)))) 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-4524) (lambda (arg-4525) (Context-Core-full_HasNames__Name arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__Name arg-4526 arg-4527)))) 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-4524) (lambda (arg-4525) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4526 arg-4527)))) 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-4524) (lambda (arg-4525) (Context-Core-full_HasNames__Name arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__Name arg-4526 arg-4527)))) 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-4524) (lambda (arg-4525) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4526 arg-4527)))) 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-4524) (lambda (arg-4525) (Context-Core-full_HasNames__Name arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__Name arg-4526 arg-4527)))) 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-4524) (lambda (arg-4525) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4526 arg-4527)))) 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-4524) (lambda (arg-4525) (Context-Core-full_HasNames__Name arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__Name arg-4526 arg-4527)))) 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-4524) (lambda (arg-4525) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4526 arg-4527)))) 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-4524) (lambda (arg-4525) (Context-Core-full_HasNames__Name arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__Name arg-4526 arg-4527)))) 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-4524) (lambda (arg-4525) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4526 arg-4527)))) 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-4524) (lambda (arg-4525) (Context-Core-full_HasNames__Name arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__Name arg-4526 arg-4527)))) 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-4524) (lambda (arg-4525) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4526 arg-4527)))) 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-4524) (lambda (arg-4525) (Context-Core-full_HasNames__Name arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__Name arg-4526 arg-4527)))) 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-4524) (lambda (arg-4525) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4526 arg-4527)))) 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-4524) (lambda (arg-4525) (Context-Core-full_HasNames__Name arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__Name arg-4526 arg-4527)))) 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-4524) (lambda (arg-4525) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4526 arg-4527)))) 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-4524) (lambda (arg-4525) (Context-Core-full_HasNames__Name arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__Name arg-4526 arg-4527)))) 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-4524) (lambda (arg-4525) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4526 arg-4527)))) 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-4524) (lambda (arg-4525) (Context-Core-full_HasNames__Name arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__Name arg-4526 arg-4527)))) 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-4524) (lambda (arg-4525) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4526 arg-4527)))) 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-4524) (lambda (arg-4525) (Context-Core-full_HasNames__Name arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__Name arg-4526 arg-4527)))) 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-4524) (lambda (arg-4525) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4526 arg-4527)))) 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-4524) (lambda (arg-4525) (Context-Core-full_HasNames__Name arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__Name arg-4526 arg-4527)))) 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-4524) (lambda (arg-4525) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4526 arg-4527)))) 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-4524) (lambda (arg-4525) (Context-Core-full_HasNames__Name arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__Name arg-4526 arg-4527)))) 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-4524) (lambda (arg-4525) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4526 arg-4527)))) 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-4524) (lambda (arg-4525) (Context-Core-full_HasNames__Name arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__Name arg-4526 arg-4527)))) 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-4524) (lambda (arg-4525) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4526 arg-4527)))) 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-4524) (lambda (arg-4525) (Context-Core-full_HasNames__Name arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__Name arg-4526 arg-4527)))) 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-4524) (lambda (arg-4525) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4526 arg-4527)))) 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-4524) (lambda (arg-4525) (Context-Core-full_HasNames__Name arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__Name arg-4526 arg-4527)))) 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-4524) (lambda (arg-4525) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4526 arg-4527)))) 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-4524) (lambda (arg-4525) (Context-Core-full_HasNames__Name arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__Name arg-4526 arg-4527)))) 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-4524) (lambda (arg-4525) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4526 arg-4527)))) 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-4524) (lambda (arg-4525) (Context-Core-full_HasNames__Name arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__Name arg-4526 arg-4527)))) 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-4524) (lambda (arg-4525) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4526 arg-4527)))) 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-4524) (lambda (arg-4525) (Context-Core-full_HasNames__Name arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__Name arg-4526 arg-4527)))) 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-4524) (lambda (arg-4525) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4526 arg-4527)))) 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-4524) (lambda (arg-4525) (Context-Core-full_HasNames__Name arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__Name arg-4526 arg-4527)))) 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-4524) (lambda (arg-4525) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4526 arg-4527)))) 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-4524) (lambda (arg-4525) (Context-Core-full_HasNames__Name arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__Name arg-4526 arg-4527)))) 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-4524) (lambda (arg-4525) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4526 arg-4527)))) 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-4524) (lambda (arg-4525) (Context-Core-full_HasNames__Name arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__Name arg-4526 arg-4527)))) 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-4524) (lambda (arg-4525) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4526 arg-4527)))) 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-4524) (lambda (arg-4525) (Context-Core-full_HasNames__Name arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__Name arg-4526 arg-4527)))) 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-4524) (lambda (arg-4525) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4526 arg-4527)))) 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-4524) (lambda (arg-4525) (Context-Core-full_HasNames__Name arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__Name arg-4526 arg-4527)))) 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-4524) (lambda (arg-4525) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4526 arg-4527)))) 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-4524) (lambda (arg-4525) (Context-Core-full_HasNames__Name arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__Name arg-4526 arg-4527)))) 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-4524) (lambda (arg-4525) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4526 arg-4527)))) 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-4524) (lambda (arg-4525) (Context-Core-full_HasNames__Name arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__Name arg-4526 arg-4527)))) 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-4524) (lambda (arg-4525) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4526 arg-4527)))) 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-4524) (lambda (arg-4525) (Context-Core-full_HasNames__Name arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__Name arg-4526 arg-4527)))) 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-4524) (lambda (arg-4525) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4526 arg-4527)))) 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-4524) (lambda (arg-4525) (Context-Core-full_HasNames__Name arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__Name arg-4526 arg-4527)))) 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-4524) (lambda (arg-4525) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4526 arg-4527)))) 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-4524) (lambda (arg-4525) (Context-Core-full_HasNames__Name arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__Name arg-4526 arg-4527)))) 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-4524) (lambda (arg-4525) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4526 arg-4527)))) 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-4524) (lambda (arg-4525) (Context-Core-full_HasNames__Name arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__Name arg-4526 arg-4527)))) 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-4524) (lambda (arg-4525) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4526 arg-4527)))) 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-4524) (lambda (arg-4525) (Context-Core-full_HasNames__Name arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__Name arg-4526 arg-4527)))) 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-4524) (lambda (arg-4525) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4526 arg-4527)))) 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-4524) (lambda (arg-4525) (Context-Core-full_HasNames__Name arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__Name arg-4526 arg-4527)))) 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-4524) (lambda (arg-4525) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4526 arg-4527)))) 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-4524) (lambda (arg-4525) (Context-Core-full_HasNames__Name arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__Name arg-4526 arg-4527)))) 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-4524) (lambda (arg-4525) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4526 arg-4527)))) 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-4524) (lambda (arg-4525) (Context-Core-full_HasNames__Name arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__Name arg-4526 arg-4527)))) 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-4524) (lambda (arg-4525) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4526 arg-4527)))) 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-4524) (lambda (arg-4525) (Context-Core-full_HasNames__Name arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__Name arg-4526 arg-4527)))) 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-4524) (lambda (arg-4525) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4526 arg-4527)))) 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-4524) (lambda (arg-4525) (Context-Core-full_HasNames__Name arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__Name arg-4526 arg-4527)))) 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-4524) (lambda (arg-4525) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4526 arg-4527)))) 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-4524) (lambda (arg-4525) (Context-Core-full_HasNames__Name arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__Name arg-4526 arg-4527)))) 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-4524) (lambda (arg-4525) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4526 arg-4527)))) 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-4524) (lambda (arg-4525) (Context-Core-full_HasNames__Name arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__Name arg-4526 arg-4527)))) 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-4524) (lambda (arg-4525) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4526 arg-4527)))) 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-4524) (lambda (arg-4525) (Context-Core-full_HasNames__Name arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__Name arg-4526 arg-4527)))) 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-4524) (lambda (arg-4525) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4526 arg-4527)))) 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-4524) (lambda (arg-4525) (Context-Core-full_HasNames__Name arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__Name arg-4526 arg-4527)))) 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-4524) (lambda (arg-4525) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4526 arg-4527)))) 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-4524) (lambda (arg-4525) (Context-Core-full_HasNames__Name arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__Name arg-4526 arg-4527)))) 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-4524) (lambda (arg-4525) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4526 arg-4527)))) 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-4524) (lambda (arg-4525) (Context-Core-full_HasNames__Name arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__Name arg-4526 arg-4527)))) 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-4524) (lambda (arg-4525) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4526 arg-4527)))) 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-4524) (lambda (arg-4525) (Context-Core-full_HasNames__Name arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__Name arg-4526 arg-4527)))) 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-4524) (lambda (arg-4525) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4526 arg-4527)))) 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-4524) (lambda (arg-4525) (Context-Core-full_HasNames__Name arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__Name arg-4526 arg-4527)))) 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-4524) (lambda (arg-4525) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4526 arg-4527)))) 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-4524) (lambda (arg-4525) (Context-Core-full_HasNames__Name arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__Name arg-4526 arg-4527)))) 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-4524) (lambda (arg-4525) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4526 arg-4527)))) 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-4524) (lambda (arg-4525) (Context-Core-full_HasNames__Name arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__Name arg-4526 arg-4527)))) 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-4524) (lambda (arg-4525) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4526 arg-4527)))) 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-4524) (lambda (arg-4525) (Context-Core-full_HasNames__Name arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__Name arg-4526 arg-4527)))) 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-4524) (lambda (arg-4525) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4526 arg-4527)))) 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-4524) (lambda (arg-4525) (Context-Core-full_HasNames__Name arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__Name arg-4526 arg-4527)))) 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-4524) (lambda (arg-4525) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4526 arg-4527)))) 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-4524) (lambda (arg-4525) (Context-Core-full_HasNames__Name arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__Name arg-4526 arg-4527)))) 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-4524) (lambda (arg-4525) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4526 arg-4527)))) 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-4524) (lambda (arg-4525) (Context-Core-full_HasNames__Name arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__Name arg-4526 arg-4527)))) 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-4524) (lambda (arg-4525) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4526 arg-4527)))) 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-4524) (lambda (arg-4525) (Context-Core-full_HasNames__Name arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__Name arg-4526 arg-4527)))) 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-4524) (lambda (arg-4525) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4526 arg-4527)))) 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-4524) (lambda (arg-4525) (Context-Core-full_HasNames__Name arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__Name arg-4526 arg-4527)))) 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-4524) (lambda (arg-4525) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4526 arg-4527)))) 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-4524) (lambda (arg-4525) (Context-Core-full_HasNames__Name arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__Name arg-4526 arg-4527)))) 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-4524) (lambda (arg-4525) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4526 arg-4527)))) 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-4524) (lambda (arg-4525) (Context-Core-full_HasNames__Name arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__Name arg-4526 arg-4527)))) 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-4524) (lambda (arg-4525) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4526 arg-4527)))) 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-4524) (lambda (arg-4525) (Context-Core-full_HasNames__Name arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__Name arg-4526 arg-4527)))) 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-4524) (lambda (arg-4525) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4526 arg-4527)))) 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-4524) (lambda (arg-4525) (Context-Core-full_HasNames__Name arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__Name arg-4526 arg-4527)))) 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-4524) (lambda (arg-4525) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4526 arg-4527)))) 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-4524) (lambda (arg-4525) (Context-Core-full_HasNames__Name arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__Name arg-4526 arg-4527)))) 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-4524) (lambda (arg-4525) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4526 arg-4527)))) 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-4524) (lambda (arg-4525) (Context-Core-full_HasNames__Name arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__Name arg-4526 arg-4527)))) 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-4524) (lambda (arg-4525) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4526 arg-4527)))) 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-4524) (lambda (arg-4525) (Context-Core-full_HasNames__Name arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__Name arg-4526 arg-4527)))) 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-4524) (lambda (arg-4525) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4526 arg-4527)))) 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-4524) (lambda (arg-4525) (Context-Core-full_HasNames__Name arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__Name arg-4526 arg-4527)))) 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-4524) (lambda (arg-4525) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4526 arg-4527)))) 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-4524) (lambda (arg-4525) (Context-Core-full_HasNames__Name arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__Name arg-4526 arg-4527)))) 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-4524) (lambda (arg-4525) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4526 arg-4527)))) 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-4524) (lambda (arg-4525) (Context-Core-full_HasNames__Name arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__Name arg-4526 arg-4527)))) 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-4524) (lambda (arg-4525) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4526 arg-4527)))) 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-4524) (lambda (arg-4525) (Context-Core-full_HasNames__Name arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__Name arg-4526 arg-4527)))) 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-4524) (lambda (arg-4525) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4526 arg-4527)))) 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-4524) (lambda (arg-4525) (Context-Core-full_HasNames__Name arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__Name arg-4526 arg-4527)))) 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-4524) (lambda (arg-4525) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4526 arg-4527)))) 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-4524) (lambda (arg-4525) (Context-Core-full_HasNames__Name arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__Name arg-4526 arg-4527)))) 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-4524) (lambda (arg-4525) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4526 arg-4527)))) 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-4524) (lambda (arg-4525) (Context-Core-full_HasNames__Name arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__Name arg-4526 arg-4527)))) 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-4524) (lambda (arg-4525) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4526 arg-4527)))) 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-4524) (lambda (arg-4525) (Context-Core-full_HasNames__Name arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__Name arg-4526 arg-4527)))) 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-4524) (lambda (arg-4525) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4526 arg-4527)))) 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-4524) (lambda (arg-4525) (Context-Core-full_HasNames__Name arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__Name arg-4526 arg-4527)))) 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-4524) (lambda (arg-4525) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4526 arg-4527)))) 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-4524) (lambda (arg-4525) (Context-Core-full_HasNames__Name arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__Name arg-4526 arg-4527)))) 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-4524) (lambda (arg-4525) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4526 arg-4527)))) 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-4524) (lambda (arg-4525) (Context-Core-full_HasNames__Name arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__Name arg-4526 arg-4527)))) 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-4524) (lambda (arg-4525) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4526 arg-4527)))) 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-4524) (lambda (arg-4525) (Context-Core-full_HasNames__Name arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__Name arg-4526 arg-4527)))) 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-4524) (lambda (arg-4525) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4526 arg-4527)))) 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--11375-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--14809-10848 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--10865-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--13350-9524 e-0 arg-0 (CompileExpr-Compiler-mkArgList (Prelude-C-43_Num__Int arg-0 1) e-0)))))))) +(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--14896-10848 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--10952-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--13437-9524 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--13412-9579 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--12105-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-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--13499-9579 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--12192-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--10530-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--10530-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--10434-6895-mkApp arg-0 arg-4 arg-3 arg-1 arg-3 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (CompileExpr-Compiler-n--10434-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-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--10617-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--10617-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--10521-6895-mkApp arg-0 arg-4 arg-3 arg-1 arg-3 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (CompileExpr-Compiler-n--10521-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--10752-7180-drop 'erased e-8 e-7 e-6 e-5 arg-1 0 e-8)))))))(else arg-2))))) +(define CompileExpr-Compiler-dropPos (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((2) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (vector 2 e-1 e-2 (CompileExpr-Compiler-dropPos 'erased arg-1 e-3)))))) ((5) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (let ((e-8 (vector-ref sc0 4))) (vector 5 e-5 e-6 e-7 (CompileExpr-Compiler-n--10839-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--12158-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-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--12245-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-4481) (lambda (arg-4482) (Context-Core-full_HasNames__Def arg-4481 arg-4482))) (lambda (arg-4483) (lambda (arg-4484) (Context-Core-resolved_HasNames__Def arg-4483 arg-4484)))) (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-2894) (Prelude-map_Functor__Maybe 'erased 'erased func arg-2894))))) (lambda (a) (lambda (arg-2961) (Prelude-pure_Applicative__Maybe 'erased arg-2961))) (lambda (b) (lambda (a) (lambda (arg-2962) (lambda (arg-2964) (Prelude-C-60C-42C-62_Applicative__Maybe 'erased 'erased arg-2962 arg-2964)))))) (lambda (eta-0) (CompileExpr-Compiler-n--11364-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--10633-7074-keepArg arg-0 arg-4 arg-3 arg-2 arg-1 'erased fnC-39)))) -(define Directory-Core-case--10161-4615 (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--10161-4516-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--10188-4554 (lambda (arg-0 arg-1 arg-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--10161-4516-firstIpkg arg-2)))))) -(define Directory-Core-case--10162-4541 (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--10188-4554 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--10110-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--10058-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--10015-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--9934-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--9832-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--9832-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--9721-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--9693-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--9569-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--9564-3968-splitSep arg-0 arg-1 arg-2 (Strings-Data-strTail e-3)) (vector 1 e-2 (vector 0 ))))))))))) -(define Directory-Core-case--9568-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--9564-3967-dropDir arg-0 arg-1 arg-2 arg-6 arg-5 arg-4))))))) -(define Directory-Core-case--9470-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--9395-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--9334-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--9243-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--9223-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--9174-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--9144-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--9564-3968-splitSep (lambda (arg-0 arg-1 arg-2 arg-3) (Directory-Core-case--9569-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--10161-4516-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--10188-4554 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--9564-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--9568-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 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-4524) (lambda (arg-4525) (Context-Core-full_HasNames__Def arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__Def arg-4526 arg-4527)))) (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-2894) (Prelude-map_Functor__Maybe 'erased 'erased func arg-2894))))) (lambda (a) (lambda (arg-2961) (Prelude-pure_Applicative__Maybe 'erased arg-2961))) (lambda (b) (lambda (a) (lambda (arg-2962) (lambda (arg-2964) (Prelude-C-60C-42C-62_Applicative__Maybe 'erased 'erased arg-2962 arg-2964)))))) (lambda (eta-0) (CompileExpr-Compiler-n--11451-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--10720-7074-keepArg arg-0 arg-4 arg-3 arg-2 arg-1 'erased fnC-39)))) +(define Directory-Core-case--10272-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--10272-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--10299-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--10272-4540-firstIpkg arg-2)))))) +(define Directory-Core-case--10273-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--10299-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--10221-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--10196-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--10144-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--10101-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--10020-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--9918-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--9918-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--9807-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--9779-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--9655-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--9650-3968-splitSep arg-0 arg-1 arg-2 (Strings-Data-strTail e-3)) (vector 1 e-2 (vector 0 ))))))))))) +(define Directory-Core-case--9654-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--9650-3967-dropDir arg-0 arg-1 arg-2 arg-6 arg-5 arg-4))))))) +(define Directory-Core-case--9556-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--9481-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--9420-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--9329-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--9309-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--9260-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--9230-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--9650-3968-splitSep (lambda (arg-0 arg-1 arg-2 arg-3) (Directory-Core-case--9655-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--10272-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--10299-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--9650-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--9654-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--9564-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--9564-3968-splitSep arg-2 arg-1 arg-0 eta-0))) arg-1))) (let ((fsplit (Directory-Core-n--9564-3968-splitSep arg-2 arg-1 arg-0 arg-2))) (let ((wdrop (Directory-Core-n--9564-3967-dropDir arg-2 arg-1 arg-0 wsplit fsplit fsplit))) (Directory-Core-n--9564-3967-dropDir arg-2 arg-1 arg-0 ssplit wdrop wdrop))))))) +(define Directory-Core-pathToNS (lambda (arg-0 arg-1 arg-2) (let ((wsplit (Directory-Core-n--9650-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--9650-3968-splitSep arg-2 arg-1 arg-0 eta-0))) arg-1))) (let ((fsplit (Directory-Core-n--9650-3968-splitSep arg-2 arg-1 arg-0 arg-2))) (let ((wdrop (Directory-Core-n--9650-3967-dropDir arg-2 arg-1 arg-0 wsplit fsplit fsplit))) (Directory-Core-n--9650-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))))))))))))))))))))) @@ -5491,78 +5609,78 @@ (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--10161-4516-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--10110-4479 e-2 e-3 (Strings-Data-isSuffixOf ".ipkg" e-2))))))))) -(define Directory-Core-dropExtension (lambda (arg-0) (Directory-Core-case--9144-3597 arg-0 (Strings-Data-span (lambda (arg-1) (Prelude-C-47C-61_Eq__Char arg-1 #\.)) (Prelude-reverse arg-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--10272-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--10196-4479 e-2 e-3 (Strings-Data-isSuffixOf ".ipkg" e-2))))))))) +(define Directory-Core-dropExtension (lambda (arg-0) (Directory-Core-case--9230-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 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (cond ((equal? sc1 "") (vector 1 (vector 0 "/" e-3) (Directory-Core-allDirs arg-0 e-3)))(else (let ((dC-39 (Strings-Prelude-C-43C-43 arg-0 (Prelude-strCons (Options-Core-sep) e-2)))) (vector 1 (vector 0 dC-39 e-3) (Directory-Core-allDirs dC-39 e-3))))))))))))) -(define Version-Idris-with--1856-416 (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--1873-486 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (Version-Idris-n--1873-442-showTag arg-0 arg-1 arg-2 arg-3 arg-4)) (else ""))))) -(define Version-Idris-case--1889-446 (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--1873-442-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 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--10221-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--10221-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--1916-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--1933-502 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (Version-Idris-n--1933-458-showTag arg-0 arg-1 arg-2 arg-3 arg-4)) (else ""))))) +(define Version-Idris-case--1949-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--1933-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--1856-416 (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-2851) (lambda (arg-2852) (Prelude-C-60C-43C-62_Semigroup__String arg-2851 arg-2852))) (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--1873-442-showTag e-4 e-8 e-9 e-1 arg-0)) (else ""))))))))))))))) +(define Version-Idris-version (lambda () (Version-Idris-with--1916-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-2851) (lambda (arg-2852) (Prelude-C-60C-43C-62_Semigroup__String arg-2851 arg-2852))) (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--1933-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--14821-5876 (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--14820-5839 (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--14472-5486 (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--13790-4907 (lambda (arg-0 arg-1 arg-2 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--13789-4855 (lambda (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--13020-4535 (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--13020-4405-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) " | <>") (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--13020-4341-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) " | <>") (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--14725-5765-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--14725-5765-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--14724-5726-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--14724-5726-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--14953-5941-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--14953-5933-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--14953-5945-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--14953-5933-goPTerm arg-0 e-7) eta-1)) (Syntax-Idris-n--14953-5945-goPairedPTerms arg-0 'erased e-3) eta-0)))))))))))) -(define Syntax-Idris-n--14953-5955-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--14953-5938-goPTypeDecl arg-0 e-2) eta-1)) (Syntax-Idris-n--14953-5955-goPTypeDecls arg-0 e-3) eta-0))))))))) -(define Syntax-Idris-n--14953-5938-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--14953-5933-goPTerm arg-0 e-2) eta-0)))))))) -(define Syntax-Idris-n--14953-5944-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--14953-5933-goPTerm arg-0 e-2) eta-1)) (Syntax-Idris-n--14953-5944-goPTerms arg-0 e-3) eta-0))))))))) -(define Syntax-Idris-n--14953-5933-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--14953-5941-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--14953-5933-goPTerm arg-0 e-6) eta-1)) (Syntax-Idris-n--14953-5933-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--14953-5941-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--14953-5933-goPTerm arg-0 e-12) eta-1)) (Syntax-Idris-n--14953-5933-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--14953-5933-goPTerm arg-0 e-16) eta-4)) (Syntax-Idris-n--14953-5933-goPTerm arg-0 e-17) eta-3)) (Syntax-Idris-n--14953-5933-goPTerm arg-0 e-18) eta-2)) (Syntax-Idris-n--14953-5933-goPTerm arg-0 e-19) eta-1)) (Syntax-Idris-n--14953-5949-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--14953-5933-goPTerm arg-0 e-22) eta-1)) (Syntax-Idris-n--14953-5949-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--14953-5951-goPDecls arg-0 e-25) eta-1)) (Syntax-Idris-n--14953-5933-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--14953-5952-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--14953-5933-goPTerm arg-0 e-30) eta-1)) (Syntax-Idris-n--14953-5933-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--14953-5933-goPTerm arg-0 e-33) eta-1)) (Syntax-Idris-n--14953-5933-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--14953-5933-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--14953-5933-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--14953-5933-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--14953-5933-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--14953-5933-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--14953-5933-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--14953-5937-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--14953-5933-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--14953-5933-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--14953-5933-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--14953-5933-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--14953-5933-goPTerm arg-0 e-71) eta-1)) (Syntax-Idris-n--14953-5933-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--14953-5933-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--14953-5933-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--14953-5933-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--14953-5933-goPTerm arg-0 e-83) eta-1)) (Syntax-Idris-n--14953-5933-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--14953-5933-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--14953-5948-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--14953-5933-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--14953-5933-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--14953-5944-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--14953-5933-goPTerm arg-0 e-96) eta-1)) (Syntax-Idris-n--14953-5933-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--14953-5933-goPTerm arg-0 e-99) eta-2)) (Syntax-Idris-n--14953-5933-goPTerm arg-0 e-100) eta-1)) (Syntax-Idris-n--14953-5933-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--14953-5933-goPTerm arg-0 e-104) eta-2)) (Syntax-Idris-n--14953-5933-goPTerm arg-0 e-105) eta-1)) (Syntax-Idris-n--14953-5933-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--14953-5933-goPTerm arg-0 e-108) eta-1)) (Syntax-Idris-n--14953-5948-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--14953-5933-goPTerm arg-0 e-111) eta-1)) (Syntax-Idris-n--14953-5933-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--14953-5933-goPTerm arg-0 e-114) eta-2)) (Syntax-Idris-n--14953-5943-goMPTerm arg-0 e-115) eta-1)) (Syntax-Idris-n--14953-5933-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--14953-5933-goPTerm arg-0 e-118) eta-1)) (Syntax-Idris-n--14953-5943-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--14953-5933-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--14953-5933-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))))))))))) (else (let ((e-126 (vector-ref sc0 1))) (let ((e-127 (vector-ref sc0 2))) (arg-0 (vector 44 e-126 e-127))))))))) -(define Syntax-Idris-n--14953-5954-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--14953-5942-goPFnOpt arg-0 e-2) eta-1)) (Syntax-Idris-n--14953-5954-goPFnOpts arg-0 e-3) eta-0))))))))) -(define Syntax-Idris-n--14953-5942-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--14953-5944-goPTerms arg-0 e-1) eta-0)))))))) -(define Syntax-Idris-n--14953-5953-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--14953-5940-goPField arg-0 e-2) eta-1)) (Syntax-Idris-n--14953-5953-goPFields arg-0 e-3) eta-0))))))))) -(define Syntax-Idris-n--14953-5952-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--14953-5934-goPFieldUpdate arg-0 e-2) eta-1)) (Syntax-Idris-n--14953-5952-goPFieldUpdates arg-0 e-3) eta-0))))))))) -(define Syntax-Idris-n--14953-5934-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--14953-5933-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--14953-5933-goPTerm arg-0 e-3) eta-0))))))))) -(define Syntax-Idris-n--14953-5940-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--14953-5941-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--14953-5933-goPTerm arg-0 e-4) eta-0)))))))))) -(define Syntax-Idris-n--14953-5948-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--14953-5935-goPDo arg-0 e-2) eta-1)) (Syntax-Idris-n--14953-5948-goPDos arg-0 e-3) eta-0))))))))) -(define Syntax-Idris-n--14953-5935-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--14953-5933-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--14953-5933-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--14953-5933-goPTerm arg-0 e-6) eta-2)) (Syntax-Idris-n--14953-5933-goPTerm arg-0 e-7) eta-1)) (Syntax-Idris-n--14953-5949-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--14953-5933-goPTerm arg-0 e-12) eta-1)) (Syntax-Idris-n--14953-5933-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--14953-5933-goPTerm arg-0 e-15) eta-3)) (Syntax-Idris-n--14953-5933-goPTerm arg-0 e-16) eta-2)) (Syntax-Idris-n--14953-5933-goPTerm arg-0 e-17) eta-1)) (Syntax-Idris-n--14953-5949-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--14953-5951-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--14953-5933-goPTerm arg-0 e-22) eta-0))))))))) -(define Syntax-Idris-n--14953-5951-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--14953-5937-goPDecl arg-0 e-2) eta-1)) (Syntax-Idris-n--14953-5951-goPDecls arg-0 e-3) eta-0))))))))) -(define Syntax-Idris-n--14953-5937-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--14953-5954-goPFnOpts arg-0 e-3) eta-1)) (Syntax-Idris-n--14953-5938-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--14953-5949-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--14953-5939-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--14953-5945-goPairedPTerms arg-0 'erased e-11) eta-1)) (Syntax-Idris-n--14953-5951-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--14953-5945-goPairedPTerms arg-0 'erased e-14) eta-1)) (Syntax-Idris-n--14953-5951-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--14953-5933-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--14953-5945-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--14953-5945-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--14953-5951-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--14953-5946-go3TupledPTerms arg-0 'erased 'erased e-30) eta-6)) (Syntax-Idris-n--14953-5945-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--14953-5944-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--14953-5950-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--14953-5947-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--14953-5953-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--14953-5951-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--14953-5951-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--14953-5933-goPTerm arg-0 e-54) eta-1)) (Syntax-Idris-n--14953-5933-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--14953-5939-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--14953-5933-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--14953-5955-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--14953-5933-goPTerm arg-0 e-7) eta-0)))))))))) -(define Syntax-Idris-n--14953-5949-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--14953-5936-goPClause arg-0 e-2) eta-1)) (Syntax-Idris-n--14953-5949-goPClauses arg-0 e-3) eta-0))))))))) -(define Syntax-Idris-n--14953-5936-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--14953-5933-goPTerm arg-0 e-1) eta-2)) (Syntax-Idris-n--14953-5933-goPTerm arg-0 e-2) eta-1)) (Syntax-Idris-n--14953-5951-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--14953-5933-goPTerm arg-0 e-5) eta-2)) (Syntax-Idris-n--14953-5933-goPTerm arg-0 e-6) eta-1)) (Syntax-Idris-n--14953-5949-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--14953-5933-goPTerm arg-0 e-9) eta-0))))))))) -(define Syntax-Idris-n--14953-5943-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--14953-5933-goPTerm arg-0 e-2) eta-0)))))))) -(define Syntax-Idris-n--14953-5950-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--14953-5951-goPDecls arg-0 e-2) eta-0)))))))) -(define Syntax-Idris-n--14953-5947-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--14953-5941-goPiInfo arg-0 e-14) eta-2)) (Syntax-Idris-n--14953-5933-goPTerm arg-0 e-15) eta-1)) (Syntax-Idris-n--14953-5947-go4TupledPTerms arg-0 'erased 'erased e-3) eta-0)))))))))))))))))) -(define Syntax-Idris-n--14953-5946-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--14953-5933-goPTerm arg-0 e-11) eta-1)) (Syntax-Idris-n--14953-5946-go3TupledPTerms arg-0 'erased 'erased e-3) eta-0))))))))))))))) -(define Syntax-Idris-n--12526-3681-getName (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (let ((e-1 (vector-ref sc0 2))) e-1)))) -(define Syntax-Idris-n--13020-4841-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--13789-4855 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--13020-4842-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--13790-4907 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-1237) (lambda (arg-1239) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1238) (lambda (arg-1240) (Binary-Utils-toBuf_TTC__String arg-1238 arg-1240))) (lambda (arg-1240) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__String arg-1240 eta-0)))) (vector 0 (lambda (arg-1238) (lambda (arg-1240) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1241) (lambda (arg-1242) (Syntax-Idris-toBuf_TTC__Fixity arg-1241 arg-1242))) (lambda (arg-1241) (lambda (eta-0) (Syntax-Idris-fromBuf_TTC__Fixity arg-1241 eta-0)))) (vector 0 (lambda (arg-1241) (lambda (arg-1242) (Binary-Utils-toBuf_TTC__Nat arg-1241 arg-1242))) (lambda (arg-1241) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Nat arg-1241 eta-0))))) arg-1238 arg-1240))) (lambda (arg-1240) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1238) (lambda (arg-1241) (Syntax-Idris-toBuf_TTC__Fixity arg-1238 arg-1241))) (lambda (arg-1241) (lambda (eta-1) (Syntax-Idris-fromBuf_TTC__Fixity arg-1241 eta-1)))) (vector 0 (lambda (arg-1238) (lambda (arg-1241) (Binary-Utils-toBuf_TTC__Nat arg-1238 arg-1241))) (lambda (arg-1241) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-1241 eta-1))))) arg-1240 eta-0))))) arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1237) (lambda (arg-1239) (Binary-Utils-toBuf_TTC__String arg-1237 arg-1239))) (lambda (arg-1241) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-1241 eta-1)))) (vector 0 (lambda (arg-1237) (lambda (arg-1239) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1238) (lambda (arg-1241) (Syntax-Idris-toBuf_TTC__Fixity arg-1238 arg-1241))) (lambda (arg-1241) (lambda (eta-1) (Syntax-Idris-fromBuf_TTC__Fixity arg-1241 eta-1)))) (vector 0 (lambda (arg-1238) (lambda (arg-1241) (Binary-Utils-toBuf_TTC__Nat arg-1238 arg-1241))) (lambda (arg-1241) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-1241 eta-1))))) arg-1237 arg-1239))) (lambda (arg-1241) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1237) (lambda (arg-1239) (Syntax-Idris-toBuf_TTC__Fixity arg-1237 arg-1239))) (lambda (arg-1242) (lambda (eta-2) (Syntax-Idris-fromBuf_TTC__Fixity arg-1242 eta-2)))) (vector 0 (lambda (arg-1237) (lambda (arg-1239) (Binary-Utils-toBuf_TTC__Nat arg-1237 arg-1239))) (lambda (arg-1242) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Nat arg-1242 eta-2))))) arg-1241 eta-1))))) arg-1240 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-1237) (lambda (arg-1239) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1238) (lambda (arg-1240) (Binary-Utils-toBuf_TTC__String arg-1238 arg-1240))) (lambda (arg-1240) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__String arg-1240 eta-0)))) (vector 0 (lambda (arg-1238) (lambda (arg-1240) (Binary-Utils-toBuf_TTC__Nat arg-1238 arg-1240))) (lambda (arg-1240) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Nat arg-1240 eta-0))))) arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1237) (lambda (arg-1239) (Binary-Utils-toBuf_TTC__String arg-1237 arg-1239))) (lambda (arg-1241) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-1241 eta-1)))) (vector 0 (lambda (arg-1237) (lambda (arg-1239) (Binary-Utils-toBuf_TTC__Nat arg-1237 arg-1239))) (lambda (arg-1241) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-1241 eta-1))))) arg-1240 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-1237) (lambda (arg-1239) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1238) (lambda (arg-1240) (TTC-Core-toBuf_TTC__Name arg-1238 arg-1240))) (lambda (arg-1240) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-1240 eta-0)))) (vector 0 (lambda (arg-1238) (lambda (arg-1240) (Syntax-Idris-toBuf_TTC__IFaceInfo arg-1238 arg-1240))) (lambda (arg-1240) (lambda (eta-0) (Syntax-Idris-fromBuf_TTC__IFaceInfo arg-1240 eta-0))))) arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1237) (lambda (arg-1239) (TTC-Core-toBuf_TTC__Name arg-1237 arg-1239))) (lambda (arg-1241) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-1241 eta-1)))) (vector 0 (lambda (arg-1237) (lambda (arg-1239) (Syntax-Idris-toBuf_TTC__IFaceInfo arg-1237 arg-1239))) (lambda (arg-1241) (lambda (eta-1) (Syntax-Idris-fromBuf_TTC__IFaceInfo arg-1241 eta-1))))) arg-1240 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-1237) (lambda (arg-1239) (TTC-Core-toBuf_TTC__Name arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-1240 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-1237) (lambda (arg-1239) (TTC-Core-toBuf_TTC__Name arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-1240 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-1237) (lambda (arg-1239) (TTImp-TTImp-toBuf_TTC__RawImp arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__RawImp arg-1240 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-1237) (lambda (arg-1239) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1238) (lambda (arg-1240) (TTC-Core-toBuf_TTC__Name arg-1238 arg-1240))) (lambda (arg-1240) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-1240 eta-1)))) (vector 0 (lambda (arg-1238) (lambda (arg-1240) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1241) (lambda (arg-1242) (TTC-Core-toBuf_TTC__RigCount arg-1241 arg-1242))) (lambda (arg-1241) (lambda (eta-1) (TTC-Core-fromBuf_TTC__RigCount arg-1241 eta-1)))) (vector 0 (lambda (arg-1241) (lambda (arg-1242) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1243) (lambda (arg-1244) (Binary-Utils-toBuf_TTC__Bool arg-1243 arg-1244))) (lambda (arg-1243) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-1243 eta-1)))) (vector 0 (lambda (arg-1243) (lambda (arg-1244) (TTImp-TTImp-toBuf_TTC__RawImp arg-1243 arg-1244))) (lambda (arg-1243) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__RawImp arg-1243 eta-1))))) arg-1241 arg-1242))) (lambda (arg-1241) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1242) (lambda (arg-1243) (Binary-Utils-toBuf_TTC__Bool arg-1242 arg-1243))) (lambda (arg-1242) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Bool arg-1242 eta-2)))) (vector 0 (lambda (arg-1242) (lambda (arg-1243) (TTImp-TTImp-toBuf_TTC__RawImp arg-1242 arg-1243))) (lambda (arg-1242) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__RawImp arg-1242 eta-2))))) arg-1241 eta-1))))) arg-1238 arg-1240))) (lambda (arg-1240) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1238) (lambda (arg-1241) (TTC-Core-toBuf_TTC__RigCount arg-1238 arg-1241))) (lambda (arg-1241) (lambda (eta-2) (TTC-Core-fromBuf_TTC__RigCount arg-1241 eta-2)))) (vector 0 (lambda (arg-1238) (lambda (arg-1241) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1242) (lambda (arg-1243) (Binary-Utils-toBuf_TTC__Bool arg-1242 arg-1243))) (lambda (arg-1242) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Bool arg-1242 eta-2)))) (vector 0 (lambda (arg-1242) (lambda (arg-1243) (TTImp-TTImp-toBuf_TTC__RawImp arg-1242 arg-1243))) (lambda (arg-1242) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__RawImp arg-1242 eta-2))))) arg-1238 arg-1241))) (lambda (arg-1241) (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-1238) (lambda (arg-1242) (Binary-Utils-toBuf_TTC__Bool arg-1238 arg-1242))) (lambda (arg-1242) (lambda (eta-3) (Binary-Utils-fromBuf_TTC__Bool arg-1242 eta-3)))) (vector 0 (lambda (arg-1238) (lambda (arg-1242) (TTImp-TTImp-toBuf_TTC__RawImp arg-1238 arg-1242))) (lambda (arg-1242) (lambda (eta-3) (TTImp-TTImp-fromBuf_TTC__RawImp arg-1242 eta-3))))) arg-1241 eta-2))))) arg-1240 eta-1))))) arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1237) (lambda (arg-1239) (TTC-Core-toBuf_TTC__Name arg-1237 arg-1239))) (lambda (arg-1241) (lambda (eta-2) (TTC-Core-fromBuf_TTC__Name arg-1241 eta-2)))) (vector 0 (lambda (arg-1237) (lambda (arg-1239) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1238) (lambda (arg-1241) (TTC-Core-toBuf_TTC__RigCount arg-1238 arg-1241))) (lambda (arg-1241) (lambda (eta-2) (TTC-Core-fromBuf_TTC__RigCount arg-1241 eta-2)))) (vector 0 (lambda (arg-1238) (lambda (arg-1241) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1242) (lambda (arg-1243) (Binary-Utils-toBuf_TTC__Bool arg-1242 arg-1243))) (lambda (arg-1242) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Bool arg-1242 eta-2)))) (vector 0 (lambda (arg-1242) (lambda (arg-1243) (TTImp-TTImp-toBuf_TTC__RawImp arg-1242 arg-1243))) (lambda (arg-1242) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__RawImp arg-1242 eta-2))))) arg-1238 arg-1241))) (lambda (arg-1241) (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-1238) (lambda (arg-1242) (Binary-Utils-toBuf_TTC__Bool arg-1238 arg-1242))) (lambda (arg-1242) (lambda (eta-3) (Binary-Utils-fromBuf_TTC__Bool arg-1242 eta-3)))) (vector 0 (lambda (arg-1238) (lambda (arg-1242) (TTImp-TTImp-toBuf_TTC__RawImp arg-1238 arg-1242))) (lambda (arg-1242) (lambda (eta-3) (TTImp-TTImp-fromBuf_TTC__RawImp arg-1242 eta-3))))) arg-1241 eta-2))))) arg-1237 arg-1239))) (lambda (arg-1241) (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-1237) (lambda (arg-1239) (TTC-Core-toBuf_TTC__RigCount arg-1237 arg-1239))) (lambda (arg-1242) (lambda (eta-3) (TTC-Core-fromBuf_TTC__RigCount arg-1242 eta-3)))) (vector 0 (lambda (arg-1237) (lambda (arg-1239) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1238) (lambda (arg-1242) (Binary-Utils-toBuf_TTC__Bool arg-1238 arg-1242))) (lambda (arg-1242) (lambda (eta-3) (Binary-Utils-fromBuf_TTC__Bool arg-1242 eta-3)))) (vector 0 (lambda (arg-1238) (lambda (arg-1242) (TTImp-TTImp-toBuf_TTC__RawImp arg-1238 arg-1242))) (lambda (arg-1242) (lambda (eta-3) (TTImp-TTImp-fromBuf_TTC__RawImp arg-1242 eta-3))))) arg-1237 arg-1239))) (lambda (arg-1242) (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-1237) (lambda (arg-1239) (Binary-Utils-toBuf_TTC__Bool arg-1237 arg-1239))) (lambda (arg-1243) (lambda (eta-4) (Binary-Utils-fromBuf_TTC__Bool arg-1243 eta-4)))) (vector 0 (lambda (arg-1237) (lambda (arg-1239) (TTImp-TTImp-toBuf_TTC__RawImp arg-1237 arg-1239))) (lambda (arg-1243) (lambda (eta-4) (TTImp-TTImp-fromBuf_TTC__RawImp arg-1243 eta-4))))) arg-1242 eta-3))))) arg-1241 eta-2))))) arg-1240 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-1237) (lambda (arg-1239) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1238) (lambda (arg-1240) (TTC-Core-toBuf_TTC__Name arg-1238 arg-1240))) (lambda (arg-1240) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-1240 eta-1)))) (vector 0 (lambda (arg-1238) (lambda (arg-1240) (lambda (eta-1) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1241) (lambda (arg-1242) (TTImp-TTImp-toBuf_TTC__ImpClause arg-1241 arg-1242))) (lambda (arg-1241) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__ImpClause arg-1241 eta-2)))) arg-1238 arg-1240 eta-1)))) (lambda (arg-1240) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1238) (lambda (arg-1241) (TTImp-TTImp-toBuf_TTC__ImpClause arg-1238 arg-1241))) (lambda (arg-1241) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__ImpClause arg-1241 eta-2)))) arg-1240 eta-1))))) arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1237) (lambda (arg-1239) (TTC-Core-toBuf_TTC__Name arg-1237 arg-1239))) (lambda (arg-1241) (lambda (eta-2) (TTC-Core-fromBuf_TTC__Name arg-1241 eta-2)))) (vector 0 (lambda (arg-1237) (lambda (arg-1239) (lambda (eta-2) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1238) (lambda (arg-1241) (TTImp-TTImp-toBuf_TTC__ImpClause arg-1238 arg-1241))) (lambda (arg-1241) (lambda (eta-3) (TTImp-TTImp-fromBuf_TTC__ImpClause arg-1241 eta-3)))) arg-1237 arg-1239 eta-2)))) (lambda (arg-1241) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1237) (lambda (arg-1239) (TTImp-TTImp-toBuf_TTC__ImpClause arg-1237 arg-1239))) (lambda (arg-1242) (lambda (eta-3) (TTImp-TTImp-fromBuf_TTC__ImpClause arg-1242 eta-3)))) arg-1241 eta-2))))) arg-1240 eta-1)))) arg-0 e-4 eta-0)))))))))))))))))))))))))) +(define Syntax-Idris-case--14943-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--14942-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--14594-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--13885-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--13884-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--13115-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--13115-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) " | <>") (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--13115-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) " | <>") (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--14847-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--14847-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--14846-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--14846-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--15075-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--15075-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--15075-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--15075-5961-goPTerm arg-0 e-7) eta-1)) (Syntax-Idris-n--15075-5973-goPairedPTerms arg-0 'erased e-3) eta-0)))))))))))) +(define Syntax-Idris-n--15075-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--15075-5966-goPTypeDecl arg-0 e-2) eta-1)) (Syntax-Idris-n--15075-5983-goPTypeDecls arg-0 e-3) eta-0))))))))) +(define Syntax-Idris-n--15075-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--15075-5961-goPTerm arg-0 e-2) eta-0)))))))) +(define Syntax-Idris-n--15075-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--15075-5961-goPTerm arg-0 e-2) eta-1)) (Syntax-Idris-n--15075-5972-goPTerms arg-0 e-3) eta-0))))))))) +(define Syntax-Idris-n--15075-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--15075-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--15075-5961-goPTerm arg-0 e-6) eta-1)) (Syntax-Idris-n--15075-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--15075-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--15075-5961-goPTerm arg-0 e-12) eta-1)) (Syntax-Idris-n--15075-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--15075-5961-goPTerm arg-0 e-16) eta-4)) (Syntax-Idris-n--15075-5961-goPTerm arg-0 e-17) eta-3)) (Syntax-Idris-n--15075-5961-goPTerm arg-0 e-18) eta-2)) (Syntax-Idris-n--15075-5961-goPTerm arg-0 e-19) eta-1)) (Syntax-Idris-n--15075-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--15075-5961-goPTerm arg-0 e-22) eta-1)) (Syntax-Idris-n--15075-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--15075-5979-goPDecls arg-0 e-25) eta-1)) (Syntax-Idris-n--15075-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--15075-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--15075-5961-goPTerm arg-0 e-30) eta-1)) (Syntax-Idris-n--15075-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--15075-5961-goPTerm arg-0 e-33) eta-1)) (Syntax-Idris-n--15075-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--15075-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--15075-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--15075-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--15075-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--15075-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--15075-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--15075-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--15075-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--15075-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--15075-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--15075-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--15075-5961-goPTerm arg-0 e-71) eta-1)) (Syntax-Idris-n--15075-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--15075-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--15075-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--15075-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--15075-5961-goPTerm arg-0 e-83) eta-1)) (Syntax-Idris-n--15075-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--15075-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--15075-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--15075-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--15075-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--15075-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--15075-5961-goPTerm arg-0 e-96) eta-1)) (Syntax-Idris-n--15075-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--15075-5961-goPTerm arg-0 e-99) eta-2)) (Syntax-Idris-n--15075-5961-goPTerm arg-0 e-100) eta-1)) (Syntax-Idris-n--15075-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--15075-5961-goPTerm arg-0 e-104) eta-2)) (Syntax-Idris-n--15075-5961-goPTerm arg-0 e-105) eta-1)) (Syntax-Idris-n--15075-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--15075-5961-goPTerm arg-0 e-108) eta-1)) (Syntax-Idris-n--15075-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--15075-5961-goPTerm arg-0 e-111) eta-1)) (Syntax-Idris-n--15075-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--15075-5961-goPTerm arg-0 e-114) eta-2)) (Syntax-Idris-n--15075-5971-goMPTerm arg-0 e-115) eta-1)) (Syntax-Idris-n--15075-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--15075-5961-goPTerm arg-0 e-118) eta-1)) (Syntax-Idris-n--15075-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--15075-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--15075-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--15075-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--15075-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--15075-5970-goPFnOpt arg-0 e-2) eta-1)) (Syntax-Idris-n--15075-5982-goPFnOpts arg-0 e-3) eta-0))))))))) +(define Syntax-Idris-n--15075-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--15075-5972-goPTerms arg-0 e-1) eta-0)))))))) +(define Syntax-Idris-n--15075-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--15075-5968-goPField arg-0 e-2) eta-1)) (Syntax-Idris-n--15075-5981-goPFields arg-0 e-3) eta-0))))))))) +(define Syntax-Idris-n--15075-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--15075-5962-goPFieldUpdate arg-0 e-2) eta-1)) (Syntax-Idris-n--15075-5980-goPFieldUpdates arg-0 e-3) eta-0))))))))) +(define Syntax-Idris-n--15075-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--15075-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--15075-5961-goPTerm arg-0 e-3) eta-0))))))))) +(define Syntax-Idris-n--15075-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--15075-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--15075-5961-goPTerm arg-0 e-4) eta-0)))))))))) +(define Syntax-Idris-n--15075-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--15075-5963-goPDo arg-0 e-2) eta-1)) (Syntax-Idris-n--15075-5976-goPDos arg-0 e-3) eta-0))))))))) +(define Syntax-Idris-n--15075-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--15075-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--15075-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--15075-5961-goPTerm arg-0 e-6) eta-2)) (Syntax-Idris-n--15075-5961-goPTerm arg-0 e-7) eta-1)) (Syntax-Idris-n--15075-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--15075-5961-goPTerm arg-0 e-12) eta-1)) (Syntax-Idris-n--15075-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--15075-5961-goPTerm arg-0 e-15) eta-3)) (Syntax-Idris-n--15075-5961-goPTerm arg-0 e-16) eta-2)) (Syntax-Idris-n--15075-5961-goPTerm arg-0 e-17) eta-1)) (Syntax-Idris-n--15075-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--15075-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--15075-5961-goPTerm arg-0 e-22) eta-0))))))))) +(define Syntax-Idris-n--15075-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--15075-5965-goPDecl arg-0 e-2) eta-1)) (Syntax-Idris-n--15075-5979-goPDecls arg-0 e-3) eta-0))))))))) +(define Syntax-Idris-n--15075-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--15075-5982-goPFnOpts arg-0 e-3) eta-1)) (Syntax-Idris-n--15075-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--15075-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--15075-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--15075-5973-goPairedPTerms arg-0 'erased e-11) eta-1)) (Syntax-Idris-n--15075-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--15075-5973-goPairedPTerms arg-0 'erased e-14) eta-1)) (Syntax-Idris-n--15075-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--15075-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--15075-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--15075-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--15075-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--15075-5974-go3TupledPTerms arg-0 'erased 'erased e-30) eta-6)) (Syntax-Idris-n--15075-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--15075-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--15075-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--15075-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--15075-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--15075-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--15075-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--15075-5961-goPTerm arg-0 e-54) eta-1)) (Syntax-Idris-n--15075-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--15075-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--15075-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--15075-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--15075-5961-goPTerm arg-0 e-7) eta-0)))))))))) +(define Syntax-Idris-n--15075-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--15075-5964-goPClause arg-0 e-2) eta-1)) (Syntax-Idris-n--15075-5977-goPClauses arg-0 e-3) eta-0))))))))) +(define Syntax-Idris-n--15075-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--15075-5961-goPTerm arg-0 e-1) eta-2)) (Syntax-Idris-n--15075-5961-goPTerm arg-0 e-2) eta-1)) (Syntax-Idris-n--15075-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--15075-5961-goPTerm arg-0 e-5) eta-2)) (Syntax-Idris-n--15075-5961-goPTerm arg-0 e-6) eta-1)) (Syntax-Idris-n--15075-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--15075-5961-goPTerm arg-0 e-9) eta-0))))))))) +(define Syntax-Idris-n--15075-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--15075-5961-goPTerm arg-0 e-2) eta-0)))))))) +(define Syntax-Idris-n--15075-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--15075-5979-goPDecls arg-0 e-2) eta-0)))))))) +(define Syntax-Idris-n--15075-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--15075-5969-goPiInfo arg-0 e-14) eta-2)) (Syntax-Idris-n--15075-5961-goPTerm arg-0 e-15) eta-1)) (Syntax-Idris-n--15075-5975-go4TupledPTerms arg-0 'erased 'erased e-3) eta-0)))))))))))))))))) +(define Syntax-Idris-n--15075-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--15075-5961-goPTerm arg-0 e-11) eta-1)) (Syntax-Idris-n--15075-5974-go3TupledPTerms arg-0 'erased 'erased e-3) eta-0))))))))))))))) +(define Syntax-Idris-n--12621-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--13115-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--13884-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--13115-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--13885-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-135 (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-135) (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-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)))))))))))) ((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-141 (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-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)))))))))))) (else (let ((e-132 (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-132) (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-144 (vector-ref sc2 1))) (Strings-Prelude-C-43C-43 "{default " (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm (vector 6 ) e-132) (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-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))))))))))))))))))))))) ((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-2851) (lambda (arg-2852) (Prelude-C-60C-43C-62_Semigroup__String arg-2851 arg-2852))) (Prelude-neutral_Monoid__String))) (lambda (eta-0) (Syntax-Idris-n--13020-4341-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--13020-4405-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-149 (vector-ref sc1 1))) (let ((sc2 e-38)) (case (vector-ref sc2 0) ((0) (let ((e-150 (vector-ref sc2 1))) (let ((e-151 (vector-ref sc2 2))) (Syntax-Idris-case--13020-4535 e-35 e-150 e-149 e-151 e-36 arg-0 (Name-Core-C-61C-61_Eq__Name e-149 e-151)))))(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-149) (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) "`( <> )") ((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--13020-4841-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--13020-4842-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-155 (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-155) (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-158 (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-158) " .. ]"))))))))))) ((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-2851) (lambda (arg-2852) (Prelude-C-60C-43C-62_Semigroup__String arg-2851 arg-2852))) (Prelude-neutral_Monoid__String))) (lambda (eta-0) (Name-Core-show_Show__Name eta-0))) e-125))))) (else (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-2851) (lambda (arg-2852) (Prelude-C-60C-43C-62_Semigroup__String arg-2851 arg-2852))) (Prelude-neutral_Monoid__String))) (lambda (eta-0) (Name-Core-show_Show__Name eta-0))) e-127))))))) -(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-4481) (lambda (arg-4482) (lambda (eta-0) (Syntax-Idris-full_HasNames__IFaceInfo arg-4481 arg-4482 eta-0)))) (lambda (arg-4483) (lambda (arg-4484) (lambda (eta-0) (Syntax-Idris-resolved_HasNames__IFaceInfo arg-4483 arg-4484 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-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-2851) (lambda (arg-2852) (Prelude-C-60C-43C-62_Semigroup__String arg-2851 arg-2852))) (Prelude-neutral_Monoid__String))) (lambda (eta-0) (Syntax-Idris-n--13115-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--13115-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--13115-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) "`( <> )") ((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--13115-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--13115-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-2851) (lambda (arg-2852) (Prelude-C-60C-43C-62_Semigroup__String arg-2851 arg-2852))) (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-2851) (lambda (arg-2852) (Prelude-C-60C-43C-62_Semigroup__String arg-2851 arg-2852))) (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-4524) (lambda (arg-4525) (lambda (eta-0) (Syntax-Idris-full_HasNames__IFaceInfo arg-4524 arg-4525 eta-0)))) (lambda (arg-4526) (lambda (arg-4527) (lambda (eta-0) (Syntax-Idris-resolved_HasNames__IFaceInfo arg-4526 arg-4527 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--14725-5765-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-4481) (lambda (arg-4482) (lambda (eta-0) (Syntax-Idris-full_HasNames__IFaceInfo arg-4481 arg-4482 eta-0)))) (lambda (arg-4483) (lambda (arg-4484) (lambda (eta-0) (Syntax-Idris-resolved_HasNames__IFaceInfo arg-4483 arg-4484 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-resolved_HasNames__C-40ANameMapC-32C-36aC-41 (lambda (arg-0 arg-1 arg-2 arg-3) (Syntax-Idris-n--14847-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-4524) (lambda (arg-4525) (lambda (eta-0) (Syntax-Idris-full_HasNames__IFaceInfo arg-4524 arg-4525 eta-0)))) (lambda (arg-4526) (lambda (arg-4527) (lambda (eta-0) (Syntax-Idris-resolved_HasNames__IFaceInfo arg-4526 arg-4527 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--14724-5726-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-1237) (lambda (arg-1239) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1238) (lambda (arg-1240) (Binary-Utils-toBuf_TTC__String arg-1238 arg-1240))) (lambda (arg-1240) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__String arg-1240 eta-0)))) (vector 0 (lambda (arg-1238) (lambda (arg-1240) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1241) (lambda (arg-1242) (Syntax-Idris-toBuf_TTC__Fixity arg-1241 arg-1242))) (lambda (arg-1241) (lambda (eta-0) (Syntax-Idris-fromBuf_TTC__Fixity arg-1241 eta-0)))) (vector 0 (lambda (arg-1241) (lambda (arg-1242) (Binary-Utils-toBuf_TTC__Nat arg-1241 arg-1242))) (lambda (arg-1241) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Nat arg-1241 eta-0))))) arg-1238 arg-1240))) (lambda (arg-1240) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1238) (lambda (arg-1241) (Syntax-Idris-toBuf_TTC__Fixity arg-1238 arg-1241))) (lambda (arg-1241) (lambda (eta-1) (Syntax-Idris-fromBuf_TTC__Fixity arg-1241 eta-1)))) (vector 0 (lambda (arg-1238) (lambda (arg-1241) (Binary-Utils-toBuf_TTC__Nat arg-1238 arg-1241))) (lambda (arg-1241) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-1241 eta-1))))) arg-1240 eta-0))))) arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1237) (lambda (arg-1239) (Binary-Utils-toBuf_TTC__String arg-1237 arg-1239))) (lambda (arg-1241) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-1241 eta-1)))) (vector 0 (lambda (arg-1237) (lambda (arg-1239) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1238) (lambda (arg-1241) (Syntax-Idris-toBuf_TTC__Fixity arg-1238 arg-1241))) (lambda (arg-1241) (lambda (eta-1) (Syntax-Idris-fromBuf_TTC__Fixity arg-1241 eta-1)))) (vector 0 (lambda (arg-1238) (lambda (arg-1241) (Binary-Utils-toBuf_TTC__Nat arg-1238 arg-1241))) (lambda (arg-1241) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-1241 eta-1))))) arg-1237 arg-1239))) (lambda (arg-1241) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1237) (lambda (arg-1239) (Syntax-Idris-toBuf_TTC__Fixity arg-1237 arg-1239))) (lambda (arg-1242) (lambda (eta-2) (Syntax-Idris-fromBuf_TTC__Fixity arg-1242 eta-2)))) (vector 0 (lambda (arg-1237) (lambda (arg-1239) (Binary-Utils-toBuf_TTC__Nat arg-1237 arg-1239))) (lambda (arg-1242) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Nat arg-1242 eta-2))))) arg-1241 eta-1))))) arg-1240 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-1237) (lambda (arg-1239) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1238) (lambda (arg-1240) (Binary-Utils-toBuf_TTC__String arg-1238 arg-1240))) (lambda (arg-1240) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__String arg-1240 eta-0)))) (vector 0 (lambda (arg-1238) (lambda (arg-1240) (Binary-Utils-toBuf_TTC__Nat arg-1238 arg-1240))) (lambda (arg-1240) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Nat arg-1240 eta-0))))) arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1237) (lambda (arg-1239) (Binary-Utils-toBuf_TTC__String arg-1237 arg-1239))) (lambda (arg-1241) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-1241 eta-1)))) (vector 0 (lambda (arg-1237) (lambda (arg-1239) (Binary-Utils-toBuf_TTC__Nat arg-1237 arg-1239))) (lambda (arg-1241) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-1241 eta-1))))) arg-1240 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-1237) (lambda (arg-1239) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1238) (lambda (arg-1240) (TTC-Core-toBuf_TTC__Name arg-1238 arg-1240))) (lambda (arg-1240) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-1240 eta-0)))) (vector 0 (lambda (arg-1238) (lambda (arg-1240) (Syntax-Idris-toBuf_TTC__IFaceInfo arg-1238 arg-1240))) (lambda (arg-1240) (lambda (eta-0) (Syntax-Idris-fromBuf_TTC__IFaceInfo arg-1240 eta-0))))) arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1237) (lambda (arg-1239) (TTC-Core-toBuf_TTC__Name arg-1237 arg-1239))) (lambda (arg-1241) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-1241 eta-1)))) (vector 0 (lambda (arg-1237) (lambda (arg-1239) (Syntax-Idris-toBuf_TTC__IFaceInfo arg-1237 arg-1239))) (lambda (arg-1241) (lambda (eta-1) (Syntax-Idris-fromBuf_TTC__IFaceInfo arg-1241 eta-1))))) arg-1240 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-1237) (lambda (arg-1239) (TTC-Core-toBuf_TTC__Name arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-1240 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-1237) (lambda (arg-1239) (TTC-Core-toBuf_TTC__Name arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-1240 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-1237) (lambda (arg-1239) (TTImp-TTImp-toBuf_TTC__RawImp arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__RawImp arg-1240 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-1237) (lambda (arg-1239) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1238) (lambda (arg-1240) (TTC-Core-toBuf_TTC__Name arg-1238 arg-1240))) (lambda (arg-1240) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-1240 eta-0)))) (vector 0 (lambda (arg-1238) (lambda (arg-1240) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1241) (lambda (arg-1242) (TTC-Core-toBuf_TTC__RigCount arg-1241 arg-1242))) (lambda (arg-1241) (lambda (eta-0) (TTC-Core-fromBuf_TTC__RigCount arg-1241 eta-0)))) (vector 0 (lambda (arg-1241) (lambda (arg-1242) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1243) (lambda (arg-1244) (Binary-Utils-toBuf_TTC__Bool arg-1243 arg-1244))) (lambda (arg-1243) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Bool arg-1243 eta-0)))) (vector 0 (lambda (arg-1243) (lambda (arg-1244) (TTImp-TTImp-toBuf_TTC__RawImp arg-1243 arg-1244))) (lambda (arg-1243) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__RawImp arg-1243 eta-0))))) arg-1241 arg-1242))) (lambda (arg-1241) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1242) (lambda (arg-1243) (Binary-Utils-toBuf_TTC__Bool arg-1242 arg-1243))) (lambda (arg-1242) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-1242 eta-1)))) (vector 0 (lambda (arg-1242) (lambda (arg-1243) (TTImp-TTImp-toBuf_TTC__RawImp arg-1242 arg-1243))) (lambda (arg-1242) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__RawImp arg-1242 eta-1))))) arg-1241 eta-0))))) arg-1238 arg-1240))) (lambda (arg-1240) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1238) (lambda (arg-1241) (TTC-Core-toBuf_TTC__RigCount arg-1238 arg-1241))) (lambda (arg-1241) (lambda (eta-1) (TTC-Core-fromBuf_TTC__RigCount arg-1241 eta-1)))) (vector 0 (lambda (arg-1238) (lambda (arg-1241) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1242) (lambda (arg-1243) (Binary-Utils-toBuf_TTC__Bool arg-1242 arg-1243))) (lambda (arg-1242) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-1242 eta-1)))) (vector 0 (lambda (arg-1242) (lambda (arg-1243) (TTImp-TTImp-toBuf_TTC__RawImp arg-1242 arg-1243))) (lambda (arg-1242) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__RawImp arg-1242 eta-1))))) arg-1238 arg-1241))) (lambda (arg-1241) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1238) (lambda (arg-1242) (Binary-Utils-toBuf_TTC__Bool arg-1238 arg-1242))) (lambda (arg-1242) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Bool arg-1242 eta-2)))) (vector 0 (lambda (arg-1238) (lambda (arg-1242) (TTImp-TTImp-toBuf_TTC__RawImp arg-1238 arg-1242))) (lambda (arg-1242) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__RawImp arg-1242 eta-2))))) arg-1241 eta-1))))) arg-1240 eta-0))))) arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1237) (lambda (arg-1239) (TTC-Core-toBuf_TTC__Name arg-1237 arg-1239))) (lambda (arg-1241) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-1241 eta-1)))) (vector 0 (lambda (arg-1237) (lambda (arg-1239) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1238) (lambda (arg-1241) (TTC-Core-toBuf_TTC__RigCount arg-1238 arg-1241))) (lambda (arg-1241) (lambda (eta-1) (TTC-Core-fromBuf_TTC__RigCount arg-1241 eta-1)))) (vector 0 (lambda (arg-1238) (lambda (arg-1241) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1242) (lambda (arg-1243) (Binary-Utils-toBuf_TTC__Bool arg-1242 arg-1243))) (lambda (arg-1242) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-1242 eta-1)))) (vector 0 (lambda (arg-1242) (lambda (arg-1243) (TTImp-TTImp-toBuf_TTC__RawImp arg-1242 arg-1243))) (lambda (arg-1242) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__RawImp arg-1242 eta-1))))) arg-1238 arg-1241))) (lambda (arg-1241) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1238) (lambda (arg-1242) (Binary-Utils-toBuf_TTC__Bool arg-1238 arg-1242))) (lambda (arg-1242) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Bool arg-1242 eta-2)))) (vector 0 (lambda (arg-1238) (lambda (arg-1242) (TTImp-TTImp-toBuf_TTC__RawImp arg-1238 arg-1242))) (lambda (arg-1242) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__RawImp arg-1242 eta-2))))) arg-1241 eta-1))))) arg-1237 arg-1239))) (lambda (arg-1241) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1237) (lambda (arg-1239) (TTC-Core-toBuf_TTC__RigCount arg-1237 arg-1239))) (lambda (arg-1242) (lambda (eta-2) (TTC-Core-fromBuf_TTC__RigCount arg-1242 eta-2)))) (vector 0 (lambda (arg-1237) (lambda (arg-1239) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1238) (lambda (arg-1242) (Binary-Utils-toBuf_TTC__Bool arg-1238 arg-1242))) (lambda (arg-1242) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Bool arg-1242 eta-2)))) (vector 0 (lambda (arg-1238) (lambda (arg-1242) (TTImp-TTImp-toBuf_TTC__RawImp arg-1238 arg-1242))) (lambda (arg-1242) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__RawImp arg-1242 eta-2))))) arg-1237 arg-1239))) (lambda (arg-1242) (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-1237) (lambda (arg-1239) (Binary-Utils-toBuf_TTC__Bool arg-1237 arg-1239))) (lambda (arg-1243) (lambda (eta-3) (Binary-Utils-fromBuf_TTC__Bool arg-1243 eta-3)))) (vector 0 (lambda (arg-1237) (lambda (arg-1239) (TTImp-TTImp-toBuf_TTC__RawImp arg-1237 arg-1239))) (lambda (arg-1243) (lambda (eta-3) (TTImp-TTImp-fromBuf_TTC__RawImp arg-1243 eta-3))))) arg-1242 eta-2))))) arg-1241 eta-1))))) arg-1240 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-1237) (lambda (arg-1239) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1238) (lambda (arg-1240) (TTC-Core-toBuf_TTC__Name arg-1238 arg-1240))) (lambda (arg-1240) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-1240 eta-0)))) (vector 0 (lambda (arg-1238) (lambda (arg-1240) (lambda (eta-0) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1241) (lambda (arg-1242) (TTImp-TTImp-toBuf_TTC__ImpClause arg-1241 arg-1242))) (lambda (arg-1241) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__ImpClause arg-1241 eta-1)))) arg-1238 arg-1240 eta-0)))) (lambda (arg-1240) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1238) (lambda (arg-1241) (TTImp-TTImp-toBuf_TTC__ImpClause arg-1238 arg-1241))) (lambda (arg-1241) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__ImpClause arg-1241 eta-1)))) arg-1240 eta-0))))) arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1237) (lambda (arg-1239) (TTC-Core-toBuf_TTC__Name arg-1237 arg-1239))) (lambda (arg-1241) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-1241 eta-1)))) (vector 0 (lambda (arg-1237) (lambda (arg-1239) (lambda (eta-1) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1238) (lambda (arg-1241) (TTImp-TTImp-toBuf_TTC__ImpClause arg-1238 arg-1241))) (lambda (arg-1241) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__ImpClause arg-1241 eta-2)))) arg-1237 arg-1239 eta-1)))) (lambda (arg-1241) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1237) (lambda (arg-1239) (TTImp-TTImp-toBuf_TTC__ImpClause arg-1237 arg-1239))) (lambda (arg-1242) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__ImpClause arg-1242 eta-2)))) arg-1241 eta-1))))) arg-1240 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-full_HasNames__C-40ANameMapC-32C-36aC-41 (lambda (arg-0 arg-1 arg-2 arg-3) (Syntax-Idris-n--14846-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-1237) (lambda (arg-1239) (lambda (eta-0) (Syntax-Idris-toBuf_TTC__SyntaxInfo arg-1237 arg-1239 eta-0)))) (lambda (arg-1240) (lambda (eta-0) (Syntax-Idris-fromBuf_TTC__SyntaxInfo arg-1240 eta-0)))))) -(define Syntax-Idris-__Impl_TTC_IFaceInfo (lambda () (vector 0 (lambda (arg-1237) (lambda (arg-1239) (Syntax-Idris-toBuf_TTC__IFaceInfo arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-0) (Syntax-Idris-fromBuf_TTC__IFaceInfo arg-1240 eta-0)))))) -(define Syntax-Idris-__Impl_TTC_Fixity (lambda () (vector 0 (lambda (arg-1237) (lambda (arg-1239) (Syntax-Idris-toBuf_TTC__Fixity arg-1237 arg-1239))) (lambda (arg-1240) (lambda (eta-0) (Syntax-Idris-fromBuf_TTC__Fixity arg-1240 eta-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-4481) (lambda (arg-4482) (lambda (eta-0) (Syntax-Idris-full_HasNames__SyntaxInfo arg-4481 arg-4482 eta-0)))) (lambda (arg-4483) (lambda (arg-4484) (lambda (eta-0) (Syntax-Idris-resolved_HasNames__SyntaxInfo arg-4483 arg-4484 eta-0))))))) -(define Syntax-Idris-__Impl_HasNames_IFaceInfo (lambda () (vector 0 (lambda (arg-4481) (lambda (arg-4482) (lambda (eta-0) (Syntax-Idris-full_HasNames__IFaceInfo arg-4481 arg-4482 eta-0)))) (lambda (arg-4483) (lambda (arg-4484) (lambda (eta-0) (Syntax-Idris-resolved_HasNames__IFaceInfo arg-4483 arg-4484 eta-0))))))) -(define Syntax-Idris-__Impl_HasNames_C-40ANameMapC-32C-36aC-41 (lambda (arg-0 arg-1) (vector 0 (lambda (arg-4481) (lambda (arg-4482) (Syntax-Idris-full_HasNames__C-40ANameMapC-32C-36aC-41 'erased arg-1 arg-4481 arg-4482))) (lambda (arg-4483) (lambda (arg-4484) (Syntax-Idris-resolved_HasNames__C-40ANameMapC-32C-36aC-41 'erased arg-1 arg-4483 arg-4484)))))) +(define Syntax-Idris-__Impl_HasNames_SyntaxInfo (lambda () (vector 0 (lambda (arg-4524) (lambda (arg-4525) (lambda (eta-0) (Syntax-Idris-full_HasNames__SyntaxInfo arg-4524 arg-4525 eta-0)))) (lambda (arg-4526) (lambda (arg-4527) (lambda (eta-0) (Syntax-Idris-resolved_HasNames__SyntaxInfo arg-4526 arg-4527 eta-0))))))) +(define Syntax-Idris-__Impl_HasNames_IFaceInfo (lambda () (vector 0 (lambda (arg-4524) (lambda (arg-4525) (lambda (eta-0) (Syntax-Idris-full_HasNames__IFaceInfo arg-4524 arg-4525 eta-0)))) (lambda (arg-4526) (lambda (arg-4527) (lambda (eta-0) (Syntax-Idris-resolved_HasNames__IFaceInfo arg-4526 arg-4527 eta-0))))))) +(define Syntax-Idris-__Impl_HasNames_C-40ANameMapC-32C-36aC-41 (lambda (arg-0 arg-1) (vector 0 (lambda (arg-4524) (lambda (arg-4525) (Syntax-Idris-full_HasNames__C-40ANameMapC-32C-36aC-41 'erased arg-1 arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Syntax-Idris-resolved_HasNames__C-40ANameMapC-32C-36aC-41 'erased arg-1 arg-4526 arg-4527)))))) (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 )))))) @@ -5580,7 +5698,7 @@ (define Import-Syntax-Idris-nameAs (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-3 (vector-ref sc0 4))) e-3)))) (define Module-Syntax-Idris-moduleNS (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-1 (vector-ref sc0 2))) e-1)))) (define IFaceInfo-Syntax-Idris-methods (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-3 (vector-ref sc0 4))) e-3)))) -(define Syntax-Idris-mapPTermM (lambda (arg-0 ext-0) (Syntax-Idris-n--14953-5933-goPTerm arg-0 ext-0))) +(define Syntax-Idris-mapPTermM (lambda (arg-0 ext-0) (Syntax-Idris-n--15075-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)))) @@ -5589,218 +5707,218 @@ (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--12526-3681-getName e-0 e-2 e-3 e-4 e-1 eta-0)) e-4)))))))) (else (let ((e-6 (vector-ref sc0 2))) (vector 1 e-6 (vector 0 )))))))) +(define Syntax-Idris-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--12621-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--2710-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--2621-3127-update 'erased arg-3 arg-1 arg-2 arg-3 e-2) arg-1))))))) -(define ANameMap-Data-case--2621-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--2710-3231 'erased arg-2 arg-3 arg-1 e-2 (StringMap-Data-lookup 'erased e-2 arg-2)))))))) -(define ANameMap-Data-case--2630-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--2621-3127-update 'erased arg-1 arg-2 arg-3 arg-6 arg-5))))))) -(define ANameMap-Data-case--2531-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--2495-3009-matches 'erased arg-1 arg-2 arg-2 eta-0)) e-2))))))) -(define ANameMap-Data-case--2531-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--2495-3040 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (ANameMap-Data-case--2531-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--2531-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--2621-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--2630-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--2495-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--2869-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--2869-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--2819-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--2819-3298-fromListC-39 'erased (ANameMap-Data-addName 'erased e-6 e-7 arg-1) e-3))))))))))) +(define ANameMap-Data-case--2770-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--2681-3127-update 'erased arg-3 arg-1 arg-2 arg-3 e-2) arg-1))))))) +(define ANameMap-Data-case--2681-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--2770-3231 'erased arg-2 arg-3 arg-1 e-2 (StringMap-Data-lookup 'erased e-2 arg-2)))))))) +(define ANameMap-Data-case--2690-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--2681-3127-update 'erased arg-1 arg-2 arg-3 arg-6 arg-5))))))) +(define ANameMap-Data-case--2591-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--2555-3009-matches 'erased arg-1 arg-2 arg-2 eta-0)) e-2))))))) +(define ANameMap-Data-case--2591-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--2555-3040 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (ANameMap-Data-case--2591-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--2591-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--2681-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--2690-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--2555-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--2929-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--2929-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--2879-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--2879-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--2869-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--2495-3040 'erased arg-2 arg-1 (Name-Core-userNameRoot arg-1)))) +(define ANameMap-Data-mergeAs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (ANameMap-Data-n--2929-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--2555-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--2819-3298-fromListC-39 'erased (ANameMap-Data-empty 'erased) ext-0))) +(define ANameMap-Data-fromList (lambda (arg-0 ext-0) (ANameMap-Data-n--2879-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--2621-3201 'erased arg-2 arg-3 arg-1 (Name-Core-userNameRoot arg-1)))) +(define ANameMap-Data-addToHier (lambda (arg-0 arg-1 arg-2 arg-3) (ANameMap-Data-case--2681-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--29353-12331 (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--29353-12290 (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--29353-12249 (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--29353-12208 (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--29353-12171 (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--29353-12130 (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--29353-11987 (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--29353-11974 (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--29353-11926 (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--29353-11889 (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--29353-11850 (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--29353-11809 (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--29353-11770 (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--29353-11987 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-case--29865-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--29865-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--29865-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--29865-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--29865-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--29865-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--29865-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--29865-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--29865-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--29865-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--29865-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--29865-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--29865-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--29865-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--36317-7958 (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--36310-7832 (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--36304-7762 (lambda (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--36211-7614 (lambda (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__ParseError 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--36107-7581 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (Support-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--36110-7525 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (REPL-Idris-n--36107-7499-getLoad arg-0 (Prelude-length arg-1) arg-2 arg-4)) (else (REPL-Idris-n--36107-7500-fnameCmd arg-0 arg-3 arg-4)))))) -(define REPL-Idris-case--34608-7326 (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--34608-7158 (lambda (arg-0 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-4481) (lambda (arg-4482) (Context-Core-full_HasNames__Totality arg-4481 arg-4482))) (lambda (arg-4483) (lambda (arg-4484) (Context-Core-resolved_HasNames__Totality arg-4483 arg-4484)))) 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--35581-7045 (lambda (arg-0 arg-1 arg-2 arg-3 arg-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--34608-6989 (lambda (arg-0 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--35581-7045 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--34608-6865 (lambda (arg-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--34608-6776 (lambda (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--34608-6732 (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--34608-6660 (lambda (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--34608-6603 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (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--34608-6519 (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--34608-6437 (lambda (arg-0 arg-1 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--34734-6287 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 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--34646-6214 (lambda (arg-0 arg-1 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--34608-6094-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--34734-6287 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--34608-6129 (lambda (arg-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--34608-6093-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--34608-6094-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--34734-6287 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--34473-6010 (lambda (arg-0 arg-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--34447-5968 (lambda (arg-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--34340-5887 (lambda (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--34250-5806 (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--30704-5696 (lambda (arg-0 arg-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--33826-5471 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 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--33747-5408 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 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--33543-5354 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 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--33747-5408 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 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--33543-5250 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 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--33478-5190 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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--33747-5408 arg-0 arg-1 arg-2 arg-3 arg-4 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--30704-5139 (lambda (arg-0 arg-1 arg-2 arg-3 arg-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--33747-5408 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--33064-4828 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 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--33003-4766 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-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--32941-4724 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--33003-4766 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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--32866-4678 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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--33003-4766 arg-0 arg-1 arg-2 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--32811-4614 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-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--33003-4766 arg-0 arg-1 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--30704-4568 (lambda (arg-0 arg-1 arg-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--33003-4766 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--32374-4364 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 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-4)) (cond ((equal? sc0 0) (lambda (eta-0) (REPL-Idris-updateFile arg-5 (lambda (eta-1) (REPL-Idris-proofSearch arg-2 arg-25 (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-25 (vector 0 )))) eta-0))))))) -(define REPL-Idris-case--32374-4265 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24) (let ((sc0 arg-12)) (cond ((equal? sc0 0) (Resugar-Idris-addBracket (REPLOpts-Idris-replFC) arg-24)) (else arg-24))))) -(define REPL-Idris-case--32262-4198 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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 (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--31536-4106 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-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 1 "Not a searchable hole")) eta-0))) (else (let ((e-0 (vector-ref sc0 1))) (REPL-Idris-case--32262-4198 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (REPL-Idris-n--30704-3425-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-17)))))))) -(define REPL-Idris-case--31536-3999 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-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--31748-3878 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 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--31748-3783 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 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--31630-3686 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--31536-3588 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--30704-3507 (lambda (arg-0 arg-1 arg-2 arg-3 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--31536-3999 arg-0 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--30704-3425-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 ((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-17 e-18))) (vector 0 )))) (REPL-Idris-case--31536-4106 arg-0 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-6 e-10 e-22 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--31342-3352 (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--30704-3331 (lambda (arg-0 arg-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--31179-3228 (lambda (arg-0 arg-1 arg-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--30704-3185 (lambda (arg-0 arg-1 arg-2 arg-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--30704-3109 (lambda (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--30704-3048 (lambda (arg-0 arg-1 arg-2 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 "\u000a" e-5)) eta-0)))))))))))) -(define REPL-Idris-case--30759-2965 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (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--30759-2856 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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--30704-2817 (lambda (arg-0 arg-1 arg-2 arg-3 arg-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--30759-2856 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--30759-2965 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--30592-2689 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (cond ((equal? sc0 0) (vector 1 (Strings-Prelude-C-43C-43 "\u000a" (Unlit-Parser-relit arg-8 (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-4) (Strings-Prelude-C-43C-43 " : " (Strings-Prelude-C-43C-43 arg-3 "\u000a"))))) arg-7)) (else (vector 1 arg-6 (REPL-Idris-n--30585-2664-insertInBlank arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-8 arg-7))))))) -(define REPL-Idris-case--30519-2606 (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--30510-2599-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--30379-2486 (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--30365-2466 (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--30209-2308 (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--29990-2242 (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--29990-2231 (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--29990-2199 (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--29990-2167 (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--29990-2135 (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--29990-2115 (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--29898-2032 (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 "\u000a" (Name-Core-showSep "\u000a" 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--29516-1706 (lambda (arg-0 arg-1 arg-2 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--29385-1572-dropShadows arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 'erased arg-8)))))) -(define REPL-Idris-case--29385-1678 (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--29516-1706 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-2851) (lambda (arg-2852) (Prelude-C-60C-43C-62_Semigroup__String arg-2851 arg-2852))) (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--29399-1605 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (cond ((equal? sc0 0) (REPL-Idris-n--29385-1572-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--29385-1572-dropShadows arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 'erased arg-11))))))) -(define REPL-Idris-case--29123-1490 (lambda (arg-0 arg-1 arg-2 arg-3 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--29123-1406 (lambda (arg-0 arg-1 arg-2 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--29123-1359-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)))) "\u000a"))) (else ""))))) -(define REPL-Idris-case--29025-1260 (lambda (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--29022-1239 (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--29025-1260 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--28792-1159 (lambda (arg-0 arg-1 arg-2 arg-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--30510-2599-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--30519-2606 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--36304-7724-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--34608-6094-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--36323-8063-makeSpace (lambda (arg-0) (Prelude-pack (Prelude-take 'erased arg-0 (Stream-Data-repeat 'erased #\ ))))) -(define REPL-Idris-n--30585-2664-insertInBlank (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (vector 1 (Unlit-Parser-relit arg-6 (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-4) (Strings-Prelude-C-43C-43 " : " (Strings-Prelude-C-43C-43 arg-3 "\u000a")))) (vector 0 ))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (REPL-Idris-case--30592-2689 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--29123-1359-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--36107-7499-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--36107-7500-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--36110-7525 arg-0 e-6 e-7 e-3 arg-2 (Strings-Data-isPrefixOf e-6 arg-2)))))))))))) -(define REPL-Idris-n--34608-6093-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--29385-1572-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--29399-1605 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--30704-3425-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--30704-3425-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--36323-8064-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--36323-8063-makeSpace (Prelude-minus arg-0 (Prelude-length arg-2))) (Strings-Prelude-C-43C-43 arg-3 (Strings-Prelude-C-43C-43 (REPL-Idris-n--36323-8063-makeSpace (Prelude-minus arg-1 (Prelude-length arg-3))) arg-4)))))) -(define REPL-Idris-n--36323-8065-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--36323-8064-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--30585-2665-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--30585-2664-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--30585-2665-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--30365-2466 arg-1 arg-0 e-5 (let ((sc1 e-5)) (let ((e-2 (vector-ref sc1 3))) e-2))) ext-0)))))))) +(define REPL-Idris-case--36838-7986 (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--36831-7860 (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--36825-7790 (lambda (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--36732-7642 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((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__ParseError 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--36628-7609 (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--36631-7553 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (REPL-Idris-n--36628-7527-getLoad arg-0 (Prelude-length arg-1) arg-2 arg-4)) (else (REPL-Idris-n--36628-7528-fnameCmd arg-0 arg-3 arg-4)))))) +(define REPL-Idris-case--35129-7354 (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--35129-7186 (lambda (arg-0 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-4524) (lambda (arg-4525) (Context-Core-full_HasNames__Totality arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__Totality arg-4526 arg-4527)))) 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--36102-7073 (lambda (arg-0 arg-1 arg-2 arg-3 arg-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--35129-7017 (lambda (arg-0 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--36102-7073 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--35129-6893 (lambda (arg-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--35129-6804 (lambda (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--35129-6760 (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--35129-6688 (lambda (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--35129-6631 (lambda (arg-0 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--35129-6547 (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--35129-6465 (lambda (arg-0 arg-1 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--35255-6315 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-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--35167-6242 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (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--35129-6122-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--35255-6315 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--35129-6157 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((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--35129-6121-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--35129-6122-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--35255-6315 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--34994-6038 (lambda (arg-0 arg-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--34968-5996 (lambda (arg-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--34861-5915 (lambda (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--34771-5834 (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--31225-5724 (lambda (arg-0 arg-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--34347-5499 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 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--34268-5436 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 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--34064-5382 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 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--34268-5436 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 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--34064-5278 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 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--33999-5218 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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--34268-5436 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 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--31225-5167 (lambda (arg-0 arg-1 arg-2 arg-3 arg-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--34268-5436 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--33585-4856 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 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--33524-4794 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-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--33462-4752 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--33524-4794 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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--33387-4706 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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--33524-4794 arg-0 arg-1 arg-2 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--33332-4642 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-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--33524-4794 arg-0 arg-1 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--31225-4596 (lambda (arg-0 arg-1 arg-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--33524-4794 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--32895-4392 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 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-4)) (cond ((equal? sc0 0) (lambda (eta-0) (REPL-Idris-updateFile arg-5 (lambda (eta-1) (REPL-Idris-proofSearch arg-2 arg-25 (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-25 (vector 0 )))) eta-0))))))) +(define REPL-Idris-case--32895-4293 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 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-12)) (cond ((equal? sc0 0) (Resugar-Idris-addBracket (REPLOpts-Idris-replFC) arg-24)) (else arg-24))))) +(define REPL-Idris-case--32783-4226 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 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 (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--32057-4134 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-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 1 "Not a searchable hole")) eta-0))) (else (let ((e-0 (vector-ref sc0 1))) (REPL-Idris-case--32783-4226 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (REPL-Idris-n--31225-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-17)))))))) +(define REPL-Idris-case--32057-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--32269-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--32269-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--32151-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--32057-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--31225-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--32057-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--31225-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 ((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-17 e-18))) (vector 0 )))) (REPL-Idris-case--32057-4134 arg-0 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-6 e-10 e-22 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--31863-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--31225-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--31700-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--31225-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--31225-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--31225-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 "\u000a" e-5)) eta-0)))))))))))) +(define REPL-Idris-case--31280-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--31280-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--31225-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--31280-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--31280-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--31113-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 "\u000a" (Unlit-Parser-relit arg-8 (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-4) (Strings-Prelude-C-43C-43 " : " (Strings-Prelude-C-43C-43 arg-3 "\u000a"))))) arg-7)) (else (vector 1 arg-6 (REPL-Idris-n--31106-2692-insertInBlank arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-8 arg-7))))))) +(define REPL-Idris-case--31040-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--31031-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--30900-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--30886-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--30730-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--30511-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--30511-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--30511-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--30511-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--30511-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--30511-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--30419-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 "\u000a" (Name-Core-showSep "\u000a" 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--30037-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--29906-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--29906-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--30037-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-2851) (lambda (arg-2852) (Prelude-C-60C-43C-62_Semigroup__String arg-2851 arg-2852))) (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--29920-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--29906-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--29906-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--29644-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--29644-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--29644-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)))) "\u000a"))) (else ""))))) +(define REPL-Idris-case--29546-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--29543-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--29546-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--29303-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--31031-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--31040-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--36825-7752-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--35129-6122-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--36844-8091-makeSpace (lambda (arg-0) (Prelude-pack (Prelude-take 'erased arg-0 (Stream-Data-repeat 'erased #\ ))))) +(define REPL-Idris-n--31106-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 "\u000a")))) (vector 0 ))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (REPL-Idris-case--31113-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--29644-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--36628-7527-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--36628-7528-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--36631-7553 arg-0 e-6 e-7 e-3 arg-2 (Strings-Data-isPrefixOf e-6 arg-2)))))))))))) +(define REPL-Idris-n--35129-6121-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--29906-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--29920-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--31225-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--31225-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--36844-8092-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--36844-8091-makeSpace (Prelude-minus arg-0 (Prelude-length arg-2))) (Strings-Prelude-C-43C-43 arg-3 (Strings-Prelude-C-43C-43 (REPL-Idris-n--36844-8091-makeSpace (Prelude-minus arg-1 (Prelude-length arg-3))) arg-4)))))) +(define REPL-Idris-n--36844-8093-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--36844-8092-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--31106-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--31106-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--31106-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--30886-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-4481) (lambda (arg-4482) (Context-Core-full_HasNames__Def arg-4481 arg-4482))) (lambda (arg-4483) (lambda (arg-4484) (Context-Core-resolved_HasNames__Def arg-4483 arg-4484)))) (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--28792-1159 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-4481) (lambda (arg-4482) (lambda (eta-3) (Context-Core-full_HasNames__SCCall arg-4481 arg-4482 eta-3)))) (lambda (arg-4483) (lambda (arg-4484) (lambda (eta-3) (Context-Core-resolved_HasNames__SCCall arg-4483 arg-4484 eta-3))))) eta-1 eta-2))) (let ((sc11 e-7)) (let ((e-20 (vector-ref sc11 21))) e-20))) 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 ((sc12 (Prelude-not (List-Data-isNil 'erased (let ((sc13 e-7)) (let ((e-20 (vector-ref sc13 21))) e-20)))))) (cond ((equal? sc12 0) (((let ((scinfo (Prelude-map_Functor__List 'erased 'erased (lambda (s) (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name (let ((sc13 s)) (let ((e-0 (vector-ref sc13 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 ((sc13 s)) (let ((e-1 (vector-ref sc13 2))) e-1)))))) e-16))) (lambda () (lambda (eta-1) (let ((act-25 (PrimIO-putStrLn (Strings-Prelude-C-43C-43 "Size change: " (Name-Core-showSep ", " scinfo)) eta-1))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-25) 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--29516-1706 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-2851) (lambda (arg-2852) (Prelude-C-60C-43C-62_Semigroup__String arg-2851 arg-2852))) (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 "-------------------------------------\u000a" (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--29123-1406 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 "-------------------------------------\u000a" (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-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-4524) (lambda (arg-4525) (Context-Core-full_HasNames__Def arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__Def arg-4526 arg-4527)))) (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--29303-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-4524) (lambda (arg-4525) (lambda (eta-3) (Context-Core-full_HasNames__SCCall arg-4524 arg-4525 eta-3)))) (lambda (arg-4526) (lambda (arg-4527) (lambda (eta-3) (Context-Core-resolved_HasNames__SCCall arg-4526 arg-4527 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--30037-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-2851) (lambda (arg-2852) (Prelude-C-60C-43C-62_Semigroup__String arg-2851 arg-2852))) (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 "-------------------------------------\u000a" (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--29644-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 "-------------------------------------\u000a" (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--29990-2242 e-5 arg-1 arg-0 (Options-Core-getCG e-5)))))))) +(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--30511-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--36304-7724-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--30510-2599-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-28 (vector-ref sc2 1))) e-28))) 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 "\u000a" 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--30759-2856 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--30759-2965 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--30704-3109 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--31536-3999 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--30704-3425-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 ((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-17 e-18))) (vector 0 )))) ((REPL-Idris-case--31536-4106 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-9 e-16 e-22 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--33003-4766 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--33747-5408 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-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--36825-7752-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--31031-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-28 (vector-ref sc2 1))) e-28))) 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 "\u000a" 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--31280-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--31280-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--31225-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--32057-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--31225-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 ((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-17 e-18))) (vector 0 )))) ((REPL-Idris-case--32057-4134 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-9 e-16 e-22 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--33524-4794 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--34268-5436 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--34608-6129 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--34608-6660 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--34608-6776 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--35581-7045 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-4481) (lambda (arg-4482) (Context-Core-full_HasNames__Totality arg-4481 arg-4482))) (lambda (arg-4483) (lambda (arg-4484) (Context-Core-resolved_HasNames__Totality arg-4483 arg-4484)))) 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-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--35129-6157 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--35129-6688 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--35129-6804 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--36102-7073 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-4524) (lambda (arg-4525) (Context-Core-full_HasNames__Totality arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__Totality arg-4526 arg-4527)))) 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) ")\u000a"))))) (Name-Core-showSep "\u000a" 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--36107-7581 arg-0 (REPL-Idris-n--36107-7500-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 (Support-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) (Support-Parser-eoi)) (lambda (_-7489) (Core-Parser-Text-pure 'erased 'erased (vector 1 c)))))))) +(define REPL-Idris-parseRepl (lambda (arg-0) (REPL-Idris-case--36628-7609 arg-0 (REPL-Idris-n--36628-7528-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 (_-7517) (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--29022-1239 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--36211-7614 arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 (REPL-Idris-parseRepl arg-5)))) +(define REPL-Idris-isHole (lambda (arg-0) (REPL-Idris-case--29543-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--36732-7642 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 ":\u000a" (Name-Core-showSep "\u000a" e-1)))))) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-2) (Strings-Prelude-C-43C-43 ": Calls non covering function" (let ((sc1 e-3)) (case (vector-ref sc1 0) ((1) (let ((e-1 (vector-ref sc1 1))) (let ((e-4 (vector-ref sc1 2))) (let ((sc2 e-4)) (case (vector-ref sc2 0) ((0) (Strings-Prelude-C-43C-43 " " (Name-Core-show_Show__Name e-1)))(else (Strings-Prelude-C-43C-43 "s: " (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Name-Core-show_Show__Name eta-0)) e-3)))))))))(else (Strings-Prelude-C-43C-43 "s: " (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Name-Core-show_Show__Name eta-0)) e-3))))))))))) (else (let ((e-4 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-4) ": All cases covered"))))))) (define REPL-Idris-getOptions (lambda (arg-0 arg-1 ext-0) (let ((act-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--30209-2308 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-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--30730-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 "\u000a" e-3) eta-0)))) ((6) (let ((e-4 (vector-ref sc0 1))) (let ((e-5 (vector-ref sc0 2))) (lambda (eta-0) (REPLCommon-Idris-printResult arg-4 (Strings-Prelude-C-43C-43 (Syntax-Idris-show_Show__PTerm e-4) (Strings-Prelude-C-43C-43 " : " (Syntax-Idris-show_Show__PTerm e-5))) eta-0))))) ((7) (let ((e-6 (vector-ref sc0 1))) (lambda (eta-0) (REPLCommon-Idris-printResult arg-4 (Strings-Prelude-C-43C-43 "Loaded file " e-6) eta-0)))) ((8) (let ((e-7 (vector-ref sc0 1))) (let ((e-8 (vector-ref sc0 2))) (lambda (eta-0) (REPLCommon-Idris-printError arg-4 (Strings-Prelude-C-43C-43 "Error loading file " (Strings-Prelude-C-43C-43 e-7 (Strings-Prelude-C-43C-43 ": " (File-System-show_Show__FileError e-8)))) eta-0))))) ((9) (let ((e-9 (vector-ref sc0 1))) (lambda (eta-0) (REPLCommon-Idris-printError arg-4 (Strings-Prelude-C-43C-43 "Error(s) building file " e-9) eta-0)))) ((10) (lambda (eta-0) (REPLCommon-Idris-printError arg-4 "No file can be reloaded" eta-0))) ((11) (let ((e-11 (vector-ref sc0 1))) (lambda (eta-0) (REPLCommon-Idris-printResult arg-4 (Strings-Prelude-C-43C-43 "Current working directory is '" (Strings-Prelude-C-43C-43 e-11 "'")) eta-0)))) ((12) (lambda (eta-0) (REPLCommon-Idris-printError arg-4 "Compilation failed" eta-0))) ((13) (let ((e-12 (vector-ref sc0 1))) (lambda (eta-0) (REPLCommon-Idris-printResult arg-4 (Strings-Prelude-C-43C-43 "File " (Strings-Prelude-C-43C-43 e-12 " written")) eta-0)))) ((14) (let ((e-13 (vector-ref sc0 1))) (lambda (eta-0) (REPLCommon-Idris-printResult arg-4 (Syntax-Idris-show_Show__PTerm e-13) eta-0)))) ((15) (let ((e-14 (vector-ref sc0 1))) (lambda (eta-0) (REPLCommon-Idris-printResult arg-4 (Name-Core-showSep "\u000a" (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (REPL-Idris-handleMissing eta-1)) e-14)) eta-0)))) ((16) (let ((e-15 (vector-ref sc0 1))) (lambda (eta-0) (REPLCommon-Idris-printResult arg-4 (Name-Core-showSep "\u000a" (Prelude-map_Functor__List 'erased 'erased (lambda (lamc-0) (let ((sc1 lamc-0)) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-2) (Strings-Prelude-C-43C-43 " is " (TT-Core-show_Show__Totality e-3))))))) e-15)) eta-0)))) ((17) (let ((e-16 (vector-ref sc0 1))) (let ((sc1 e-16)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (REPLCommon-Idris-printResult arg-4 "No holes" eta-0))) ((1) (let ((e-26 (vector-ref sc1 1))) (let ((e-27 (vector-ref sc1 2))) (let ((sc2 e-27)) (case (vector-ref sc2 0) ((0) (lambda (eta-0) (REPLCommon-Idris-printResult arg-4 (Strings-Prelude-C-43C-43 "1 hole: " (Name-Core-show_Show__Name 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 "\u000a" e-29) eta-0))))))) ((1) (let ((e-30 (vector-ref sc1 1))) (lambda (eta-0) (REPLCommon-Idris-printError arg-4 e-30 eta-0)))) ((2) (let ((e-31 (vector-ref sc1 1))) (let ((e-32 (vector-ref sc1 2))) (let ((e-33 (vector-ref sc1 3))) (let ((e-34 (vector-ref sc1 4))) (lambda (eta-0) (REPLCommon-Idris-printResult arg-4 (Strings-Prelude-C-43C-43 (Unlit-Parser-relit e-31 (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-32) (Strings-Prelude-C-43C-43 " : " (Strings-Prelude-C-43C-43 (Syntax-Idris-show_Show__PTerm e-33) "\u000a")))) e-34) eta-0)))))))(else (lambda (eta-0) (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 "\u000a" (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Syntax-Idris-show_Show__REPLOpt eta-1)) e-20)) eta-0))))(else (lambda (eta-0) (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--29898-2032 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-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--30419-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 "\u000a" (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (REPL-Idris-n--36323-8065-cmdInfo eta-0)) (Parser-Idris-help))))) +(define REPL-Idris-displayHelp (lambda () (Name-Core-showSep "\u000a" (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (REPL-Idris-n--36844-8093-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--30585-2665-addApp arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 arg-0 arg-4 (vector 0 ) (REPL-Idris-proofSearch arg-1 arg-3 arg-4 arg-5)))) +(define REPL-Idris-addMadeLemma (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (REPL-Idris-n--31106-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--13673-16580 (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--13381-16353 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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--13195-16308 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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--13381-16353 arg-0 arg-1 arg-2 arg-3 arg-4 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--13195-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 arg-18) (let ((sc0 arg-18)) (cond ((equal? sc0 0) (vector 1 )) (else (vector 0 )))))) -(define MakeLemma-Interactive-TTImp-case--13131-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))) (let ((mn (let ((_-0 (vector 0 e-2 e-3))) (MakeLemma-Interactive-TTImp-case--13195-16308 arg-0 arg-1 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--13195-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 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--12928-15904 (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--13633-16526-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-case--13767-16625 (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--13475-16398 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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--13289-16353 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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--13475-16398 arg-0 arg-1 arg-2 arg-3 arg-4 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--13289-16243 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--13225-16200 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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--13289-16353 arg-0 arg-1 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--13289-16243 arg-0 arg-1 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--13022-15949 (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--13727-16571-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--13633-16526-getArg arg-2 arg-1 arg-0 eta-0)) arg-2)))) +(define MakeLemma-Interactive-TTImp-mkApp (lambda (arg-0 arg-1 arg-2) (TTImp-TTImp-apply (vector 0 arg-0 arg-1) (List-Data-mapMaybe 'erased 'erased (lambda (eta-0) (MakeLemma-Interactive-TTImp-n--13727-16571-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--13195-16308 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--13195-16198 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-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--13289-16353 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--13289-16243 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--12928-15904 'erased arg-2 arg-1 (TT-Core-getFnArgs 'erased arg-2)))) -(define REPLCommon-Idris-case--15620-15991 (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))) (vector 0 e-0 e-1 e-2 e-3 (Options-Core-clearNames (let ((sc1 arg-4)) (let ((e-45 (vector-ref sc1 5))) e-45))) e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24)))))))))))))))))))))))))))) -(define REPLCommon-Idris-case--15545-15897 (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--15545-15865 (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--15379-15730 (lambda (arg-0 arg-1 arg-2 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--15341-15659-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--15341-15659-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--15341-15689 (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--15379-15730 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--15289-15624 (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--15222-15562 (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--15341-15659-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 MakeLemma-Interactive-TTImp-bindable (lambda (arg-0 arg-1 arg-2) (MakeLemma-Interactive-TTImp-case--13022-15949 'erased arg-2 arg-1 (TT-Core-getFnArgs 'erased arg-2)))) +(define REPLCommon-Idris-case--15745-16036 (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))) (vector 0 e-0 e-1 e-2 e-3 (Options-Core-clearNames (let ((sc1 arg-4)) (let ((e-45 (vector-ref sc1 5))) e-45))) e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24)))))))))))))))))))))))))))) +(define REPLCommon-Idris-case--15670-15942 (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--15670-15910 (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--15504-15775 (lambda (arg-0 arg-1 arg-2 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--15466-15704-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--15466-15704-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--15466-15734 (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--15504-15775 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--15414-15669 (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--15347-15607 (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--15466-15704-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-26 (vector-ref sc2 6))) (let ((e-25 (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 (Options-Core-clearNames (let ((sc3 e-5)) (let ((e-47 (vector-ref sc3 5))) e-47))) e-26 e-25 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24)))))))))))))))))))))))))) 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--15289-15624 arg-2 arg-1 arg-0 e-5 (let ((sc1 e-5)) (let ((e-6 (vector-ref sc1 7))) e-6))) ext-0)))))))) +(define REPLCommon-Idris-printWithStatus (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-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--15414-15669 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--15222-15562 arg-1 arg-0 e-5 (let ((sc1 e-5)) (let ((e-6 (vector-ref sc1 7))) e-6))) ext-0)))))))) +(define REPLCommon-Idris-iputStrLn (lambda (arg-0 arg-1 ext-0) (let ((act-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--15347-15607 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-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--15341-15689 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--13172-15502 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-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--13127-15462 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-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--13217-15519-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--13217-15519-findLine arg-0 arg-1 e-1 e-7)))(else (let ((sc0 arg-3)) (vector 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--15466-15734 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--13274-15547 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-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--13229-15507 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-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--13319-15564-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--13319-15564-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))))))))) @@ -5808,25 +5926,27 @@ (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--13217-15519-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-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--13319-15564-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--13700-16023 (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--12964-15498 (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 5 arg-0 arg-1 e-1 (Commands-IDEMode-Idris-n--12964-15489-getMode arg-0 arg-1 arg-2 arg-3 arg-3)))))(else (vector 0 )))))) -(define Commands-IDEMode-Idris-case--12964-15449 (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 5 arg-0 arg-1 e-1 1))))(else (vector 0 )))))) -(define Commands-IDEMode-Idris-n--12964-15489-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--13537-15836-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-case--14150-16406 (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--13081-15676 (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--13081-15573 (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--13081-15564-getMode arg-0 arg-1 arg-2 arg-3 arg-3)))))(else (vector 0 )))))) +(define Commands-IDEMode-Idris-case--13081-15524 (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--13081-15564-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--13987-16219-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--13700-16023 'erased 'erased arg-2 e-2 e-3 ((Builtin-snd 'erased 'erased arg-2) e-3))))))) +(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--14150-16406 '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))) @@ -5835,70 +5955,70 @@ (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-15914) (Commands-IDEMode-Idris-toSExp_SExpable__SExp arg-15914)) (lambda (arg-15914) (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-15915) (Commands-IDEMode-Idris-toSExp_SExpable__Int arg-15915)) (lambda (arg-15915) (Commands-IDEMode-Idris-toSExp_SExpable__Int arg-15915))) arg-15914))) (vector 0 (vector 4 "protocol-version") (vector 0 arg-0 arg-1))))) +(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-16297) (Commands-IDEMode-Idris-toSExp_SExpable__SExp arg-16297)) (lambda (arg-16297) (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-16298) (Commands-IDEMode-Idris-toSExp_SExpable__Int arg-16298)) (lambda (arg-16298) (Commands-IDEMode-Idris-toSExp_SExpable__Int arg-16298))) arg-16297))) (vector 0 (vector 4 "protocol-version") (vector 0 arg-0 arg-1))))) (define Commands-IDEMode-Idris-toSExp (lambda (arg-0 arg-1 ext-0) (arg-1 ext-0))) (define Commands-IDEMode-Idris-sendLine (lambda (arg-0 arg-1 ext-0) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-0) (vector 0 )) (lambda (eta-0) (File-System-fPutStr arg-0 arg-1 eta-0)) ext-0))) (define Commands-IDEMode-Idris-send (lambda (arg-0 arg-1 arg-2 arg-3) (let ((r (Strings-Prelude-C-43C-43 (Commands-IDEMode-Idris-show_Show__SExp (arg-1 arg-3)) "\u000a"))) (lambda (eta-0) (let ((act-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 "proof-search") (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 (vector 0 ) 1))) ((1) (let ((e-69 (vector-ref sc8 1))) (let ((e-70 (vector-ref sc8 2))) (let ((sc9 e-69)) (case (vector-ref sc9 0) ((0) (let ((e-71 (vector-ref sc9 1))) (let ((sc10 e-70)) (case (vector-ref sc10 0) ((0) (Commands-IDEMode-Idris-case--12964-15449 e-62 e-66 e-71 (Commands-IDEMode-Idris-readHints e-71))) ((1) (let ((e-74 (vector-ref sc10 1))) (let ((e-75 (vector-ref sc10 2))) (let ((sc11 e-74)) (case (vector-ref sc11 0) ((4) (let ((e-76 (vector-ref sc11 1))) (let ((sc12 e-75)) (case (vector-ref sc12 0) ((0) (Commands-IDEMode-Idris-case--12964-15498 e-62 e-66 e-71 e-76 (Commands-IDEMode-Idris-readHints e-71)))(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-79 (vector-ref sc4 1))) (let ((e-80 (vector-ref sc4 2))) (let ((sc5 e-79)) (case (vector-ref sc5 0) ((3) (let ((e-81 (vector-ref sc5 1))) (let ((sc6 e-80)) (case (vector-ref sc6 0) ((1) (let ((e-83 (vector-ref sc6 1))) (let ((e-84 (vector-ref sc6 2))) (let ((sc7 e-83)) (case (vector-ref sc7 0) ((1) (let ((e-85 (vector-ref sc7 1))) (let ((sc8 e-84)) (case (vector-ref sc8 0) ((0) (vector 1 (vector 6 e-81 e-85)))(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-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-case") (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-with") (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 "metavariables") (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) ((0) (vector 1 (vector 10 e-117)))(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 12 )))(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 11 )))(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-2851) (lambda (arg-2852) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-2851 arg-2852))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (eta-0) (Commands-IDEMode-Idris-n--13537-15836-escapeChar eta-0))) (Prelude-unpack ext-0))))) -(define Error-Idris-case--13352-4221 (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--13352-4005 (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--13352-3930-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:\u000a" (Name-Core-showSep "\u000a" e-5))) eta-0)))))))))))) -(define Error-Idris-case--13352-3872 (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--13352-3762 (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--13352-3725-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--13352-3726-showRel arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-0) " context"))))))))))) -(define Error-Idris-case--13352-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--13352-4122-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--13352-3725-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--13352-3726-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--13352-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--13352-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--13352-4588-showMod (lambda (arg-0 arg-1 arg-2 arg-3) (Name-Core-showSep "." (List-Data-reverse 'erased arg-3)))) -(define Error-Idris-n--13352-4273-showHoles (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) "") (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-7) (Strings-Prelude-C-43C-43 " introduced at " (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-6) (Strings-Prelude-C-43C-43 "\u000a" (Error-Idris-n--13352-4273-showHoles arg-0 arg-1 arg-2 e-3))))))))))))))) -(define Error-Idris-n--13352-3930-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 "\u000a"))))) 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:\u000a\u0009" e-5)) eta-0))))))))))))))) -(define Error-Idris-n--13352-4177-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--13352-4177-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--13352-3931-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--13352-3931-allUndefined arg-0 arg-1 arg-2 e-3)))))))(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--13081-15524 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--13081-15573 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-2851) (lambda (arg-2852) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-2851 arg-2852))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (eta-0) (Commands-IDEMode-Idris-n--13987-16219-escapeChar eta-0))) (Prelude-unpack ext-0))))) +(define Error-Idris-case--13454-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--13454-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--13454-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:\u000a" (Name-Core-showSep "\u000a" e-5))) eta-0)))))))))))) +(define Error-Idris-case--13454-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--13454-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--13454-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--13454-3730-showRel arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-0) " context"))))))))))) +(define Error-Idris-case--13454-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--13454-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--13454-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--13454-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--13454-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--13454-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--13454-4592-showMod (lambda (arg-0 arg-1 arg-2 arg-3) (Name-Core-showSep "." (List-Data-reverse 'erased arg-3)))) +(define Error-Idris-n--13454-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 "\u000a" (Error-Idris-n--13454-4277-showHoles arg-0 arg-1 arg-2 e-3))))))))))))))) +(define Error-Idris-n--13454-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 "\u000a"))))) 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:\u000a\u0009" e-5)) eta-0))))))))))))))) +(define Error-Idris-n--13454-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--13454-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--13454-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--13454-3935-allUndefined arg-0 arg-1 arg-2 e-3)))))))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 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:\u000a\u0009" (Strings-Prelude-C-43C-43 e-6 (Strings-Prelude-C-43C-43 "\u000aand\u000a\u0009" 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:\u000a\u0009" (Strings-Prelude-C-43C-43 e-5 (Strings-Prelude-C-43C-43 "\u000aand\u000a\u0009" 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--13352-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:\u000a\u0009" 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 "\u000a" 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-193 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-15 (Error-Idris-pshow e-27 arg-0 arg-1 e-29 e-193 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-196 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-15 ((Error-Idris-perror arg-0 arg-1 e-196) 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:\u000a" 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-198 (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-198)) " 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-200 (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-200) 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:\u000a\u0009" (Name-Core-showSep "\u000a\u0009" e-6)))) eta-0)))))))))))))) (else (let ((e-201 (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:\u000a\u0009" (Strings-Prelude-C-43C-43 "Calls non covering function" (let ((sc3 e-201)) (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-201)))))))))(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-201)))))))))) eta-0)))))))))))))) ((12) (let ((e-45 (vector-ref sc0 2))) (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 " is not total")) 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--13352-3762 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:\u000a\u0009" (Name-Core-showSep "\u000a\u0009" 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:\u000a\u0009" (Name-Core-showSep "\u000a\u0009" 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--13352-4005 e-76 arg-1 arg-0 (Error-Idris-n--13352-3931-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-204 (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-204) (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-206 (vector-ref sc1 1))) (let ((e-207 (vector-ref sc1 2))) (let ((sc2 e-206)) (case (vector-ref sc2 0) ((1) (let ((e-209 (vector-ref sc2 1))) (let ((sc3 e-207)) (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-209) (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--13352-4122-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--13352-4221 e-101 e-102 e-104 e-103 arg-1 arg-0 (Error-Idris-n--13352-4177-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 "\u000a" (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:\u000a" (Error-Idris-n--13352-4273-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 "\u000a" (Strings-Prelude-C-43C-43 "Got " (Strings-Prelude-C-43C-43 e-5 (Strings-Prelude-C-43C-43 " with hole " (Name-Core-show_Show__Name e-116)))))))) 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\u000a" (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-211 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-15 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-4481) (lambda (arg-4482) (Context-Core-full_HasNames__Name arg-4481 arg-4482))) (lambda (arg-4483) (lambda (arg-4484) (Context-Core-resolved_HasNames__Name arg-4483 arg-4484)))) e-211 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-212 (vector-ref sc1 1))) (let ((sc2 e-212)) (let ((e-215 (vector-ref sc2 1))) (let ((e-216 (vector-ref sc2 2))) (let ((sc3 e-216)) (let ((e-219 (vector-ref sc3 1))) (let ((e-220 (vector-ref sc3 2))) (lambda (eta-0) (let ((act-15 (Error-Idris-pshow e-215 arg-0 arg-1 e-219 e-220 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 "\u000a" "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 2))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Support-Parser-show_Show__ParseError e-174)) eta-0)))) ((51) (let ((e-176 (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-176)) " not found")) eta-0)))) ((52) (let ((e-177 (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--13352-4588-showMod e-177 arg-1 arg-0 eta-1)) e-177)))) 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-178 (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-178)) eta-0)))) ((55) (let ((e-179 (vector-ref sc0 1))) (let ((e-180 (vector-ref sc0 2))) (let ((e-181 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-15 ((Context-Core-prettyName arg-0 e-180) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref 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-181) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-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-179) (Strings-Prelude-C-43C-43 ":\u000a" e-6)))))) eta-0)))))))))))))))) ((56) (let ((e-182 (vector-ref sc0 1))) (let ((e-183 (vector-ref sc0 2))) (let ((e-184 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-15 ((Context-Core-prettyName arg-0 e-183) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref 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-184) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-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-182) (Strings-Prelude-C-43C-43 ":\u000a" e-6)))))) eta-0)))))))))))))))) ((57) (let ((e-185 (vector-ref sc0 1))) (let ((e-186 (vector-ref sc0 2))) (let ((e-187 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-15 ((Context-Core-prettyName arg-0 e-186) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref 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-187) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-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-185) (Strings-Prelude-C-43C-43 ":\u000a" e-6)))))) eta-0)))))))))))))))) (else (let ((e-188 (vector-ref sc0 1))) (let ((e-189 (vector-ref sc0 2))) (let ((e-190 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-15 ((Context-Core-prettyName arg-0 e-189) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref 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-190) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-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-188) (Strings-Prelude-C-43C-43 ":\u000a" e-6)))))) eta-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:\u000a\u0009" (Strings-Prelude-C-43C-43 e-6 (Strings-Prelude-C-43C-43 "\u000aand\u000a\u0009" 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:\u000a\u0009" (Strings-Prelude-C-43C-43 e-5 (Strings-Prelude-C-43C-43 "\u000aand\u000a\u0009" 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--13454-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:\u000a\u0009" 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 "\u000a" 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-193 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-15 (Error-Idris-pshow e-27 arg-0 arg-1 e-29 e-193 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-196 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-15 ((Error-Idris-perror arg-0 arg-1 e-196) 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:\u000a" 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-198 (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-198)) " 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-200 (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-200) 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:\u000a\u0009" (Name-Core-showSep "\u000a\u0009" e-6)))) eta-0)))))))))))))) (else (let ((e-201 (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:\u000a\u0009" (Strings-Prelude-C-43C-43 "Calls non covering function" (let ((sc3 e-201)) (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-201)))))))))(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-201)))))))))) 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:\u000a\u0009" (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--13454-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:\u000a\u0009" (Name-Core-showSep "\u000a\u0009" 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:\u000a\u0009" (Name-Core-showSep "\u000a\u0009" 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--13454-4009 e-76 arg-1 arg-0 (Error-Idris-n--13454-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-204 (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-204) (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-206 (vector-ref sc1 1))) (let ((e-207 (vector-ref sc1 2))) (let ((sc2 e-206)) (case (vector-ref sc2 0) ((1) (let ((e-209 (vector-ref sc2 1))) (let ((sc3 e-207)) (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-209) (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--13454-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--13454-4225 e-101 e-102 e-104 e-103 arg-1 arg-0 (Error-Idris-n--13454-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 "\u000a" (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:\u000a" (Error-Idris-n--13454-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 "\u000a" (Strings-Prelude-C-43C-43 "Got " (Strings-Prelude-C-43C-43 e-5 (Strings-Prelude-C-43C-43 " with hole " (Name-Core-show_Show__Name e-116)))))))) 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\u000a" (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-211 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-15 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-4524) (lambda (arg-4525) (Context-Core-full_HasNames__Name arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__Name arg-4526 arg-4527)))) e-211 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-212 (vector-ref sc1 1))) (let ((sc2 e-212)) (let ((e-215 (vector-ref sc2 1))) (let ((e-216 (vector-ref sc2 2))) (let ((sc3 e-216)) (let ((e-219 (vector-ref sc3 1))) (let ((e-220 (vector-ref sc3 2))) (lambda (eta-0) (let ((act-15 (Error-Idris-pshow e-215 arg-0 arg-1 e-219 e-220 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 "\u000a" "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 2))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Support-Parser-show_Show__ParseError e-174)) eta-0)))) ((51) (let ((e-176 (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-176)) " not found")) eta-0)))) ((52) (let ((e-177 (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--13454-4592-showMod e-177 arg-1 arg-0 eta-1)) e-177)))) 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-178 (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-178)) eta-0)))) ((55) (let ((e-179 (vector-ref sc0 1))) (let ((e-180 (vector-ref sc0 2))) (let ((e-181 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-15 ((Context-Core-prettyName arg-0 e-180) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref 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-181) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-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-179) (Strings-Prelude-C-43C-43 ":\u000a" e-6)))))) eta-0)))))))))))))))) ((56) (let ((e-182 (vector-ref sc0 1))) (let ((e-183 (vector-ref sc0 2))) (let ((e-184 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-15 ((Context-Core-prettyName arg-0 e-183) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref 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-184) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-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-182) (Strings-Prelude-C-43C-43 ":\u000a" e-6)))))) eta-0)))))))))))))))) ((57) (let ((e-185 (vector-ref sc0 1))) (let ((e-186 (vector-ref sc0 2))) (let ((e-187 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-15 ((Context-Core-prettyName arg-0 e-186) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref 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-187) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-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-185) (Strings-Prelude-C-43C-43 ":\u000a" e-6)))))) eta-0)))))))))))))))) (else (let ((e-188 (vector-ref sc0 1))) (let ((e-189 (vector-ref sc0 2))) (let ((e-190 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-15 ((Context-Core-prettyName arg-0 e-189) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref 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-190) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-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-188) (Strings-Prelude-C-43C-43 ":\u000a" e-6)))))) eta-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--15423-19650 (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--15423-19572-cleanNode arg-0 arg-1 eta-0)) arg-0)))))) -(define Resugar-Idris-case--15427-19576 (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--15423-19571-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--13848-19487 (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--13842-19314 (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--13842-19244-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--14800-19074 (lambda (arg-0 arg-1 arg-2 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--13824-19023 (lambda (arg-0 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--13821-18934 (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--13818-18836 (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--13818-18692 (lambda (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--14163-18483 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--13818-18407 (lambda (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--13818-18336 (lambda (arg-0 arg-1 arg-2 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--13818-18272 (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--13818-18198 (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--13782-18123 (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--13444-18070 (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--13459-17968 (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--13459-17865 (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--13444-17817 (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--13459-17865 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--13459-17968 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--13382-17751 (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--13291-17687 (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--13226-17664 (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--13143-17562 (lambda (arg-0 arg-1 arg-2 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--13226-17614-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--13818-18449-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--14163-18483 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--13842-19244-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--15423-19572-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--15423-19571-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--15423-19571-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--15423-19571-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--15423-19571-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--15423-19571-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--15423-19571-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--15423-19571-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--15532-19701 (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--15532-19623-cleanNode arg-0 arg-1 eta-0)) arg-0)))))) +(define Resugar-Idris-case--15536-19627 (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--15532-19622-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--13950-19538 (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--13944-19365 (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--13944-19295-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--14909-19125 (lambda (arg-0 arg-1 arg-2 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--13926-19074 (lambda (arg-0 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--13923-18985 (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--13920-18881 (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--13920-18737 (lambda (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--14265-18528 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--13920-18452 (lambda (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--13920-18381 (lambda (arg-0 arg-1 arg-2 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--13920-18317 (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--13920-18243 (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--13884-18168 (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--13546-18115 (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--13561-18013 (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--13561-17910 (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--13546-17862 (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--13561-17910 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--13561-18013 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--13484-17796 (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--13393-17732 (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--13328-17709 (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--13245-17607 (lambda (arg-0 arg-1 arg-2 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--13328-17659-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--13920-18494-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--14265-18528 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--13944-19295-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--15532-19623-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--15532-19622-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--15532-19622-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--15532-19622-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--15532-19622-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--15532-19622-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--15532-19622-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--15532-19622-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--13818-18449-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))) (else (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)))))))))))) +(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--13920-18494-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--13842-19244-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) ((4) (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-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--13944-19295-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))))))) @@ -5906,7 +6026,7 @@ (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--13444-17817 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--13444-18070 e-4 e-3 (Name-Core-nameRoot e-4)))))))(else (Resugar-Idris-case--13444-18070 e-4 e-3 (Name-Core-nameRoot e-4))))))(else (Resugar-Idris-case--13444-18070 e-4 e-3 (Name-Core-nameRoot e-4))))))(else (Resugar-Idris-case--13444-18070 e-4 e-3 (Name-Core-nameRoot e-4))))))))(else (Resugar-Idris-case--13444-18070 e-4 e-3 (Name-Core-nameRoot e-4))))))))(else (Resugar-Idris-case--13444-18070 e-4 e-3 (Name-Core-nameRoot e-4))))))))(else (vector 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--13546-17862 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--13546-18115 e-4 e-3 (Name-Core-nameRoot e-4)))))))(else (Resugar-Idris-case--13546-18115 e-4 e-3 (Name-Core-nameRoot e-4))))))(else (Resugar-Idris-case--13546-18115 e-4 e-3 (Name-Core-nameRoot e-4))))))(else (Resugar-Idris-case--13546-18115 e-4 e-3 (Name-Core-nameRoot e-4))))))))(else (Resugar-Idris-case--13546-18115 e-4 e-3 (Name-Core-nameRoot e-4))))))))(else (Resugar-Idris-case--13546-18115 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)))))))) @@ -5914,314 +6034,314 @@ (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--13143-17562 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-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--13245-17607 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--15423-19572-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--13291-17687 arg-3 arg-2 arg-1 arg-0 e-5 (Prelude-C-62_Ord__Nat arg-1 arg-2)) ext-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--15532-19623-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--13393-17732 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--13226-17664 arg-1 arg-0 (Resugar-Idris-n--13226-17614-needed arg-1 arg-0 arg-1)))) -(define Parser-Idris-case--23267-26509 (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--23212-26467 (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--22078-25276 (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--12889-24790 (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--21562-24743 (lambda (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--21529-24682 (lambda (arg-0 arg-1 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--21562-24743 arg-0 arg-1 arg-2 'erased 'erased arg-6 arg-7 arg-5 e-2 (Parser-Idris-n--12889-24648-spanMap arg-0 arg-1 arg-2 'erased 'erased arg-7 arg-6)))))))) -(define Parser-Idris-case--12888-24559 (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--20526-23840 (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--20526-23798 (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--20347-23435 (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--18237-21055 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (Parser-Idris-n--18235-21040-drop arg-0 arg-3 arg-2)) (else (vector 1 arg-1 arg-2)))))) -(define Parser-Idris-case--17751-20546 (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--13368-19449 (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--13356-18616 (lambda (arg-0 arg-1 arg-2 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--13346-17853 (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--13339-17098 (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--13332-16330 (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) (Support-Parser-continue arg-0)) (lambda (_-16347) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Support-Parser-symbol "=")) (lambda () (lambda (_-16355) (((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) (Support-Parser-location)) (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--13590-16064 (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--13330-16021 (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) (Support-Parser-continue arg-0)) (lambda (_-16034) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Support-Parser-symbol "|")) (lambda () (lambda (_-16042) (((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--13330-15994 (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--12919-15260 (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-1 (vector-ref sc0 2))) (vector 0 1 e-1))))) -(define Parser-Idris-n--12889-24648-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--21529-24682 arg-0 arg-1 arg-2 'erased 'erased e-2 e-3 arg-5 (arg-5 e-2))))))))) -(define Parser-Idris-n--13364-19215-recFieldCompat (lambda (arg-0 arg-1) (Core-Parser-Text-C-60C-124C-62 'erased 'erased 0 (Prelude-C-124C-124 0 (lambda () 0)) (Support-Parser-recField) (lambda () (Core-Parser-Text-C-42C-62 'erased 'erased 'erased 0 0 (Support-Parser-symbol "->") (Support-Parser-name)))))) -(define Parser-Idris-n--17491-20407-parseWithArg (lambda (arg-0 arg-1 arg-2) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Support-Parser-symbol "|")) (lambda () (lambda (_-20425) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Support-Parser-location)) (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) (Support-Parser-location)) (lambda (end) (Core-Parser-Text-pure 'erased 'erased (vector 0 (vector 0 arg-1 start end) tm)))))))))))))) -(define Parser-Idris-n--23000-26221-parse (lambda (arg-0 arg-1 arg-2) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Support-Parser-symbol ":")) (lambda () (lambda (_-26228) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Parser-Idris-runParseCmd arg-2)) (lambda () (lambda (_-26235) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Support-Parser-unqualifiedName)) (lambda () (lambda (n) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Parser-Idris-expr (Parser-Idris-pdef) "(interactive)" (Support-Parser-init))) (lambda () (lambda (tm) (Core-Parser-Text-pure 'erased 'erased ((arg-1 tm) n)))))))))))))))) -(define Parser-Idris-n--22953-26167-parse (lambda (arg-0 arg-1 arg-2) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Support-Parser-symbol ":")) (lambda () (lambda (_-26174) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Parser-Idris-runParseCmd arg-2)) (lambda () (lambda (_-26181) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Support-Parser-intLit)) (lambda () (lambda (i) (Core-Parser-Text-pure 'erased 'erased (arg-1 (Prelude-fromInteger_Num__Nat i)))))))))))))) -(define Parser-Idris-n--22910-26119-parse (lambda (arg-0 arg-1 arg-2 arg-3) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Support-Parser-symbol ":")) (lambda () (lambda (_-26126) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Parser-Idris-runParseCmd arg-3)) (lambda () (lambda (_-26133) (((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--22867-26069-parse (lambda (arg-0 arg-1 arg-2) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Support-Parser-symbol ":")) (lambda () (lambda (_-26076) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Parser-Idris-runParseCmd arg-2)) (lambda () (lambda (_-26083) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Parser-Idris-expr (Parser-Idris-pdef) "(interactive)" (Support-Parser-init))) (lambda () (lambda (tm) (Core-Parser-Text-pure 'erased 'erased (arg-1 tm))))))))))))) -(define Parser-Idris-n--22823-26019-parse (lambda (arg-0 arg-1 arg-2) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Support-Parser-symbol ":")) (lambda () (lambda (_-26026) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Parser-Idris-runParseCmd arg-2)) (lambda () (lambda (_-26033) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Support-Parser-name)) (lambda () (lambda (n) (Core-Parser-Text-pure 'erased 'erased (arg-1 n))))))))))))) -(define Parser-Idris-n--22787-25978-parse (lambda (arg-0 arg-1 arg-2) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Support-Parser-symbol ":")) (lambda () (lambda (_-25985) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Parser-Idris-runParseCmd arg-2)) (lambda () (lambda (_-25992) (Core-Parser-Text-pure 'erased 'erased arg-1))))))))) -(define Parser-Idris-n--23000-26220-names (lambda (arg-0 arg-1 arg-2) (Parser-Idris-extractNames arg-2))) -(define Parser-Idris-n--22953-26166-names (lambda (arg-0 arg-1 arg-2) (Parser-Idris-extractNames arg-2))) -(define Parser-Idris-n--22910-26118-names (lambda (arg-0 arg-1 arg-2 arg-3) (Parser-Idris-extractNames arg-3))) -(define Parser-Idris-n--22867-26068-names (lambda (arg-0 arg-1 arg-2) (Parser-Idris-extractNames arg-2))) -(define Parser-Idris-n--22823-26018-names (lambda (arg-0 arg-1 arg-2) (Parser-Idris-extractNames arg-2))) -(define Parser-Idris-n--22787-25977-names (lambda (arg-0 arg-1 arg-2) (Parser-Idris-extractNames arg-2))) -(define Parser-Idris-n--13373-20011-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--13373-20011-mkPi arg-0 arg-1 arg-2 arg-3 arg-4 e-7 e-3)))))))))))) -(define Parser-Idris-n--13338-16900-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--13338-16900-mergePairs arg-0 arg-1 arg-2 arg-3 arg-4 e-3))))))))))))))) -(define Parser-Idris-n--12889-24649-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--13364-19214-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--20344-23403-fieldBody (lambda (arg-0 arg-1 arg-2) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Support-Parser-location)) (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--20347-23435 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 (Support-Parser-symbol ",") (Support-Parser-name))) (lambda () (lambda (ns) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Support-Parser-symbol ":")) (lambda () (lambda (_-23484) (((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) (Support-Parser-location)) (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--18235-21040-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--18237-21055 arg-0 e-2 e-3 arg-1 (Prelude-C-61C-61_Eq__Char arg-1 e-2))))))))) -(define Parser-Idris-n--20825-23898-ctor (lambda (arg-0 arg-1 arg-2) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Support-Parser-exactIdent "constructor")) (lambda () (lambda (_-23905) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Support-Parser-name)) (lambda () (lambda (n) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Support-Parser-atEnd arg-2)) (lambda (_-23919) (Core-Parser-Text-pure 'erased 'erased n))))))))))) -(define Parser-Idris-n--13353-18337-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--13353-18337-bindAll arg-0 arg-1 arg-2 e-3 arg-4))))))))))))))) -(define Parser-Idris-n--13329-15807-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--13329-15807-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--13329-15807-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--13329-15807-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--17491-20406-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--17491-20406-applyArgs arg-0 arg-1 arg-2 (vector 7 e-6 arg-3 e-7) e-3))))))))))) +(define Resugar-Idris-addBracket (lambda (arg-0 arg-1) (Resugar-Idris-case--13328-17709 arg-1 arg-0 (Resugar-Idris-n--13328-17659-needed arg-1 arg-0 arg-1)))) +(define Parser-Idris-case--23704-26908 (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--23649-26866 (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--22513-25673 (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--12991-25181 (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--21991-25134 (lambda (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--21958-25073 (lambda (arg-0 arg-1 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--21991-25134 arg-0 arg-1 arg-2 'erased 'erased arg-6 arg-7 arg-5 e-2 (Parser-Idris-n--12991-25039-spanMap arg-0 arg-1 arg-2 'erased 'erased arg-7 arg-6)))))))) +(define Parser-Idris-case--12990-24950 (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--20936-24216 (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--20936-24174 (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--20755-23805 (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--18600-21376 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (Parser-Idris-n--18598-21361-drop arg-0 arg-3 arg-2)) (else (vector 1 arg-1 arg-2)))))) +(define Parser-Idris-case--18104-20857 (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--13489-19731 (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--13477-18878 (lambda (arg-0 arg-1 arg-2 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--13467-18098 (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--13460-17327 (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--13453-16540 (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 (_-16557) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-symbol "=")) (lambda () (lambda (_-16565) (((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.SourceToken" ))) (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--13720-16138 (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--13450-16095 (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 (_-16108) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-symbol "|")) (lambda () (lambda (_-16116) (((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--13450-16068 (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--13021-15305 (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-1 (vector-ref sc0 2))) (vector 0 1 e-1))))) +(define Parser-Idris-n--12991-25039-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--21958-25073 arg-0 arg-1 arg-2 'erased 'erased e-2 e-3 arg-5 (arg-5 e-2))))))))) +(define Parser-Idris-n--13452-16326-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--13485-19493-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--17836-20714-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 (_-20732) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.SourceToken" ))) (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.SourceToken" ))) (lambda (end) (Core-Parser-Text-pure 'erased 'erased (vector 0 (vector 0 arg-1 start end) tm)))))))))))))) +(define Parser-Idris-n--23436-26619-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 (_-26626) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Parser-Idris-runParseCmd arg-2)) (lambda () (lambda (_-26633) (((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--23389-26565-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 (_-26572) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Parser-Idris-runParseCmd arg-2)) (lambda () (lambda (_-26579) (((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--23346-26517-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 (_-26524) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Parser-Idris-runParseCmd arg-3)) (lambda () (lambda (_-26531) (((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--23302-26466-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 (_-26473) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Parser-Idris-runParseCmd arg-2)) (lambda () (lambda (_-26480) (((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--23258-26416-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 (_-26423) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Parser-Idris-runParseCmd arg-2)) (lambda () (lambda (_-26430) (((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--23222-26375-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 (_-26382) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Parser-Idris-runParseCmd arg-2)) (lambda () (lambda (_-26389) (Core-Parser-Text-pure 'erased 'erased arg-1))))))))) +(define Parser-Idris-n--23436-26618-names (lambda (arg-0 arg-1 arg-2) (Parser-Idris-extractNames arg-2))) +(define Parser-Idris-n--23389-26564-names (lambda (arg-0 arg-1 arg-2) (Parser-Idris-extractNames arg-2))) +(define Parser-Idris-n--23346-26516-names (lambda (arg-0 arg-1 arg-2 arg-3) (Parser-Idris-extractNames arg-3))) +(define Parser-Idris-n--23302-26465-names (lambda (arg-0 arg-1 arg-2) (Parser-Idris-extractNames arg-2))) +(define Parser-Idris-n--23258-26415-names (lambda (arg-0 arg-1 arg-2) (Parser-Idris-extractNames arg-2))) +(define Parser-Idris-n--23222-26374-names (lambda (arg-0 arg-1 arg-2) (Parser-Idris-extractNames arg-2))) +(define Parser-Idris-n--13452-16327-nameList (lambda (arg-0 arg-1) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-symbol "[")) (lambda () (lambda (_-16352) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Core-Parser-Text-commit 'erased)) (lambda (_-16360) (((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 (_-16380) (Core-Parser-Text-pure 'erased 'erased ns)))))))))))))) +(define Parser-Idris-n--13494-20310-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--13494-20310-mkPi arg-0 arg-1 arg-2 arg-3 arg-4 e-7 e-3)))))))))))) +(define Parser-Idris-n--13459-17122-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--13459-17122-mergePairs arg-0 arg-1 arg-2 arg-3 arg-4 e-3))))))))))))))) +(define Parser-Idris-n--12991-25040-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--13485-19492-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--20752-23773-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.SourceToken" ))) (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--20755-23805 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 (_-23854) (((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.SourceToken" ))) (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--18598-21361-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--18600-21376 arg-0 e-2 e-3 arg-1 (Prelude-C-61C-61_Eq__Char arg-1 e-2))))))))) +(define Parser-Idris-n--21239-24274-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 (_-24281) (((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 (_-24295) (Core-Parser-Text-pure 'erased 'erased n))))))))))) +(define Parser-Idris-n--13474-18594-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--13474-18594-bindAll arg-0 arg-1 arg-2 e-3 arg-4))))))))))))))) +(define Parser-Idris-n--13449-15872-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--13449-15872-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--13449-15872-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--13449-15872-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--17836-20713-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--17836-20713-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) "") ((2) "") ((3) "") ((4) "